code:

---

Break On
 
$sComputer = "remote_pc"
 
$lLogoff = 0
$lShutdown = 1
$lReboot = 2
$lForce = 4
$lPoweroff = 8
 
$colOperatingSystems = GetObject("winmgmts:{(Shutdown)}!\\" + $sComputer + 
	"\root\cimv2").ExecQuery("Select * from Win32_OperatingSystem")
@ERROR ?
 
For Each $objOperatingSystem in $colOperatingSystems
	$nul=$objOperatingSystem.Win32Shutdown($lPoweroff)
	@ERROR ?
Next

---

code:

---

 Function RemoteLRS($computer,$x)
	dim $oWBEM, $oShutdown, $oOpSys
	;              0 - LogOff              4 - Force LogOff
	;              2 - Reboot              6 - Force Reboot
	;              8 - Shutdown           12 - Force Shutdown
	$oWBEM = GetObject('winmgmts:{(Shutdown)}!\\$computer\root\CIMV2')
	$oShutdown = $oWBEM.ExecQuery('Select * from Win32_OperatingSystem where Primary=true')
	if $oShutdown.count
		For Each $oOpSys in $oShutdown
			$RemoteLRS=$oOpSys.Win32Shutdown($x)
			Next
		endif
	$oShutdown=0  $oWBEM=0
	endfunction 

---