Hallo alle zusammen,
ich bin VB6 Umsteiger und bin etwas verwundert warum dieser Code nicht funktioniert. In VB6 hat es doch auch wunderbar geklappt und in VBA geht es jetzt auch noch.
Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Code bleibt bei Next stehen
Könnt ihr mir noch helfen?
Gruß
Ralf
[highlight=vbnet]
Dim objWMI As New Object
Dim objInstances As New Object
Dim objInstance As New Object
Dim strServer As String
strServer = "Laptop"
On Error Resume Next
objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
If 0 = Err.Number Then
objInstances = objWMI.InstancesOf("Win32_OperatingSystem", 48)
On Error Resume Next
For Each objInstance In objInstances
Debug.Print(objInstance.CSDVersion)
On Error GoTo 0
Next
End If
[/highlight]
ich bin VB6 Umsteiger und bin etwas verwundert warum dieser Code nicht funktioniert. In VB6 hat es doch auch wunderbar geklappt und in VBA geht es jetzt auch noch.
Fehlermeldung:
Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Code bleibt bei Next stehen
Könnt ihr mir noch helfen?
Gruß
Ralf
[highlight=vbnet]
Dim objWMI As New Object
Dim objInstances As New Object
Dim objInstance As New Object
Dim strServer As String
strServer = "Laptop"
On Error Resume Next
objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
If 0 = Err.Number Then
objInstances = objWMI.InstancesOf("Win32_OperatingSystem", 48)
On Error Resume Next
For Each objInstance In objInstances
Debug.Print(objInstance.CSDVersion)
On Error GoTo 0
Next
End If
[/highlight]
Comment