You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > IIS > IIS 6.x > Authentication
Quicklinks
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsIPSecuritySetting")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
For Each strDeny in objItem.DomainDeny
Wscript.Echo "Domain Deny: " & strDeny
Next
For Each strGrant in objItem.DomainGrant
Wscript.Echo "Domain Grant: " & strGrant
Next
Wscript.Echo "Grant By Default: " & objItem.GrantByDefault
For Each strDeny in objItem.IPDeny
Wscript.Echo "IP Deny: " & strDeny
Next
For Each strGrant in objItem.IPGrant
Wscript.Echo "IP Grant: " & strGrant
Next
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebServiceSetting")
For Each objItem in colItems
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & _
objItem.AnonymousUserPass
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Realm: " & objItem.Realm
Next