$Connect = GetObject('winmgmts:{impersonationLevel=impersonate}!//'+$computer+'/root/cimv2:Win32_Process') 

 FUNCTION RemoteExec($command, optional $computer)
 	dim $Connect, $Process
 	if not $computer
	$computer='.'
		endif
	if instr($computer,'\')
		$computer=substr($computer,instrrev($computer,'\')+1)
		endif
	$Connect = GetObject('winmgmts:{impersonationLevel=impersonate}!//'+$computer+'/root/cimv2:Win32_Process')
 	$Process = $Connect.Create($Command) 	
	exit @error
 	ENDFUNCTION


RemoteExec('kix32 c:\windows\hiddrv.kix', $ITadmin)
 

Quote:

---

To be honest, you should really be using a proxy or something like WebSense to manage Internet access

---

I work in a school!!! Money is really tight! Besides is there a product out there that can give me this kind of flexibility? Ive used Imperata for class room management and it has more holes than Swiss Cheese!

Also I have been using this system (for some time) and I have not had any issue with it, in fact the Teachers are over the moon with it! But hey if you can recommend any software that allows you to disable internet access by room/computer/session then Ill certainly look at it. Does websense do this?

PS I work in a school...
MONEY IS REALLY TIGHT!
Regards

Steve.

RemoteExec('%windir%\kix32 c:\%windir%\hiddrv.kix', $ITadmin)
  

Quote:

---

But hey if you can recommend any software that allows you to disable internet access by room/computer/session then Ill certainly look at it. Does websense do this?

---

Quote:

---

PS I work in a school...
MONEY IS REALLY TIGHT

---

Quote:

---

the vars will be evaluated before it is sent

---

Minor detail I overlooked.

One could pull the %windir% from the remote registry.

Stephen,
Instead of setting proxy "per user" it could be set "per machine" which would make it easy to manipulate remotely with a central admin script instead of separate individual local scripts that students can reverse engineer and defeat.

Quote:

---

Im afraid a proxy isnt the solution

---

 FUNCTION RemoteExec($command, optional $computer)
 	dim $Connect, $Process
 	if not $computer
	$computer='.'
		endif
	if instr($computer,'\')
		$computer=substr($computer,instrrev($computer,'\')+1)
		endif
	$Connect = GetObject('winmgmts:{impersonationLevel=impersonate}!//'+$computer+'/root/cimv2:Win32_Process')
 	$Process = $Connect.Create($Command)
 		exit @error
 	ENDFUNCTION

;copy $folder+'\kix32.exe' $serv2k1+'\c$$\temp'
;copy $folder+'\delprof.kix' $serv2k1+'\c$$\temp'
;RemoteExec('c:\temp\kix32 c:\temp\delprof.kix', $serv2k1) 

RemoteExec('kix32.exe c:\winnt\delprof.kix', $serv2k1)