Hi,
Ive tried using the suggestions made but nothing seems to work. Im assuming that I am using the UDF correctly and replacing $computer in the example with $'mycomputer'. Do I need to install anything else?
Code:
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)
Steve.
_________________________
Dont worry because a rival imitates you. As long as they follow in your tracks they cant pass you!