code:

---

rmtexec("notepad.exe","wheelerc_2nd")
? @error @serror

;****************************************************************************************************
FUNCTION RMTEXEC($cmd, $computer, optional $pid)
	dim $rmt, $exec
	if not $pid	$pid=999	endif

	$rmt = GetObject("winmgmts:{impersonationLevel=impersonate}!\\$computer \root\cimv2:Win32_Process")
	$exec = $rmt.Create($cmd,,,$pid)

	exit @error
	ENDFUNCTION

---

code:

---

Function RemoteRun ($RemoteCommand, Optional $RemoteStartDir, Optional $ComputerName, Optional $AdminName, Optional $AdminPassword, Optional $NameSpace)
	Global $RemoteProcessPid
	If Not $ComputerName Or  $ComputerName = ''
		$ComputerName = @Wksta
	EndIf
	If $NameSpace = ''
		$NameSpace = 'root\cimv2'
	EndIf
	$SystemLocator = CreateObject ('WbemScripting.SWbemLocator')
	$SystemSet = $SystemLocator.ConnectServer($ComputerName, $NameSpace, $AdminName, $AdminPassword)
	If @Error <> 0
		$WMIQuery = ''
		Exit @Error
	EndIf
	$SystemSet.Security_.ImpersonationLevel = 3
	$ObjProcesses = $SystemSet.Get('Win32_Process')
	$ObjProcessIns = $ObjProcesses.Methods_('Create').InParameters.SpawnInstance_
	$ObjProcessIns.CommandLine = $RemoteCommand
	If $RemoteStartDir And $RemoteStartDir <> ''
		$ObjProcessIns.CurrentDirectory = $RemoteStartDir
	EndIf
	$ObjProcessOut = $SystemSet.ExecMethod('Win32_Process', 'Create', $ObjProcessIns)
	If @Error = 0
		$RemoteProcessPid = $ObjProcessOut.processid
	Else
		$RemoteProcessPid = ''
	EndIf
	Exit $ObjProcessOut.returnvalue
EndFunction

---

code:

---

set wmiobj=GetObject("winmgmts:")
set procobj = wmiobj.ExecQuery("Select * From Win32_Process Where Name = 'iexplore.exe'")
For each Process in procobj
RetVal = Process.GetOwner(struser,strdomain)
wscript.echo struser
wscript.echo strdomain
Next

---

code:

---

$computer = "@WKSTA"
$uName = "" 
$upass = ""
$namespace = "root\cimv2"
$command = "c:\winnt\system32\cmd.exe"
$sysloc = CreateObject("WbemScripting.SWbemLocator")
$sysset = $sysloc.ConnectServer($computer, $namespace, $uname, $upass)
$sysset.Security_.ImpersonationLevel = 3


$objProcStart = $sysset.Get("Win32_ProcessStartup")
$ProcStartInst = $objProcStart.SpawnInstance_
$ProcStartInst.Title = "Hi, How are you?"
$ProcStartInst.ShowWindow = 1 ; this part doesn't seem to work right.
$procStartInst.Put_


$objProc = $sysset.Get("Win32_Process")
$objProcInst = $ObjProc.Methods_("Create").InParameters.SpawnInstance_
$objProcInst.CommandLine = $command
$objProcInst.ProcessStartupInformation = $ProcStartInst
$objProcOut = $sysset.ExecMethod("Win32_Process","Create",$objProcInst)
$pid = $objProcOut.Processid
"PID used is: " + $pid

---