Basic Network Tools in ASP

[Petzifun 10]

Hallo!

 

Ich möchte mir Basic Network-Tools in ASP realisieren ohne irgendwelche

Komponenten auf den Server zu installieren. Solche Dinge sind mir immer

etwas Suspekt. Ich weiß, ASP gehört hier nicht ganz her aber vielleicht kann

mir da jemand helfen. Bitte keine Antworten wie dann nimm PHP, das hilft

nicht weiter. Ich will nichts extra installieren auf dem Server.

 

Also habe ich mir folgendes gedacht ich benuttze dazu das Objekt

Server.CreateObject("Wscript.Shell")

 

Damit kann ich auf den cmd.exe zugreifen und dabei entsprechend

ping, nslookup aufrufen und das ergebnis geht in eine Textdatei

in der Form SessionID_ping.txt in einem Subdirectory.

 

Dazu folgender Code für nslookup:

 

-------------------------------------------------------------------

 

Dim sReadData 'As String

Dim fIpIsNextLine 'Ad Boolean

 

'Create Shell Object

Set oShell = Server.CreateObject("Wscript.Shell")

 

sTest = Session.SessionID & "nslookup.txt"

sDomain = "www.microsoft.at"

 

oShell.Run "%ComSpec% /c nslookup " & sDomain & " > " & Server.MapPath("/txt/" & sTest), 0, True

 

'Open the Text File and Read out the Data

Set FSO = Server.CreateObject("scripting.FileSystemObject")

Set oText = Fso.OpenTextFile(Server.MapPath("/txt/" & sTest))

 

Do While Not oText.AtEndOfStream

'Read In the Text Dump

sReadData = Trim(oText.Readline)

'If the domain name was found in the previous line read then this should be the IP.

 

if fIpIsNextLine Then DomainLookup = True

'If the domain name was found in the Read line then the tell it the

'next line is the Ip. If an IP address was not found then it should not

'return the domain we are looking for in the txt file.

Response.write sReadData & "<BR>"

if Instr(1, sReadData, sDomain) Then fIpIsNextLine = True

Loop

'Close it

oText.Close

'Delete It

FSO.DeleteFile Session.SessionID & sDomain & ".txt"

Set FSO = Nothing

 

------------------------------------------------------------------------------------

 

Doch ich erhalte einen Fehler und zwar:

 

--------------------------------------------------------------------------------

 

Laufzeitfehler in Microsoft VBscript Fehler "800a0046'

 

Erlaubnis verweigert.

 

/TEST/nslookup.asp, line 11

 

--------------------------------------------------------------------------------

 

 

Zeile 11 beginnt mit oShell.Run

 

Meine Vermutung liegt nahe, das die Rechte für das Verzeichnis

nicht korrekt gesetzt sind. Ich habe schon alles durchprobiert,

es klappt einfach nicht. Welche Rechte muß ich da korrekt setzen

damit in dem Verzeichnis geschrieben bzw erstellt bzw gelöscht

werden darf?

 

Der Server ist Domain-Member noch zu Info.

 

lg

Dirk aka Petzifun