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