|
NTDOC,
I seem to have found some working solution:
Function WMIConnect($sComputer,$suser,$spwd)
DIM $services, $locator, $context
$locator = CreateObject("WbemScripting.SWbemLocator")
? @SERROR
$context = CreateObject("WbemScripting.SWbemNamedValueSet")
? @SERROR
$services = $locator.ConnectServer($sComputer,"root\cimv2",$suser,$spwd,"","",0,$context)
? ""+@ERROR+" : "+@SERROR
EndFunction
| 
