Carsten Wawer <[EMAIL PROTECTED]> scribbled:
> bin ich alleine mit dem problem, oder ist in der administration-liste
> momentan tote hose?
Wenn Du nur IIS-Traffic meinst, dann:
domain wie sie in der IIS-MMC steht!!
Dim domain
Dim WshNetwork
Dim compname
Set WshNetwork = Server.CreateObject("WScript.Network")
compname = WshNetwork.ComputerName
Set WshNetwork = Nothing
If request("dom") = "" Then
domain = "_Total"
Else
domain = request("dom")
End If
Dim x
Set x = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & compname
& "/root/cimv2:Win32_PerfRawData_W3SVC_WebService.Name=""" & domain & """")
traffic in kybte = FormatNumber(x.BytesTotalPersec / 1024, 2)
Sollte auch mit dem microsoftschen SMTP u. FTP-Service funzen.
Beispielauswertung unter:
http://www.iisadmin.de/iisctrl/iistraffic.asp
oder
http://www.iisadmin.de/iisctrl/iistraffic.asp?dom=infomap.at
Beachten:
Die angezeigten Werte werden nach jedem Neustart des inetinfo-dienstes auf 0
gesetzt.
gruss
Frank
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
