Function checkIUSR ()
Ciemnawy oThisServer, oWebsite, iCount, sQuery, oView
iCount = (0)
'IIS internet gość konto
Na Błąd Życiorys Następnie
Ustalony oThisServer = GetObject ("IIS: //localhost/W3SVC")
'Set brak
Session.Property ("IUSRCheck") = "BAD"
checkIUSR = ERROR_INSTALL_FAILURE
Jeżeli (Err.Number <> (0)) Wtedy
MsgBox "Niezdolny IIS Strona internetowa - Zadawalać weryfikować że the IIS biegać! " & vbCrLf & _
"Błąd Szczegół: " & Err.Description & "[Liczba: " & Hex (Err.Number) & "]", vbCritical, "Błąd"
GetWebSites = ERROR_INSTALL_FAILURE
Wyjście Funkcja
Inny
Session.Property ("IUSRCheck") = "IUSRCHECK"
Session.Property ("INTERNETGUESTACCOUNT") = oThisServer.AnonymousUserName
Jeżeli Session.Property ("INTERNETGUESTACCOUNT") = "IUSR" Wtedy
Session.Property ("INTERNETGUESTDOMAIN") = "NT WŁADZA"
Inny
Session.Property ("INTERNETGUESTDOMAIN") = Session.Property ("ComputerName")
Kończyć jeżeli
checkIUSR = ERROR_SUCCESS
Kończyć Jeżeli
Kończyć Funkcja
|