SOftware / Programm starten

T

Thimo Grauerholz

hi,
eine gegenfrage, ist windows script auf deinem server möglich?
 
T

Thimo Grauerholz

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 :)
 

wiedsche

Mitglied
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?