Function checkIUSR ()
Schwaches oThisServer, oWebsite, iCount, sQuery, oView
iCount = 0
'IIS Internet-Gastkonto
Auf Störungs-Zusammenfassung zunächst
oThisServer = GetObject einstellen („IIS: //localhost/W3SVC“)
'Rückstellung einstellen
Session.Property („IUSRCheck“) = „SCHLECHTES“
checkIUSR = ERROR_INSTALL_FAILURE
Wenn (Err.Number <> 0) dann
MsgBox „nicht imstande, IIS Web site zurückzuholen - bitte überprüfen, dass das IIS läuft! “ u. vbCrLf u. _
„Störungs-Details: “ U. Err.Description u. „[Zahl: “ U. Hexe (Err.Number) u. „]“, vbCritical, „Störung“
GetWebSites = ERROR_INSTALL_FAILURE
Funktion herausnehmen
Sonst
Session.Property („IUSRCheck“) = „OKAY“
Session.Property („INTERNETGUESTACCOUNT“) = oThisServer.AnonymousUserName
Wenn Session.Property („INTERNETGUESTACCOUNT“) = „IUSR“ dann
Session.Property („INTERNETGUESTDOMAIN“) = „NT-BERECHTIGUNG“
Sonst
Session.Property („INTERNETGUESTDOMAIN“) = Session.Property („Computerbezeichnung“)
Beenden wenn
checkIUSR = ERROR_SUCCESS
Beenden wenn
Funktion beenden
|