Dim oloc As New SWbemLocator
Dim osvc As SWbemServices
Public WithEvents osink As SWbemSink
 
Private Sub osink_OnCompleted(ByVal iHResult As WbemScripting.WbemErrorEnum, _
  ByVal objWbemErrorObject As WbemScripting.ISWbemObject, ByVal _
  objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    MsgBox "Fertig"
    osink.Cancel
End Sub
 
Private Sub osink_OnObjectReady(ByVal objWbemObject As _
  WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As _
  WbemScripting.ISWbemNamedValueSet)
    MsgBox objWbemObject.Name
End Sub
 
Private Sub Command1_Click()
    oloc.Security_.ImpersonationLevel = 3
    Set osvc = oloc.ConnectServer("rechnername", "\root\cimv2", _
      "Administrator", "passwort")
    Set osink = New SWbemSink
    osvc.InstancesOfAsync osink, "Win32_LogicalDisk"
 
    MsgBox "Waiting for instances"
 
End Sub

Set oObjectArray = osvc.InstancesOf( "Win32_LogicalDisk")

osvc.InstancesOfAsync osink, "Win32_LogicalDisk"

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)