Hallo zusammen,
ich verwende in einem Programm folgende Funktion:
Klappte unter Windows XP hervorragend, aber wenn ich das unter Windows 7 (x64) laufen lasse, bekomme ich folgende Meldung:
Run-time error '-2147217407 (80041001)'
Automation Error
ich verwende in einem Programm folgende Funktion:
Quellcode
- Public Function PingTime(IP)
- Dim myWMI
- Dim sTarget
- sTarget = IP
- Dim cPingResults
- Dim oPingResult
- Set myWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
- Set cPingResults = myWMI.ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" & sTarget & "'")
- For Each oPingResult In cPingResults
- With oPingResult
- If .StatusCode = 0 Then
- PingTime = .ResponseTime
- Exit Function
- Else
- PingTime = 5000
- End If
- End With
- Next
- End Function
Klappte unter Windows XP hervorragend, aber wenn ich das unter Windows 7 (x64) laufen lasse, bekomme ich folgende Meldung:
Run-time error '-2147217407 (80041001)'
Automation Error