strComputer = "." Set objWMIServices = GetObject("winmgmts:root/default") Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") Set ObjRegistry = GetObject("winmgmts:{impersonationLevel = impersonate}!\\" _     & strComputer & "rootdefault:StdRegProv")...