Dim oP As Object
   Dim oPs As Object
   Dim oW As Object
   Dim strComputer As String
 
   strComputer = "."
   Set oW = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set oPs = oW.ExecQuery("SELECT * FROM Win32_Printer")
 
   For Each oP In oPs
        If InStr(UCase(oP.Caption), "ONENOTE") > 0 Then
           oP.SetDefaultPrinter
           Exit For
        End If
   Next