;See the UDF: fnWMIService - Use the Win32_Service class of WMI to control services
;http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=83246

;To do the remote execution of the "wuauclt /resetauthorization /detectnow" look at this UDF
;RemoteExec() - execute a process on remote PCs
;http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=83206

If Not @LogonMode
Break On
EndIf
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
$SO=SetOption('WrapAtEOL','On')

Dim $sComputer, $sComputers, $Key
$sComputers = 'PC1','PC2','PC3','PC4'
$Key = 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\'
For Each $sComputer In $sComputers
$sComputer=IIf(Not $sComputer,'','\\'+Join(Split($sComputer,'\'),'',3)+'\')
If $sComputer
$Nul = DelValue($sComputer+$Key,'AccountDomainSid')
$Nul = DelValue($sComputer+$Key,'PingID')
$Nul = DelValue($sComputer+$Key,'SusClientId')
$Nul = fnWMIService('wuauserv','stop',$sComputer)
$Nul = fnWMIService('wuauserv','start',$sComputer)
EndIf
Next

Function fnWMIService($sService,$sMethod,Optional $sComputer)
Dim $objWMI,$objSrvc,$nul
If Not $sComputer $sComputer=@WKSTA EndIf
$objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$sComputer+"\root\cimv2")
If @ERROR<0 Exit VAL("&"+Right(DecToHex(@ERROR),4)) EndIf
$objSrvc = $objWMI.ExecQuery('Select * from Win32_Service WHERE Name = "'+$sService+'"')
For Each $objSrvc in $objSrvc
$nul=Execute("$"+"fnWMIService = $"+"objSrvc."+$sMethod)
Next
EndFunction

;Set the option to cancel the script withour beeing logged off
;when it does NOT Run as a logonscript.
If NOT @LOGONMODE
Break on
EndIf

;Put all computers into an array.
$sComputers = Split("computer1~computer2", "~")
$key = "put the registrykey here"

;Execute the command bellow on each computewr from the array filled above.
For Each $sComputer In $sComputers
;Delete the registry keys.
$Nul = DelValue("\\"+$sComputer+"\"+$Key,'AccountDomainSid')
?@ERROR
?@SERROR
Sleep 2
$Nul = DelValue("\\"+$sComputer+"\"+$Key,'PingID')
?@ERROR
?@SERROR
Sleep 2
$Nul = DelValue("\\"$sComputer+"\"+$Key,'SusClientId')
?@ERROR
?@SERROR
Sleep 2
;Stop and start the windows update service so new stuff gets initialized.
$Nul = fnWMIService('wuauserv','stop',$sComputer)
$Nul = fnWMIService('wuauserv','start',$sComputer)
Next

Ok, You got your array messed up. Fixed that. The "~" part is the delimiter used in the array so it should be the character that separates the values in your array and not the a computer name. The HKLM shortcut Jooel is talking about works for me in remote admin scripts but it would be worth the labour to change it to the full path if it does not work..

Code:


;See the UDF: fnWMIService - Use the Win32_Service class of WMI to control services 
;http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=83246 

;To do the remote execution of the "wuauclt /resetauthorization /detectnow" look at this UDF 
;RemoteExec() - execute a process on remote PCs 
;http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=83206 

If NOT @LogonMode
	Break On
EndIf

Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
$SO=SetOption('WrapAtEOL','On')

Dim $sComputer, $sComputers, $Key, $Nul

;Put all computers into an array.
$sComputers = Split("wrender-lap~fe-crosstec", "~")
$key = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\"

;Execute the command bellow on each computer from the array filled above.
For Each $sComputer In $sComputers
	;Delete the registry keys.
	$Nul = DelValue("\\"+$sComputer+"\"+$Key,'AccountDomainSid')
	?@ERROR
	?@SERROR
	Sleep 2
	$Nul = DelValue("\\"+$sComputer+"\"+$Key,'PingID')
	?@ERROR
	?@SERROR
	Sleep 2
	$Nul = DelValue("\\"+$sComputer+"\"+$Key,'SusClientId')
	?@ERROR
	?@SERROR
	Sleep 2
	;Stop and start the windows update service so new stuff gets initialized.
	$Nul = fnWMIService('wuauserv','stop',$sComputer)
	$Nul = fnWMIService('wuauserv','start',$sComputer)
Next

Function fnWMIService($sService,$sMethod,Optional $sComputer)
	Dim $objWMI,$objSrvc,$nul
	If NOT $sComputer
		$sComputer=@WKSTA
	EndIf
	$objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"+$sComputer+"\root\cimv2")
	If @ERROR<0
		Exit Val("&"+Right(DecToHex(@ERROR),4))
	EndIf
	$objSrvc = $objWMI.ExecQuery('Select * from Win32_Service WHERE Name = "'+$sService+'"')
	For Each $objSrvc in $objSrvc
		$nul=Execute("$"+"fnWMIService = $"+"objSrvc."+$sMethod)
	Next
EndFunction

One other thing... could you use the code tags when posting code? The formatting stays as is when code tags are ussed so it is much easier to read the script.

0
The operation completed successfully
2
The system cannot find the file specified.
0
The operation completed successfully.
53
The network path was not found.
53
The network path was not found.
53
The network path was not found.