1234
Set ISWbemLocator = CreateObject("WbemScripting.SWbemLocator")Set wmi = ISWbemLocator.ConnectServer# bzw. bei Verbinden zu einem externen RechnerSet wmi = ISWbemLocator.ConnectServer(rechnername)