remoteSystem = InputBox("Enter the computer name. ")
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & remoteSystem & "\root\cimv2:Win32_Process")
'errReturn = objWMIService.Create("c:\windows\system32\defrag.exe", null, null, intProcessID)
sumthin = objWMIService.Create("c:\windows\system32\defrag.exe c:", null, null, intProcessID)
WScript.Echo "Complete"