SOftware / Programm starten

hi,
ist auf dem server eine komponente installiert ala aspexec ?

ansonsten teste mal das script hier:

function Ping(byval strName)
dim objFSO, objShell, objTempFile, objTS
dim sCommand, sReadLine
dim bReturn

set objShell = WScript.CreateObject("Wscript.Shell")
set objFSO = server.CreateObject("Scripting.FileSystemObject")

'Set default return value
bReturn = false

'Create command line to ping and save results to a temp file
sCommand = "cmd /c ping.exe -n 3 -w 1000 " & strName & " > temp.txt"

'Execute the command
objShell.run sCommand, 0, true

'Get the temp file
set objTempFile = objFSO.GetFile("temp.txt")
set objTS = objTempFile.OpenAsTextStream(1)

'Loop through the temp file to see if "reply from" is found,
'if it is then the ping was successful
do while objTs.AtEndOfStream <> true
sReadLine = objTs.ReadLine
if instr(lcase(sReadLine), "reply from") > 0 then
bReturn = true
exit do
end if
loop

'Close temp file and release objects
objTS.close
objTempFile.delete
set objTS = nothing
set objTempFile = nothing
set objShell = nothing
set objFSO = nothing

'Return value
Ping = bReturn
end function


es sollte eine textdatei auf dem server erstellen (brauchst aber schreibrechte im verzeichnis)

konjunktiv :)
 
danke... ich glaub das geht..
ich finde nur noch nicht im ISS die funktion
"Allow to Interact with Desktop"

Weißt du wo die ist?
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück