You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > IIS > IIS 6.x > Web
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 objWebService = objWMIService.ExecQuery _
("Select * From IISWebService")
arrBindings = Array(0)
Set arrBindings(0) = _
objWMIService.Get("ServerBinding").SpawnInstance_()
arrBindings(0).IP = "192.168.1.1"
arrBindings(0).Port = "8383"
arrBindings(0).Hostname = "atl-ws-01"
For Each objItem in objWebService
objItem.CreateNewSite "Test Site", arrBindings, _
"c:\inetpub\wwwroot"
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")
For Each objItem in colItems
objItem.Continue
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 "Allow Keep Alive: " & objItem.AllowKeepAlive
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Server Comment: " & objItem.ServerComment
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebVirtualDir")
For Each objItem in colItems
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebVirtualDirSetting")
For Each objItem in colItems
Wscript.Echo "Access Execute: " & objItem.AccessExecute
Wscript.Echo "Access Flags: " & objItem.AccessFlags
Wscript.Echo "Access No Physical Directory: " & _
objItem.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objItem.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & objItem.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objItem.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & objItem.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objItem.AccessRead
Wscript.Echo "Access Script: " & objItem.AccessScript
Wscript.Echo "Access Source: " & objItem.AccessSource
Wscript.Echo "Access SSL: " & objItem.AccessSSL
Wscript.Echo "Access SSL 128: " & objItem.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objItem.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & _
objItem.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objItem.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objItem.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objItem.AccessWrite
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & objItem.AnonymousUserPass
Wscript.Echo "Application Allow Client Debug: " & _
objItem.AppAllowClientDebug
Wscript.Echo "Application Allow Debugging: " & _
objItem.AppAllowDebugging
Wscript.Echo "Application Friendly Name: " & objItem.AppFriendlyName
Wscript.Echo "Application Oop Recover Limit: " & _
objItem.AppOopRecoverLimit
Wscript.Echo "Application Pool Id: " & objItem.AppPoolId
Wscript.Echo "Application Wam Clsid: " & objItem.AppWamClsid
Wscript.Echo "ASP Allow Out Of Process Components: " & _
objItem.AspAllowOutOfProcComponents
Wscript.Echo "ASP Allow Session State: " & _
objItem.AspAllowSessionState
Wscript.Echo "ASP Application Service Flags: " & _
objItem.AspAppServiceFlags
Wscript.Echo "ASP Buffering Limit: " & objItem.AspBufferingLimit
Wscript.Echo "ASP Buffering On: " & objItem.AspBufferingOn
Wscript.Echo "ASP Calc Line Number: " & objItem.AspCalcLineNumber
Wscript.Echo "ASP Codepage: " & objItem.AspCodepage
Wscript.Echo "ASP Disk Template Cache Directory: " & _
objItem.AspDiskTemplateCacheDirectory
Wscript.Echo "ASP Enable Application Restart: " & _
objItem.AspEnableApplicationRestart
Wscript.Echo "ASP Enable ASP Html Fallback: " & _
objItem.AspEnableAspHtmlFallback
Wscript.Echo "ASP Enable Chunked Encoding: " & _
objItem.AspEnableChunkedEncoding
Wscript.Echo "ASP Enable Parent Paths: " & _
objItem.AspEnableParentPaths
Wscript.Echo "ASP Enable Sxs: " & objItem.AspEnableSxs
Wscript.Echo "ASP Enable Tracker: " & objItem.AspEnableTracker
Wscript.Echo "ASP Enable Typelib Cache: " & _
objItem.AspEnableTypelibCache
Wscript.Echo "ASP Errors To NT Log: " & objItem.AspErrorsToNTLog
Wscript.Echo "ASP Exception Catch Enable: " & _
objItem.AspExceptionCatchEnable
Wscript.Echo "ASP Execute In MTA: " & objItem.AspExecuteInMTA
Wscript.Echo "ASP Keep Session ID Secure: " & _
objItem.AspKeepSessionIDSecure
Wscript.Echo "ASP LCID: " & objItem.AspLCID
Wscript.Echo "ASP Log Error Requests: " & _
objItem.AspLogErrorRequests
Wscript.Echo "ASP Maximum Disk Template Cache Files: " & _
objItem.AspMaxDiskTemplateCacheFiles
Wscript.Echo "ASP Maximum Request Entity Allowed: " & _
objItem.AspMaxRequestEntityAllowed
Wscript.Echo "ASP Partition ID: " & objItem.AspPartitionID
Wscript.Echo "ASP Processor Thread Maximum: " & _
objItem.AspProcessorThreadMax
Wscript.Echo "ASP Queue Connection Test Time: " & _
objItem.AspQueueConnectionTestTime
Wscript.Echo "ASP Queue Timeout: " & objItem.AspQueueTimeout
Wscript.Echo "ASP Request Queue Maximum: " & _
objItem.AspRequestQueueMax
Wscript.Echo "AspRunOnEndAnonymously: " & _
objItem.AspRunOnEndAnonymously
Wscript.Echo "ASP Script Engine Cache Max: " & _
objItem.AspScriptEngineCacheMax
Wscript.Echo "ASP Script Error Message: " & _
objItem.AspScriptErrorMessage
Wscript.Echo "ASP Script Error Sent To Browser: " & _
objItem.AspScriptErrorSentToBrowser
Wscript.Echo "ASP Script File Cache Size: " & _
objItem.AspScriptFileCacheSize
Wscript.Echo "ASP Script Language: " & objItem.AspScriptLanguage
Wscript.Echo "ASP Script Timeout: " & objItem.AspScriptTimeout
Wscript.Echo "ASP Session Maximum: " & objItem.AspSessionMax
Wscript.Echo "ASP Session Timeout: " & objItem.AspSessionTimeout
Wscript.Echo "ASP Sxs Name: " & objItem.AspSxsName
Wscript.Echo "ASP Track Threading Model: " & _
objItem.AspTrackThreadingModel
Wscript.Echo "ASP Use Partition: " & objItem.AspUsePartition
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication Flags: " & objItem.AuthFlags
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Authentication Persistence: " & _
objItem.AuthPersistence
Wscript.Echo "Authentication Persist Single Request: " & _
objItem.AuthPersistSingleRequest
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Impersonation Level: " & objItem.AzImpersonationLevel
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "BITS Allow Overwrites: " & objItem.BITSAllowOverwrites
Wscript.Echo "BITS Cleanup Work Item Key: " & _
objItem.BITSCleanupWorkItemKey
Wscript.Echo "BITS Host ID: " & objItem.BITSHostId
Wscript.Echo "BITS Host ID Fallback Timeout: " & _
objItem.BITSHostIdFallbackTimeout
Wscript.Echo "BITS Maximum Upload Size: " & _
objItem.BITSMaximumUploadSize
Wscript.Echo "BITS Server Notification Type: " & _
objItem.BITSServerNotificationType
Wscript.Echo "BITS Server Notification URL: " & _
objItem.BITSServerNotificationURL
Wscript.Echo "BITS Session Directory: " & _
objItem.BITSSessionDirectory
Wscript.Echo "BITS Session Timeout: " & objItem.BITSSessionTimeout
Wscript.Echo "BITS Upload Enabled: " & objItem.BITSUploadEnabled
Wscript.Echo "BITS Upload Metadata Version: " & _
objItem.BITSUploadMetadataVersion
Wscript.Echo "Cache Control Custom: " & objItem.CacheControlCustom
Wscript.Echo "Cache Control Maximum Age: " & _
objItem.CacheControlMaxAge
Wscript.Echo "Cache Control No Cache: " & objItem.CacheControlNoCache
Wscript.Echo "Cache ISAPI: " & objItem.CacheISAPI
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CGI Timeout: " & objItem.CGITimeout
Wscript.Echo "Content Indexed: " & objItem.ContentIndexed
Wscript.Echo "Create CGI With New Console: " & _
objItem.CreateCGIWithNewConsole
Wscript.Echo "Create Process As User: " & objItem.CreateProcessAsUser
Wscript.Echo "Default Doc: " & objItem.DefaultDoc
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Directory Browse Flags: " & objItem.DirBrowseFlags
Wscript.Echo "Directory Browse Show Date: " & objItem.DirBrowseShowDate
Wscript.Echo "Directory Browse Show Extension: " & _
objItem.DirBrowseShowExtension
Wscript.Echo "Directory Browse Show Long Date: " & _
objItem.DirBrowseShowLongDate
Wscript.Echo "Directory Browse Show Size: " & objItem.DirBrowseShowSize
Wscript.Echo "Directory Browse Show Time: " & objItem.DirBrowseShowTime
Wscript.Echo "Disable Static File Cache: " & _
objItem.DisableStaticFileCache
Wscript.Echo "Do Dynamic Compression: " & objItem.DoDynamicCompression
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Do Static Compression: " & objItem.DoStaticCompression
Wscript.Echo "Enable Default Doc: " & objItem.EnableDefaultDoc
Wscript.Echo "Enable Directory Browsing: " & objItem.EnableDirBrowsing
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
Wscript.Echo "Enable Reverse Dns: " & objItem.EnableReverseDns
Wscript.Echo "FrontPage Web: " & objItem.FrontPageWeb
Wscript.Echo "Http Expires: " & objItem.HttpExpires
Wscript.Echo "Http Redirect: " & objItem.HttpRedirect
Wscript.Echo "Logon Method: " & objItem.LogonMethod
Wscript.Echo "Maximum Request Entity Allowed: " & _
objItem.MaxRequestEntityAllowed
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Passport Require AD Mapping: " & _
objItem.PassportRequireADMapping
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "Pool Idc Timeout: " & objItem.PoolIdcTimeout
Wscript.Echo "Realm: " & objItem.Realm
For Each strHeader in objItem.RedirectHeaders
Wscript.Echo "Redirect Headers: " & strHeader
Next
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Shutdown Time Limit: " & objItem.ShutdownTimeLimit
Wscript.Echo "SSI Exec Disable: " & objItem.SSIExecDisable
Wscript.Echo "UNC Password: " & objItem.UNCPassword
Wscript.Echo "UNC User Name: " & objItem.UNCUserName
Wscript.Echo "Upload Read Ahead Size: " & objItem.UploadReadAheadSize
Wscript.Echo "Use Digest SSP: " & objItem.UseDigestSSP
Wscript.Echo "Win32 Error: " & objItem.Win32Error
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebDirectory")
For Each objItem in colItems
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Status: " & objItem.Status
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebDirectorySetting")
For Each objItem in colItems
Wscript.Echo "Access Execute: " & objItem.AccessExecute
Wscript.Echo "Access Flags: " & objItem.AccessFlags
Wscript.Echo "Access No Physical Directory: " & _
objItem.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objItem.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & _
objItem.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objItem.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & _
objItem.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objItem.AccessRead
Wscript.Echo "Access Script: " & objItem.AccessScript
Wscript.Echo "Access Source: " & objItem.AccessSource
Wscript.Echo "Access SSL: " & objItem.AccessSSL
Wscript.Echo "Access SSL 128: " & objItem.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objItem.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & _
objItem.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objItem.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objItem.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objItem.AccessWrite
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & o_
bjItem.AnonymousUserPass
Wscript.Echo "Application Allow Client Debug: " & _
objItem.AppAllowClientDebug
Wscript.Echo "Application Allow Debugging: " & _
objItem.AppAllowDebugging
Wscript.Echo "Application Friendly Name: " & _
objItem.AppFriendlyName
Wscript.Echo "Application Oop Recover Limit: " & _
objItem.AppOopRecoverLimit
Wscript.Echo "Application Pool ID: " & objItem.AppPoolId
Wscript.Echo "Application Wam Clsid: " & objItem.AppWamClsid
Wscript.Echo "ASP Allow Out Of Process Components: " & _
objItem.AspAllowOutOfProcComponents
Wscript.Echo "ASP Allow Session State: " & _
objItem.AspAllowSessionState
Wscript.Echo "ASP Application Service Flags: " & _
objItem.AspAppServiceFlags
Wscript.Echo "ASP Buffering Limit: " & objItem.AspBufferingLimit
Wscript.Echo "ASP Buffering On: " & objItem.AspBufferingOn
Wscript.Echo "ASP Calc Line Number: " & objItem.AspCalcLineNumber
Wscript.Echo "ASP Codepage: " & objItem.AspCodepage
Wscript.Echo "ASP Disk Template Cache Directory: " & _
objItem.AspDiskTemplateCacheDirectory
Wscript.Echo "ASP Enable Application Restart: " & _
objItem.AspEnableApplicationRestart
Wscript.Echo "ASP Enable ASP Html Fallback: " & _
objItem.AspEnableAspHtmlFallback
Wscript.Echo "ASP Enable Chunked Encoding: " & _
objItem.AspEnableChunkedEncoding
Wscript.Echo "ASP Enable Parent Paths: " & _
objItem.AspEnableParentPaths
Wscript.Echo "ASP Enable Sxs: " & objItem.AspEnableSxs
Wscript.Echo "ASP Enable Tracker: " & objItem.AspEnableTracker
Wscript.Echo "ASP Enable Typelib Cache: " & _
objItem.AspEnableTypelibCache
Wscript.Echo "ASP Errors To NT Log: " & objItem.AspErrorsToNTLog
Wscript.Echo "ASP Exception Catch Enable: " & _
objItem.AspExceptionCatchEnable
Wscript.Echo "ASP Execute In MTA: " & objItem.AspExecuteInMTA
Wscript.Echo "ASP Keep Session ID Secure: " & o_
bjItem.AspKeepSessionIDSecure
Wscript.Echo "ASP LCID: " & objItem.AspLCID
Wscript.Echo "ASP Log Error Requests: " & _
objItem.AspLogErrorRequests
Wscript.Echo "ASP Max Disk Template Cache Files: " & _
objItem.AspMaxDiskTemplateCacheFiles
Wscript.Echo "ASP Max Request Entity Allowed: " & _
objItem.AspMaxRequestEntityAllowed
Wscript.Echo "ASP Partition ID: " & objItem.AspPartitionID
Wscript.Echo "ASP Processor Thread Max: " & objItem.AspProcessorThreadMax
Wscript.Echo "ASP Queue Connection Test Time: " & _
objItem.AspQueueConnectionTestTime
Wscript.Echo "ASP Queue Timeout: " & objItem.AspQueueTimeout
Wscript.Echo "ASP Request Queue Max: " & objItem.AspRequestQueueMax
Wscript.Echo "ASP Run On End Anonymously: " & _
objItem.AspRunOnEndAnonymously
Wscript.Echo "ASP Script Engine Cache Maximum: " & _
objItem.AspScriptEngineCacheMax
Wscript.Echo "ASP Script Error Message: " & objItem.AspScriptErrorMessage
Wscript.Echo "ASP Script Error Sent To Browser: " & _
objItem.AspScriptErrorSentToBrowser
Wscript.Echo "ASP Script File Cache Size: " & _
objItem.AspScriptFileCacheSize
Wscript.Echo "ASP Script Language: " & objItem.AspScriptLanguage
Wscript.Echo "ASP Script Timeout: " & objItem.AspScriptTimeout
Wscript.Echo "ASP Session Maximum: " & objItem.AspSessionMax
Wscript.Echo "ASP Session Timeout: " & objItem.AspSessionTimeout
Wscript.Echo "ASP Sxs Name: " & objItem.AspSxsName
Wscript.Echo "ASP Track Threading Model: " & _
objItem.AspTrackThreadingModel
Wscript.Echo "ASP Use Partition: " & objItem.AspUsePartition
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication Flags: " & objItem.AuthFlags
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Authentication Persistence: " & objItem.AuthPersistence
Wscript.Echo "Authentication PersistSingleRequest: " & _
objItem.AuthPersistSingleRequest
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Impersonation Level: " & objItem.AzImpersonationLevel
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Cache Control Custom: " & objItem.CacheControlCustom
Wscript.Echo "Cache Control Maximum Age: " & objItem.CacheControlMaxAge
Wscript.Echo "Cache Control No Cache: " & objItem.CacheControlNoCache
Wscript.Echo "Cache ISAPI: " & objItem.CacheISAPI
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CGI Timeout: " & objItem.CGITimeout
Wscript.Echo "Content Indexed: " & objItem.ContentIndexed
Wscript.Echo "Create CGI With New Console: " & _
objItem.CreateCGIWithNewConsole
Wscript.Echo "Create Process As User: " & objItem.CreateProcessAsUser
Wscript.Echo "Default Doc: " & objItem.DefaultDoc
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Directory Browse Flags: " & objItem.DirBrowseFlags
Wscript.Echo "Directory Browse Show Date: " & _
objItem.DirBrowseShowDate
Wscript.Echo "Directory Browse Show Extension: " & _
objItem.DirBrowseShowExtension
Wscript.Echo "Directory Browse Show Long Date: " & _
objItem.DirBrowseShowLongDate
Wscript.Echo "Directory Browse Show Size: " & objItem.DirBrowseShowSize
Wscript.Echo "Directory Browse Show Time: " & objItem.DirBrowseShowTime
Wscript.Echo "Disable Static File Cache: " & _
objItem.DisableStaticFileCache
Wscript.Echo "Do Dynamic Compression: " & objItem.DoDynamicCompression
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Do Static Compression: " & objItem.DoStaticCompression
Wscript.Echo "Enable Default Doc: " & objItem.EnableDefaultDoc
Wscript.Echo "Enable Dir Browsing: " & objItem.EnableDirBrowsing
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
Wscript.Echo "Enable Reverse DNS: " & objItem.EnableReverseDns
Wscript.Echo "FrontPage Web: " & objItem.FrontPageWeb
Wscript.Echo "Http Expires: " & objItem.HttpExpires
Wscript.Echo "Http Redirect: " & objItem.HttpRedirect
Wscript.Echo "Logon Method: " & objItem.LogonMethod
Wscript.Echo "Maximum Request Entity Allowed: " & _
objItem.MaxRequestEntityAllowed
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Passport Require AD Mapping: " & _
objItem.PassportRequireADMapping
Wscript.Echo "Pool Idc Timeout: " & objItem.PoolIdcTimeout
Wscript.Echo "Realm: " & objItem.Realm
For Each strHeader in objItem.RedirectHeaders
Wscript.Echo "Redirect Headers: " & strHeader
Next
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Shutdown TimeL imit: " & objItem.ShutdownTimeLimit
Wscript.Echo "SSI Exec Disable: " & objItem.SSIExecDisable
Wscript.Echo "Upload Read Ahead Size: " & _
objItem.UploadReadAheadSize
Wscript.Echo "Use Digest SSP: " & objItem.UseDigestSSP
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebFile")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebFileSetting")
For Each objItem in colItems
Wscript.Echo "Access Execute: " & objItem.AccessExecute
Wscript.Echo "Access Flags: " & objItem.AccessFlags
Wscript.Echo "Access No Physical Directory : " & _
objItem.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objItem.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & objItem.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objItem.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & objItem.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objItem.AccessRead
Wscript.Echo "Access Script: " & objItem.AccessScript
Wscript.Echo "Access Source: " & objItem.AccessSource
Wscript.Echo "Access SSL: " & objItem.AccessSSL
Wscript.Echo "Access SSL 128: " & objItem.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objItem.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & objItem.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objItem.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objItem.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objItem.AccessWrite
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
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 Flags: " & objItem.AuthFlags
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "AuthenticationPassport: " & objItem.AuthPassport
Wscript.Echo "Authentication Persistence: " & objItem.AuthPersistence
Wscript.Echo "Authentication Persist Single Request: " & _
objItem.AuthPersistSingleRequest
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Impersonation Level: " & objItem.AzImpersonationLevel
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Cache Control Custom: " & objItem.CacheControlCustom
Wscript.Echo "Cache Control Maximum Age: " & objItem.CacheControlMaxAge
Wscript.Echo "Cache Control No Cache: " & objItem.CacheControlNoCache
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CGI Timeout: " & objItem.CGITimeout
Wscript.Echo "Create CGI With New Console: " & _
objItem.CreateCGIWithNewConsole
Wscript.Echo "Create Process As User: " & objItem.CreateProcessAsUser
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disable Static File Cache: " & _
objItem.DisableStaticFileCache
Wscript.Echo "Do Dynamic Compression: " & objItem.DoDynamicCompression
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Do Static Compression: " & objItem.DoStaticCompression
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
Wscript.Echo "Enable Reverse Dns: " & objItem.EnableReverseDns
Wscript.Echo "Http Expires: " & objItem.HttpExpires
Wscript.Echo "Http Redirect: " & objItem.HttpRedirect
Wscript.Echo "Logon Method: " & objItem.LogonMethod
Wscript.Echo "Maximum Request Entity Allowed: " & _
objItem.MaxRequestEntityAllowed
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Passport Require AD Mapping: " & _
objItem.PassportRequireADMapping
Wscript.Echo "Pool Idc Timeout: " & objItem.PoolIdcTimeout
Wscript.Echo "Realm: " & objItem.Realm
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "SSI Exec Disable: " & objItem.SSIExecDisable
Wscript.Echo "Upload Read Ahead Size: " & _
objItem.UploadReadAheadSize
Wscript.Echo "Use Digest SSP: " & objItem.UseDigestSSP
Wscript.Echo
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebService")
For Each objItem in colItems
Wscript.Echo "Accept Pause: " & objItem.AcceptPause
Wscript.Echo "Accept Stop: " & objItem.AcceptStop
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & _
objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Check Point: " & objItem.CheckPoint
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Desktop Interact: " & objItem.DesktopInteract
Wscript.Echo "Display Name: " & objItem.DisplayName
Wscript.Echo "Error Control: " & objItem.ErrorControl
Wscript.Echo "Exit Code: " & objItem.ExitCode
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Path Name: " & objItem.PathName
Wscript.Echo "Process ID: " & objItem.ProcessId
Wscript.Echo "Service Specific Exit Code: " & _
objItem.ServiceSpecificExitCode
Wscript.Echo "Service Type: " & objItem.ServiceType
Wscript.Echo "SSL Certificate Hash: " & objItem.SSLCertHash
Wscript.Echo "Started: " & objItem.Started
Wscript.Echo "Start Mode: " & objItem.StartMode
Wscript.Echo "Start Name: " & objItem.StartName
Wscript.Echo "State: " & objItem.State
Wscript.Echo "Status: " & objItem.Status
Wscript.Echo "Tag Id: " & objItem.TagId
Wscript.Echo "Wait Hint: " & objItem.WaitHint
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 "Default Doc: " & objItem.DefaultDoc
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Enable Default Doc: " & objItem.EnableDefaultDoc
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
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 "Application Pool ID: " & objItem.AppPoolId
Wscript.Echo "Content Indexed: " & objItem.ContentIndexed
Wscript.Echo "Don't Log: " & objItem.DontLog
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebServer")
For Each objItem in colItems
Wscript.Echo "Application Isolated: " & objItem.AppIsolated
Wscript.Echo "Application Package ID: " & objItem.AppPackageID
Wscript.Echo "Application Package Name: " & objItem.AppPackageName
Wscript.Echo "Application Root: " & objItem.AppRoot
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Server State: " & objItem.ServerState
Wscript.Echo "Status: " & objItem.Status
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 "Maximum Bandwidth: " & objItem.MaxBandwidth
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsWebServerSetting")
For Each objItem in colItems
Wscript.Echo "Access Execute: " & objItem.AccessExecute
Wscript.Echo "Access Flags: " & objItem.AccessFlags
Wscript.Echo "Access No Physical Directory: " & _
objItem.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objItem.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & objItem.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objItem.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & objItem.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objItem.AccessRead
Wscript.Echo "Access Script: " & objItem.AccessScript
Wscript.Echo "Access Source: " & objItem.AccessSource
Wscript.Echo "Access SSL: " & objItem.AccessSSL
Wscript.Echo "Access SSL 128: " & objItem.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objItem.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & _
objItem.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objItem.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objItem.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objItem.AccessWrite
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Allow Keep Alive: " & objItem.AllowKeepAlive
Wscript.Echo "Allow Path Information For Script Mappings: " & _
objItem.AllowPathInfoForScriptMappings
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & objItem.AnonymousUserPass
Wscript.Echo "Applocation Allow Client Debug: " & _
objItem.AppAllowClientDebug
Wscript.Echo "Application Allow Debugging: " & _
objItem.AppAllowDebugging
Wscript.Echo "Application Friendly Name: " & objItem.AppFriendlyName
Wscript.Echo "Application Oop Recover Limit: " & _
objItem.AppOopRecoverLimit
Wscript.Echo "Application Pool Id: " & objItem.AppPoolId
Wscript.Echo "Application Wam Clsid: " & objItem.AppWamClsid
Wscript.Echo "ASP Allow Out Of Process Components: " & _
objItem.AspAllowOutOfProcComponents
Wscript.Echo "ASP Allow Session State: " & _
objItem.AspAllowSessionState
Wscript.Echo "ASP Application Service Flags: " & _
objItem.AspAppServiceFlags
Wscript.Echo "ASP Buffering Limit: " & objItem.AspBufferingLimit
Wscript.Echo "ASP Buffering On: " & objItem.AspBufferingOn
Wscript.Echo "ASP Calc Line Number: " & objItem.AspCalcLineNumber
Wscript.Echo "ASP Codepage: " & objItem.AspCodepage
Wscript.Echo "ASP Disk Template Cache Directory: " & _
objItem.AspDiskTemplateCacheDirectory
Wscript.Echo "ASP Enable Application Restart: " & _
objItem.AspEnableApplicationRestart
Wscript.Echo "ASP Enable ASP Html Fallback: " & _
objItem.AspEnableAspHtmlFallback
Wscript.Echo "ASP Enable Chunked Encoding: " & o_
bjItem.AspEnableChunkedEncoding
Wscript.Echo "ASP Enable Parent Paths: " & _
objItem.AspEnableParentPaths
Wscript.Echo "ASP Enable Sxs: " & objItem.AspEnableSxs
Wscript.Echo "ASP Enable Tracker: " & objItem.AspEnableTracker
Wscript.Echo "ASP Enable Typelib Cache: " & _
objItem.AspEnableTypelibCache
Wscript.Echo "ASP Errors To NT Log: " & objItem.AspErrorsToNTLog
Wscript.Echo "ASP Exception Catch Enable: " & _
objItem.AspExceptionCatchEnable
Wscript.Echo "ASP Execute In MTA: " & objItem.AspExecuteInMTA
Wscript.Echo "ASP Keep Session ID Secure: " & _
objItem.AspKeepSessionIDSecure
Wscript.Echo "ASP LCID: " & objItem.AspLCID
Wscript.Echo "ASP Log Error Requests: " & _
objItem.AspLogErrorRequests
Wscript.Echo "ASP Maximum Disk Template Cache Files: " & _
objItem.AspMaxDiskTemplateCacheFiles
Wscript.Echo "ASP Maximum Request Entity Allowed: " & _
objItem.AspMaxRequestEntityAllowed
Wscript.Echo "ASP Partition ID: " & objItem.AspPartitionID
Wscript.Echo "ASP Processor Thread Maximum: " & _
objItem.AspProcessorThreadMax
Wscript.Echo "ASP Queue Connection Test Time: " & _
objItem.AspQueueConnectionTestTime
Wscript.Echo "ASP Queue Timeout: " & objItem.AspQueueTimeout
Wscript.Echo "ASP Request Queue Maximum: " & _
objItem.AspRequestQueueMax
Wscript.Echo "ASP Run OnEnd Anonymously: " & _
objItem.AspRunOnEndAnonymously
Wscript.Echo "ASP Script Engine Cache Maximum: " & _
objItem.AspScriptEngineCacheMax
Wscript.Echo "ASP Script Error Message: " & _
objItem.AspScriptErrorMessage
Wscript.Echo "ASP Script Error Sent To Browser: " & _
objItem.AspScriptErrorSentToBrowser
Wscript.Echo "ASP Script File Cache Size: " & _
objItem.AspScriptFileCacheSize
Wscript.Echo "ASP Script Language: " & objItem.AspScriptLanguage
Wscript.Echo "ASP Script Timeout: " & objItem.AspScriptTimeout
Wscript.Echo "ASP Session Maximum: " & objItem.AspSessionMax
Wscript.Echo "ASP Session Timeout: " & objItem.AspSessionTimeout
Wscript.Echo "ASP Sxs Name: " & objItem.AspSxsName
Wscript.Echo "ASP Track Threading Model: " & _
objItem.AspTrackThreadingModel
Wscript.Echo "ASP Use Partition: " & objItem.AspUsePartition
Wscript.Echo "Authentication Advanced Notify Disable: " & _
objItem.AuthAdvNotifyDisable
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication Change Disable: " & _
objItem.AuthChangeDisable
Wscript.Echo "Authentication Change Unsecure: " & _
objItem.AuthChangeUnsecure
Wscript.Echo "Authentication Flags: " & objItem.AuthFlags
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Authentication Persistence: " & objItem.AuthPersistence
Wscript.Echo "Authentication PersistSingleRequest: " & _
objItem.AuthPersistSingleRequest
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Impersonation Level: " & objItem.AzImpersonationLevel
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Cache Control Custom: " & objItem.CacheControlCustom
Wscript.Echo "Cache Control Maximum Age: " & objItem.CacheControlMaxAge
Wscript.Echo "Cache Control No Cache: " & objItem.CacheControlNoCache
Wscript.Echo "Cache ISAPI: " & objItem.CacheISAPI
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Certifcate Check Mode: " & objItem.CertCheckMode
Wscript.Echo "CGI Timeout: " & objItem.CGITimeout
Wscript.Echo "Cluster Enabled: " & objItem.ClusterEnabled
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Content Indexed: " & objItem.ContentIndexed
Wscript.Echo "Create CGI With New Console: " & _
objItem.CreateCGIWithNewConsole
Wscript.Echo "Create Process As User: " & objItem.CreateProcessAsUser
Wscript.Echo "Default Doc: " & objItem.DefaultDoc
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Directory Browse Flags: " & objItem.DirBrowseFlags
Wscript.Echo "Directory Browse Show Date: " & objItem.DirBrowseShowDate
Wscript.Echo "Directory Browse Show Extension: " & _
objItem.DirBrowseShowExtension
Wscript.Echo "Directory Browse Show Long Date: " & _
objItem.DirBrowseShowLongDate
Wscript.Echo "Directory Browse Show Size: " & objItem.DirBrowseShowSize
Wscript.Echo "Directory Browse Show Time: " & objItem.DirBrowseShowTime
Wscript.Echo "Disable Socket Pooling: " & objItem.DisableSocketPooling
Wscript.Echo "Disable Static File Cache: " & _
objItem.DisableStaticFileCache
Wscript.Echo "Do Dynamic Compression: " & objItem.DoDynamicCompression
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Do Static Compression: " & objItem.DoStaticCompression
Wscript.Echo "Enable Default Doc: " & objItem.EnableDefaultDoc
Wscript.Echo "Enable Dir Browsing: " & objItem.EnableDirBrowsing
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
Wscript.Echo "Enable Reverse DNS: " & objItem.EnableReverseDns
Wscript.Echo "FrontPage Web: " & objItem.FrontPageWeb
Wscript.Echo "Http Expires: " & objItem.HttpExpires
Wscript.Echo "Log Ext File Bytes Received: " & _
objItem.LogExtFileBytesRecv
Wscript.Echo "Log Ext File Bytes Sent: " & objItem.LogExtFileBytesSent
Wscript.Echo "Log Ext File Client IP: " & objItem.LogExtFileClientIp
Wscript.Echo "Log Ext File Computer Name: " & _
objItem.LogExtFileComputerName
Wscript.Echo "Log Ext File Cookie: " & objItem.LogExtFileCookie
Wscript.Echo "Log Ext File Date: " & objItem.LogExtFileDate
Wscript.Echo "Log Ext File Flags: " & objItem.LogExtFileFlags
Wscript.Echo "Log Ext File Host: " & objItem.LogExtFileHost
Wscript.Echo "Log Ext File Http Status: " & _
objItem.LogExtFileHttpStatus
Wscript.Echo "Log Ext File Http SubStatus: " & _
objItem.LogExtFileHttpSubStatus
Wscript.Echo "Log Ext File Method: " & objItem.LogExtFileMethod
Wscript.Echo "Log Ext File Protocol Version: " & _
objItem.LogExtFileProtocolVersion
Wscript.Echo "Log Ext File Referer: " & objItem.LogExtFileReferer
Wscript.Echo "Log Ext File Server IP: " & objItem.LogExtFileServerIp
Wscript.Echo "Log Ext File Server Port: " & objItem.LogExtFileServerPort
Wscript.Echo "Log Ext File Site Name: " & objItem.LogExtFileSiteName
Wscript.Echo "Log Ext File Time: " & objItem.LogExtFileTime
Wscript.Echo "Log Ext File Time Taken: " & objItem.LogExtFileTimeTaken
Wscript.Echo "Log Ext File URI Query: " & objItem.LogExtFileUriQuery
Wscript.Echo "Log Ext File URI Stem: " & objItem.LogExtFileUriStem
Wscript.Echo "Log Ext File User Agent: " & objItem.LogExtFileUserAgent
Wscript.Echo "Log Ext File User Name: " & objItem.LogExtFileUserName
Wscript.Echo "Log Ext File Win32 Status: " & objItem.LogExtFileWin32Status
Wscript.Echo "Log File Directory: " & objItem.LogFileDirectory
Wscript.Echo "Log File Local Time Rollover: " & _
objItem.LogFileLocaltimeRollover
Wscript.Echo "Log File Period: " & objItem.LogFilePeriod
Wscript.Echo "Log File Truncate Size: " & objItem.LogFileTruncateSize
Wscript.Echo "Log Odbc Data Source: " & objItem.LogOdbcDataSource
Wscript.Echo "Log Odbc Password: " & objItem.LogOdbcPassword
Wscript.Echo "Log Odbc Table Name: " & objItem.LogOdbcTableName
Wscript.Echo "Log Odbc User Name: " & objItem.LogOdbcUserName
Wscript.Echo "Logon Method: " & objItem.LogonMethod
Wscript.Echo "Log Plugin Clsid: " & objItem.LogPluginClsid
Wscript.Echo "Log Type: " & objItem.LogType
Wscript.Echo "Maximum Bandwidth: " & objItem.MaxBandwidth
Wscript.Echo "Maximum Bandwidth Blocked: " & _
objItem.MaxBandwidthBlocked
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Wscript.Echo "Maximum Endpoint Connections: " & _
objItem.MaxEndpointConnections
Wscript.Echo "Maximum Request Entity Allowed: " & _
objItem.MaxRequestEntityAllowed
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Passport Require AD Mapping: " & _
objItem.PassportRequireADMapping
Wscript.Echo "Password Cache TTL: " & objItem.PasswordCacheTTL
Wscript.Echo "Password Change Flags: " & objItem.PasswordChangeFlags
Wscript.Echo "Password Expire Prenotify Days: " & _
objItem.PasswordExpirePrenotifyDays
Wscript.Echo "Pool Idc Timeout: " & objItem.PoolIdcTimeout
Wscript.Echo "Process NT CRIf Logged On: " & _
objItem.ProcessNTCRIfLoggedOn
Wscript.Echo "Realm: " & objItem.Realm
For Each strHeader in objItem.RedirectHeaders
Wscript.Echo "Redirect Headers: " & strHeader
Next
Wscript.Echo "Revocation Freshness Time: " & _
objItem.RevocationFreshnessTime
Wscript.Echo "Revocation URL Retrieval Timeout: " & _
objItem.RevocationURLRetrievalTimeout
Wscript.Echo "Server AutoStart: " & objItem.ServerAutoStart
Wscript.Echo "Server Command: " & objItem.ServerCommand
Wscript.Echo "Server Comment: " & objItem.ServerComment
Wscript.Echo "Server ID: " & objItem.ServerID
Wscript.Echo "Server Listen Backlog: " & objItem.ServerListenBacklog
Wscript.Echo "Server Listen Timeout: " & objItem.ServerListenTimeout
Wscript.Echo "Server Size: " & objItem.ServerSize
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Shutdown Time Limit: " & objItem.ShutdownTimeLimit
Wscript.Echo "SSI Exec Disable: " & objItem.SSIExecDisable
Wscript.Echo "SSL Always Negotiate Client Certificate: " & _
objItem.SSLAlwaysNegoClientCert
Wscript.Echo "Ssl Ctl Identifier: " & objItem.SslCtlIdentifier
Wscript.Echo "Ssl Ctl Store Name: " & objItem.SslCtlStoreName
Wscript.Echo "SSL Store Name: " & objItem.SSLStoreName
Wscript.Echo "Upload Read Ahead Size: " & _
objItem.UploadReadAheadSize
Wscript.Echo "Use Digest SSP: " & objItem.UseDigestSSP
Wscript.Echo "Win32 Error: " & objItem.Win32Error
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 "Access Execute: " & objItem.AccessExecute
Wscript.Echo "Access Flags: " & objItem.AccessFlags
Wscript.Echo "Access No Physical Directory: " & _
objItem.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objItem.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & objItem.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objItem.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & objItem.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objItem.AccessRead
Wscript.Echo "Access Script: " & objItem.AccessScript
Wscript.Echo "Access Source: " & objItem.AccessSource
Wscript.Echo "Access SSL: " & objItem.AccessSSL
Wscript.Echo "Access SSL 128: " & objItem.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objItem.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & _
objItem.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objItem.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objItem.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objItem.AccessWrite
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Admin Server: " & objItem.AdminServer
Wscript.Echo "Allow Keep Alive: " & objItem.AllowKeepAlive
Wscript.Echo "Allow Path Information For Script Mappings: " & _
objItem.AllowPathInfoForScriptMappings
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & objItem.AnonymousUserPass
Wscript.Echo "Application Allow Client Debug: " & _
objItem.AppAllowClientDebug
Wscript.Echo "Application Allow Debugging: " & _
objItem.AppAllowDebugging
Wscript.Echo "Application Friendly Name: " & objItem.AppFriendlyName
Wscript.Echo "Application Pool ID: " & objItem.AppPoolId
Wscript.Echo "Application Wam Clsid: " & objItem.AppWamClsid
Wscript.Echo "ASP Allow Out Of Processs Components: " & _
objItem.AspAllowOutOfProcComponents
Wscript.Echo "ASP Allow Session State: " & _
objItem.AspAllowSessionState
Wscript.Echo "ASP Application Service Flags: " & _
objItem.AspAppServiceFlags
Wscript.Echo "ASP Buffering Limit: " & objItem.AspBufferingLimit
Wscript.Echo "ASP Buffering On: " & objItem.AspBufferingOn
Wscript.Echo "ASP Calc Line Number: " & objItem.AspCalcLineNumber
Wscript.Echo "ASP Codepage: " & objItem.AspCodepage
Wscript.Echo "ASP Disk Template Cache Directory: " & _
objItem.AspDiskTemplateCacheDirectory
Wscript.Echo "ASP Enable Application Restart: " & _
objItem.AspEnableApplicationRestart
Wscript.Echo "ASP Enable ASP Html Fallback: " & _
objItem.AspEnableAspHtmlFallback
Wscript.Echo "ASP Enable Chunked Encoding: " & o_
bjItem.AspEnableChunkedEncoding
Wscript.Echo "ASP Enable Parent Paths: " & _
objItem.AspEnableParentPaths
Wscript.Echo "ASP Enable Sxs: " & objItem.AspEnableSxs
Wscript.Echo "ASP Enable Tracker: " & objItem.AspEnableTracker
Wscript.Echo "ASP Enable Typelib Cache: " & _
objItem.AspEnableTypelibCache
Wscript.Echo "ASP Errors To NT Log: " & objItem.AspErrorsToNTLog
Wscript.Echo "ASP Exception Catch Enable: " & _
objItem.AspExceptionCatchEnable
Wscript.Echo "ASP Execute in MTA: " & objItem.AspExecuteInMTA
Wscript.Echo "ASP Keep Session ID Secure: " & _
objItem.AspKeepSessionIDSecure
Wscript.Echo "ASP LCID: " & objItem.AspLCID
Wscript.Echo "ASP Log Error Requests: " & _
objItem.AspLogErrorRequests
Wscript.Echo "ASP Maximum Disk Template Cache Files: " & _
objItem.AspMaxDiskTemplateCacheFiles
Wscript.Echo "ASP Maximum Request Entity Allowed: " & _
objItem.AspMaxRequestEntityAllowed
Wscript.Echo "ASP Partition ID: " & objItem.AspPartitionID
Wscript.Echo "ASP Processor Thread Maximum: " & _
objItem.AspProcessorThreadMax
Wscript.Echo "ASP Queue Connection Test Time: " & _
objItem.AspQueueConnectionTestTime
Wscript.Echo "ASP Queue Timeout: " & objItem.AspQueueTimeout
Wscript.Echo "ASP Request Queue Maximum: " & _
objItem.AspRequestQueueMax
Wscript.Echo "ASP Run On End Anonymously: " & _
objItem.AspRunOnEndAnonymously
Wscript.Echo "ASP Script Engine Cache Maximum: " & _
objItem.AspScriptEngineCacheMax
Wscript.Echo "ASP Script Error Message: " & _
objItem.AspScriptErrorMessage
Wscript.Echo "ASP Script Error Sent To Browser: " & _
objItem.AspScriptErrorSentToBrowser
Wscript.Echo "ASP Script File Cache Size: " & _
objItem.AspScriptFileCacheSize
Wscript.Echo "ASP Script Language: " & objItem.AspScriptLanguage
Wscript.Echo "ASP Script Timeout: " & objItem.AspScriptTimeout
Wscript.Echo "ASP Session Max: " & objItem.AspSessionMax
Wscript.Echo "ASP Session Timeout: " & objItem.AspSessionTimeout
Wscript.Echo "ASP Sxs Name: " & objItem.AspSxsName
Wscript.Echo "ASP Track Threading Model: " & _
objItem.AspTrackThreadingModel
Wscript.Echo "ASP Use Partition: " & objItem.AspUsePartition
Wscript.Echo "Authentication Advanced Notify Disable: " & _
objItem.AuthAdvNotifyDisable
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication ChangeDisable: " & _
objItem.AuthChangeDisable
Wscript.Echo "Authentication ChangeUnsecure: " & _
objItem.AuthChangeUnsecure
Wscript.Echo "Authentication ChangeURL: " & objItem.AuthChangeURL
Wscript.Echo "Authentication ExpiredUnsecureURL: " & _
objItem.AuthExpiredUnsecureURL
Wscript.Echo "Authentication ExpiredURL: " & objItem.AuthExpiredURL
Wscript.Echo "Authentication Flags: " & objItem.AuthFlags
Wscript.Echo "Authentication MD5: " & objItem.AuthMD5
Wscript.Echo "Authentication Notify Password Exp Unsecure URL: " & _
objItem.AuthNotifyPwdExpUnsecureURL
Wscript.Echo "Authentication Notify Password Exp URL: " & _
objItem.AuthNotifyPwdExpURL
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Authentication Persistence: " & objItem.AuthPersistence
Wscript.Echo "Authentication PersistSingleRequest: " & _
objItem.AuthPersistSingleRequest
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Impersonation Level: " & _
objItem.AzImpersonationLevel
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Cache Control Custom: " & objItem.CacheControlCustom
Wscript.Echo "Cache Control Maximum Age: " & _
objItem.CacheControlMaxAge
Wscript.Echo "Cache Control No Cache: " & objItem.CacheControlNoCache
Wscript.Echo "Cache ISAPI: " & objItem.CacheISAPI
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Central Binary Logging Enabled: " & _
objItem.CentralBinaryLoggingEnabled
Wscript.Echo "Certificate Check Mode: " & objItem.CertCheckMode
Wscript.Echo "CGI Timeout: " & objItem.CGITimeout
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Content Indexed: " & objItem.ContentIndexed
Wscript.Echo "Create CGI With New Console: " & _
objItem.CreateCGIWithNewConsole
Wscript.Echo "Create Process As User: " & objItem.CreateProcessAsUser
Wscript.Echo "Default Doc: " & objItem.DefaultDoc
Wscript.Echo "Default Doc Footer: " & objItem.DefaultDocFooter
Wscript.Echo "Default Logon Domain: " & objItem.DefaultLogonDomain
Wscript.Echo "Demand Start Threshold: " & objItem.DemandStartThreshold
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Directory Browse Flags: " & objItem.DirBrowseFlags
Wscript.Echo "Directory Browse Show Date: " & objItem.DirBrowseShowDate
Wscript.Echo "Directory Browse Show Extension: " & _
objItem.DirBrowseShowExtension
Wscript.Echo "Directory Browse Show Long Date: " & _
objItem.DirBrowseShowLongDate
Wscript.Echo "Directory Browse Show Size: " & objItem.DirBrowseShowSize
Wscript.Echo "Directory Browse Show Time: " & objItem.DirBrowseShowTime
Wscript.Echo "Directory Levels To Scan: " & _
objItem.DirectoryLevelsToScan
Wscript.Echo "Disable Socket Pooling: " & objItem.DisableSocketPooling
Wscript.Echo "Disable Static File Cache: " & _
objItem.DisableStaticFileCache
Wscript.Echo "Do Dynamic Compression: " & objItem.DoDynamicCompression
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Do Static Compression: " & objItem.DoStaticCompression
Wscript.Echo "Downlevel Admin Instance: " & _
objItem.DownlevelAdminInstance
Wscript.Echo "Enable Default Doc: " & objItem.EnableDefaultDoc
Wscript.Echo "Enable Directory Browsing: " & objItem.EnableDirBrowsing
Wscript.Echo "Enable Doc Footer: " & objItem.EnableDocFooter
Wscript.Echo "Enable Reverse DNS: " & objItem.EnableReverseDns
Wscript.Echo "Header Wait Timeout: " & objItem.HeaderWaitTimeout
Wscript.Echo "Http Expires: " & objItem.HttpExpires
Wscript.Echo "IIs5 Isolation Mode Enabled: " & _
objItem.IIs5IsolationModeEnabled
Wscript.Echo "Log Ext File Bytes Received: " & _
objItem.LogExtFileBytesRecv
Wscript.Echo "Log Ext File Bytes Sent: " & objItem.LogExtFileBytesSent
Wscript.Echo "Log Ext File Client IP: " & objItem.LogExtFileClientIp
Wscript.Echo "Log Ext File Computer Name: " & _
objItem.LogExtFileComputerName
Wscript.Echo "Log Ext File Cookie: " & objItem.LogExtFileCookie
Wscript.Echo "Log Ext File Date: " & objItem.LogExtFileDate
Wscript.Echo "Log Ext File Flags: " & objItem.LogExtFileFlags
Wscript.Echo "Log Ext File Host: " & objItem.LogExtFileHost
Wscript.Echo "Log Ext File Http Status: " & _
objItem.LogExtFileHttpStatus
Wscript.Echo "Log Ext File Http SubStatus: " & _
objItem.LogExtFileHttpSubStatus
Wscript.Echo "Log Ext File Method: " & objItem.LogExtFileMethod
Wscript.Echo "Log Ext File Protocol Version: " & _
objItem.LogExtFileProtocolVersion
Wscript.Echo "Log Ext File Referer: " & objItem.LogExtFileReferer
Wscript.Echo "Log Ext File Server Ip: " & objItem.LogExtFileServerIp
Wscript.Echo "Log Ext File Server Port: " & _
objItem.LogExtFileServerPort
Wscript.Echo "Log Ext File Site Name: " & objItem.LogExtFileSiteName
Wscript.Echo "Log Ext File Time: " & objItem.LogExtFileTime
Wscript.Echo "Log Ext File Time Taken: " & objItem.LogExtFileTimeTaken
Wscript.Echo "Log Ext File URI Query: " & objItem.LogExtFileUriQuery
Wscript.Echo "Log Ext File URI Stem: " & objItem.LogExtFileUriStem
Wscript.Echo "Log Ext File User Agent: " & objItem.LogExtFileUserAgent
Wscript.Echo "Log Ext File User Name: " & objItem.LogExtFileUserName
Wscript.Echo "Log Ext File Win32 Status: " & _
objItem.LogExtFileWin32Status
Wscript.Echo "Log File Directory: " & objItem.LogFileDirectory
Wscript.Echo "Log File Local Time Rollover: " & _
objItem.LogFileLocaltimeRollover
Wscript.Echo "Log File Period: " & objItem.LogFilePeriod
Wscript.Echo "Log File Truncate Size: " & objItem.LogFileTruncateSize
Wscript.Echo "Log in UTF8: " & objItem.LogInUTF8
Wscript.Echo "Log Module List: " & objItem.LogModuleList
Wscript.Echo "Log Odbc Data Source: " & objItem.LogOdbcDataSource
Wscript.Echo "Log Odbc Password: " & objItem.LogOdbcPassword
Wscript.Echo "Log Odbc Table Name: " & objItem.LogOdbcTableName
Wscript.Echo "Log Odbc User Name: " & objItem.LogOdbcUserName
Wscript.Echo "Logon Method: " & objItem.LogonMethod
Wscript.Echo "Log Plugin Clsid: " & objItem.LogPluginClsid
Wscript.Echo "Log Type: " & objItem.LogType
Wscript.Echo "Maximum Bandwidth: " & objItem.MaxBandwidth
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Wscript.Echo "Maximum Endpoint Connections: " & _
objItem.MaxEndpointConnections
Wscript.Echo "Maximum Global Bandwidth: " & _
objItem.MaxGlobalBandwidth
Wscript.Echo "Maximum Request Entity Allowed: " & _
objItem.MaxRequestEntityAllowed
Wscript.Echo "Minimum File Bytes Per Second: " & _
objItem.MinFileBytesPerSec
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Passport Require AD Mapping: " & _
objItem.PassportRequireADMapping
Wscript.Echo "Password Cache TTL: " & objItem.PasswordCacheTTL
Wscript.Echo "Password Change Flags: " & _
objItem.PasswordChangeFlags
Wscript.Echo "Password Expire Prenotify Days: " & _
objItem.PasswordExpirePrenotifyDays
Wscript.Echo "Pool Idc Timeout: " & objItem.PoolIdcTimeout
Wscript.Echo "Process NTCRIf Logged On: " & _
objItem.ProcessNTCRIfLoggedOn
Wscript.Echo "Rapid Fail Protection Interval: " & _
objItem.RapidFailProtectionInterval
Wscript.Echo "Rapid Fail Protection Maximum Crashes: " & _
objItem.RapidFailProtectionMaxCrashes
Wscript.Echo "Realm: " & objItem.Realm
For Each strHeader in objItem.RedirectHeaders
Wscript.Echo "Redirect Headers: " & strHeader
Next
Wscript.Echo "Revocation Freshness Time: " & _
objItem.RevocationFreshnessTime
Wscript.Echo "Revocation URL Retrieval Timeout: " & _
objItem.RevocationURLRetrievalTimeout
Wscript.Echo "Server AutoStart: " & objItem.ServerAutoStart
Wscript.Echo "Server Comment: " & objItem.ServerComment
Wscript.Echo "Server Listen Backlog: " & _
objItem.ServerListenBacklog
Wscript.Echo "Server Listen Timeout: " & _
objItem.ServerListenTimeout
Wscript.Echo "Server Size: " & objItem.ServerSize
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Shutdown Time Limit: " & objItem.ShutdownTimeLimit
Wscript.Echo "SSI Exec Disable: " & objItem.SSIExecDisable
Wscript.Echo "SSL Always Negotiate Client Certificate: " & _
objItem.SSLAlwaysNegoClientCert
Wscript.Echo "SSL Store Name: " & objItem.SSLStoreName
Wscript.Echo "Ssl Use Ds Mapper: " & objItem.SslUseDsMapper
Wscript.Echo "Upload Read Ahead Size: " & _
objItem.UploadReadAheadSize
Wscript.Echo "Use Digest SSP: " & objItem.UseDigestSSP
Wscript.Echo "WAM User Name: " & objItem.WAMUserName
Wscript.Echo "WAM User Pass: " & objItem.WAMUserPass
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebServiceSetting")
For Each objItem in colItems
objItem.AllowKeepAlive = True
objItem.ConnectionTimeout = 1200
objItem.DontLog = False
objItem.ServerComment = "This is an intranet-only server."
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebFileSetting")
For Each objItem in colItems
objItem.EnableDocFooter = TRUE
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebInfoSetting")
For Each objItem in colItems
objItem.ServerConfigSSLAllowEncrypt = TRUE
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebServiceSetting")
For Each objItem in colItems
strDocs = objItem.DefaultDoc
objItem.DefaultDoc = strDocs & ",index.htm"
objItem.DefaultDocFooter = "FILE:c:\config\footer.htm"
objItem.EnableDefaultDoc = True
objItem.EnableDocFooter = True
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebServiceSetting")
For Each objItem in colItems
objItem.ContentIndexed = True
objItem.DontLog = True
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsWebServiceSetting")
For Each objItem in colItems
objItem.MaxBandwidth = -1
objItem.MaxConnections = 10000
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsCompressionSchemesSetting")
For Each objItem in colItems
objItem.HcCompressionDirectory = "C:\Compressed_Files"
objItem.HcDoDynamicCompression = True
objItem.HcDoStaticCompression = True
objItem.DoDiskSpaceLimiting = True
objItem.HcMaxDiskSpaceUsage = 200000000
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")
For Each objItem in colItems
objItem.Pause
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")
For Each objItem in colItems
objItem.Start
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * From IIsWebServer Where Name = " & _
"'W3SVC/2142295254'")
For Each objItem in colItems
objItem.Stop
Next