programm remote ausführen
hi!
habe ein problem dass wahrscheinlich viele schon kennen...
ich sollte ein programm auf einem anderen pc ausführen lassen (am besten mit vb.
ich hab zwar nen code nur das problem damit ist, wenn ich auf einem anderen rechner damit eine exe ausführe, wird sie zwar gestartet ( man sieht es im task manager) aber sie wird nicht wirklich ausgeführt... habe es ganz einfach mit einer msgbox in einer exe versucht und die exe läuft am remote system aber es kommt keine msgbox... hier der code für das remote ausführen:
'-------------------------------------- SERVERDATEN ---------------------------------
Server="192.168.0.1"
UID="administrator"
PWD="xxxx"
'-------------------------------------- PROGRAMMDATEN -------------------------------
Prog ="notepad.exe"
arg=""
Path=""
set obj = CreateObject("WBEMScripting.SWBEMLocator")
set wmi = obj.ConnectServer(Server,"root/cimv2",UID,PWD)
set result = wmi.ExecQuery("select * from win32_process WHERE name='" & Prog & "'")
set prg = wmi.Get("Win32_process")
on error resume next
do
if result.count>0 then
if Msgbox(Prog& " auf Server " & Server & " beenden ?",1)=1 then
For each process in result
process.terminate process.ProcessID
next
end if
exit do
else
if msgbox ("Programm " & Prog & " starten ?")=1 then
prg.Create Path & Prog & " " & arg,null,null
end if
end if
exit do
loop
'---------------------------------------------------------------------------------------------------
wer weiss wie ich das problem lösen kann?
|