Hallo, kann mir mal einer sagen warum der DNS Lookup nicht funzt?

REM On Error Resume Next

REM Daten ermitteln: Browser & Version
Set BC = Server.CreateObject("MSWC.BrowserType")
txtBro = bc.browser
if txtBro = "" Then txtBro = "-"
txtVer = bc.Version
if txtVer = "" Then txtVer = "-"
Set BC = Nothing

REM Daten ermitteln: IP-Adresse und Host-Name [letzteres nur bei
LookUp=True]
arrIP = Split(Request.ServerVariables("REMOTE_ADDR"),".")
If LookUp Then
   Set DNS = Server.CreateObject("DNS.NSLookup") 
   txtHost = DNS.RevNSLookup(Request.ServerVariables("REMOTE_ADDR"))
   Set DNS = Nothing
Else
   txtHost = "-"
End If

Hier die Fehlermeldung:
Serverobjekt'800401F3'
Server.CreateObject-Fehler
ASP Fehlercode: ASP 0177
ASP Fehler, Beschreibung: Ung�ltige ProgID Weitere Informationen zu
dieser Meldung finden Sie auf der Microsoft-Onlinesupportsite:
http://www.microsoft.com/contentredirect.asp. 
/benutzerverfolgung/stat.asp, Zeile 23

ASP DNS ist installiert, weiss nicht ob das damit zusammenh�ngt.

Helft mir bitte weiter.

Danke


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an