if wscript.arguments.count <> 2 then usage
if instr(wscript.arguments(0),"?") then usage
sServer=wscript.arguments(0)
sBat=wscript.arguments(1)
set oWMI=WMIConnect(sServer)
set oProc=oWMI.get("Win32_Process")
'set oProc = GetObject("winmgmts:\\usgctd119\root\cimv2:Win32_Process") '8 Unknown failure 
result = oProc.Create (sBat,null,null,processid)
WScript.Echo "Method returned result = " & result
WScript.Echo "Id of new process is " & processid



Function WMIConnect(sServer)
	'On Error Resume next
	Set oLocator=CreateObject("WbemScripting.SWbemLocator")
	Set oWMISvc=oLocator.ConnectServer(sServer,"root/cimV2")
	If Err.Number <> 0 Then
		WScript.Echo("error")
		sErr="0x"&Cstr(hex(Err.Number))
		sDesc=Err.Description
		Err.Clear()
		Set oWMISvc=oLocator.ConnectServer(sServer,"root/cimV2",,,,ntlmdomain)
		If Err.Number <> 0 Then
			WScript.Echo "Error "&sErr&" ("&sDesc&") connecting to WMI on server "&sServer
			Set WMIConnect=WScript.Name
			Exit Function
		End If	
	End If
	Set WMIConnect=oWMISvc
End Function

Sub Usage
	wscript.echo
	wscript.echo "Usage:"
	wscript.echo
	wscript.echo "cscript remrun.vbs <server> <full path to batchfile>"
	wscript.echo
	wscript.echo "Will kick off bat on server and return process id."
	wscript.echo
	wscript.quit
End Sub