Hallo Wissende,
nachfolgender Code läuft sowohl in OL-Vba als auch in VB5.0.
Meine Frage dazu (hab ich die schon mal gestellt?) ist, woher kenne ich die Objektnamen die ich bei GetObject und Createobject angeben kann?
Dazu noch deren Eigenschaften wie im Beispiel .ExceQuery und .properties?
Also wie komme ihc auf
„winmgmts:\.\root\cimv2“
„Word.Application“
„Scripting.FileSystemObject“
„WScript.Shell“
usw.
Private Sub Form\_Load()
'Standarddrucker ermitteln
Dim objWMI As Object, objItem As Object
Set objWMI = GetObject("winmgmts:\\.\root\cimv2"). \_
ExecQuery("Select \* from Win32\_Printer where Default = 'true'")
For Each objItem In objWMI
MsgBox objItem.properties\_.Item("Name").Value
Next
Set objWMI = Nothing
End Sub
Danke ^ Gruß
Reinhard