You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > IIS > IIS 6.x > SMTP
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 IIsSmtpSessionsSetting")
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 IIsSmtpSessions")
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 IIsSmtpServiceSetting")
For Each objItem in colItems
Wscript.Echo "Enable Reverse DNS Lookup: " & _
objItem.EnableReverseDnsLookup
Wscript.Echo "Fully Qualified Domain Name: " & _
objItem.FullyQualifiedDomainName
Wscript.Echo "Hop Count: " & objItem.HopCount
Wscript.Echo "Masquerade Domain: " & objItem.MasqueradeDomain
Wscript.Echo "Smart Host: " & objItem.SmartHost
Wscript.Echo "Smart Host Type: " & objItem.SmartHostType
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
Wscript.Echo "Authentication Anonymous: " & objItem.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objItem.AuthBasic
Wscript.Echo "Authentication NTLM: " & objItem.AuthNTLM
Wscript.Echo "Sasl Logon Domain: " & objItem.SaslLogonDomain
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsSmtpDomain")
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 IIsSmtpDomainSetting")
For Each objItem in colItems
For Each strTurn in objItem.AuthTurnList
Wscript.Echo "Authentication Turn List: " & strTurn
Next
Wscript.Echo "CSide Etrn Domains: " & objItem.CSideEtrnDomains
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Relay For Authentication: " & objItem.RelayForAuth
Wscript.Echo "Relay IP List: " & objItem.RelayIpList
Wscript.Echo "Route Action: " & objItem.RouteAction
Wscript.Echo "Route Action String: " & objItem.RouteActionString
Wscript.Echo "Route Password: " & objItem.RoutePassword
Wscript.Echo "Route User Name: " & objItem.RouteUserName
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpRoutingSourceSetting")
For Each objItem in colItems
Wscript.Echo "SMTP DS Account: " & objItem.SmtpDsAccount
Wscript.Echo "SMTP DS Bind Type: " & objItem.SmtpDsBindType
Wscript.Echo "SMTP DS Domain: " & objItem.SmtpDsDomain
Wscript.Echo "SMTP DS Host: " & objItem.SmtpDsHost
Wscript.Echo "SMTP DS Naming Context: " & _
objItem.SmtpDsNamingContext
Wscript.Echo "SMTP DS Password: " & objItem.SmtpDsPassword
Wscript.Echo "SMTP DS Schema Type: " & objItem.SmtpDsSchemaType
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpInfoSetting")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Log Module List: " & objItem.LogModuleList
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
Wscript.Echo "Maximum Out Connections: " & _
objItem.MaxOutConnections
Wscript.Echo "Maximum Out Connections Per Domain: " & _
objItem.MaxOutConnectionsPerDomain
Wscript.Echo "Remote SMTP Port: " & objItem.RemoteSmtpPort
Wscript.Echo "Remote Timeout: " & objItem.RemoteTimeout
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpRoutingSource")
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 IIsSmtpRoutingSourceSetting")
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "SMTP DS Account: " & objItem.SmtpDsAccount
Wscript.Echo "SMTP DS Bind Type: " & objItem.SmtpDsBindType
Wscript.Echo "SMTP DS Data Directory: " & _
objItem.SmtpDsDataDirectory
Wscript.Echo "SMTP DS Default Mail Root: " & _
objItem.SmtpDsDefaultMailRoot
Wscript.Echo "SMTP DS Domain: " & objItem.SmtpDsDomain
Wscript.Echo "SMTP DS Flags: " & objItem.SmtpDsFlags
Wscript.Echo "SMTP DS Host: " & objItem.SmtpDsHost
Wscript.Echo "SMTP DS Naming Context: " & _
objItem.SmtpDsNamingContext
Wscript.Echo "SMTP DS Password: " & objItem.SmtpDsPassword
Wscript.Echo "SMTP DS Port: " & objItem.SmtpDsPort
Wscript.Echo "SMTP DS Schema Type: " & objItem.SmtpDsSchemaType
Wscript.Echo "SMTP DS Use Catalog: " & objItem.SmtpDsUseCat
Wscript.Echo "SMTP Routing Table Type: " & _
objItem.SmtpRoutingTableType
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpService")
For Each objItem in colItems
Wscript.Echo "Accept Pause: " & objItem.AcceptPause
Wscript.Echo "Accept Stop: " & objItem.AcceptStop
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
For Each strRoute in objItem.DomainRouting
Wscript.Echo "Domain Routing: " & strRoute
Next
Wscript.Echo "Error Control: " & objItem.ErrorControl
Wscript.Echo "Exit Code: " & objItem.ExitCode
Wscript.Echo "Installation Date: " & objItem.InstallDate
Wscript.Echo "Local Domains: " & objItem.LocalDomains
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Path Name: " & objItem.PathName
Wscript.Echo "Process Id: " & objItem.ProcessId
For Each strRoute in objItem.RoutingSources
Wscript.Echo "Routing Sources: " & strRoute
Next
Wscript.Echo "Service Specific Exit Code: " & _
objItem.ServiceSpecificExitCode
Wscript.Echo "Service Type: " & objItem.ServiceType
Wscript.Echo "SMTP Service Version: " & _
objItem.SmtpServiceVersion
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 IIsSmtpServer")
For Each objItem in colItems
For Each strRoute in objItem.DomainRouting
Wscript.Echo "Domain Routing: " & strRoute
Next
Wscript.Echo "Local Domains:" & objItem.LocalDomains
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Postmaster Email: " & objItem.PostmasterEmail
Wscript.Echo "Postmaster Name: " & objItem.PostmasterName
For Each strSource in objItem.RoutingSources
Wscript.Echo "Routing Sources: " & strSource
Next
Wscript.Echo "Server State: " & objItem.ServerState
Wscript.Echo "SMTP Service Version: " & objItem.SmtpServiceVersion
Wscript.Echo "Status: " & objItem.Status
Next
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "/SMTPSVC/1")
Wscript.Echo "Access Execute: " & objIIS.AccessExecute
Wscript.Echo "Access Flags: " & objIIS.AccessFlags
Wscript.Echo "Access No Physical Directory: " & _
objIIS.AccessNoPhysicalDir
Wscript.Echo "Access No Remote Execute: " & _
objIIS.AccessNoRemoteExecute
Wscript.Echo "Access No Remote Read: " & objIIS.AccessNoRemoteRead
Wscript.Echo "Access No Remote Script: " & _
objIIS.AccessNoRemoteScript
Wscript.Echo "Access No Remote Write: " & _
objIIS.AccessNoRemoteWrite
Wscript.Echo "Access Read: " & objIIS.AccessRead
Wscript.Echo "Access Script: " & objIIS.AccessScript
Wscript.Echo "Access Source: " & objIIS.AccessSource
Wscript.Echo "Access SSL: " & objIIS.AccessSSL
Wscript.Echo "Access SSL 128: " & objIIS.AccessSSL128
Wscript.Echo "Access SSL Flags: " & objIIS.AccessSSLFlags
Wscript.Echo "Access SSL Map Certificate: " & _
objIIS.AccessSSLMapCert
Wscript.Echo "Access SSL Negotiate Certificate: " & _
objIIS.AccessSSLNegotiateCert
Wscript.Echo "Access SSL Require Certificate: " & _
objIIS.AccessSSLRequireCert
Wscript.Echo "Access Write: " & objIIS.AccessWrite
Wscript.Echo "Add No Headers: " & objIIS.AddNoHeaders
For Each strACL in objIIS.AdminACLBin
Wscript.Echo "Admin ACL Bin: " & strACL
Next
Wscript.Echo "Allow Anonymous: " & objIIS.AllowAnonymous
Wscript.Echo "Always Use SSl: " & objIIS.AlwaysUseSsl
Wscript.Echo "Anonymous Only: " & objIIS.AnonymousOnly
Wscript.Echo "Anonymous Password Sync: " & _
objIIS.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objIIS.AnonymousUserName
Wscript.Echo "Authentication Anonymous: " & objIIS.AuthAnonymous
Wscript.Echo "Authentication Basic: " & objIIS.AuthBasic
Wscript.Echo "Authentication Flags: " & objIIS.AuthFlags
Wscript.Echo "Authentication MD5: " & objIIS.AuthMD5
Wscript.Echo "Authentication NTLM: " & objIIS.AuthNTLM
Wscript.Echo "Authentication Passport: " & objIIS.AuthPassport
Wscript.Echo "Az Enable: " & objIIS.AzEnable
Wscript.Echo "Az Scope Name: " & objIIS.AzScopeName
Wscript.Echo "Az Store Name: " & objIIS.AzStoreName
Wscript.Echo "Bad Mail Directory: " & objIIS.BadMailDirectory
Wscript.Echo "Cluster Enabled: " & objIIS.ClusterEnabled
Wscript.Echo "Connection Timeout: " & objIIS.ConnectionTimeout
Wscript.Echo "Connect Response: " & objIIS.ConnectResponse
Wscript.Echo "Default Domain: " & objIIS.DefaultDomain
Wscript.Echo "Default Logon Domain: " & _
objIIS.DefaultLogonDomain
Wscript.Echo "Disable Socket Pooling: " & _
objIIS.DisableSocketPooling
Wscript.Echo "Do Masquerade: " & objIIS.DoMasquerade
Wscript.Echo "Don't Log: " & objIIS.DontLog
Wscript.Echo "Drop Directory: " & objIIS.DropDirectory
Wscript.Echo "Enable Reverse DNS Lookup: " & _
objIIS.EnableReverseDnsLookup
Wscript.Echo "Etrn Days: " & objIIS.EtrnDays
Wscript.Echo "Etrn Subdomains: " & objIIS.EtrnSubdomains
Wscript.Echo "Fully Qualified Domain Name: " & _
objIIS.FullyQualifiedDomainName
Wscript.Echo "Hop Count: " & objIIS.HopCount
Wscript.Echo "Limit Remote Connections: " & _
objIIS.LimitRemoteConnections
Wscript.Echo "Local Retry Attempts: " & _
objIIS.LocalRetryAttempts
Wscript.Echo "Local Retry Interval: " & _
objIIS.LocalRetryInterval
Wscript.Echo "Log Ext File Bytes Received: " & _
objIIS.LogExtFileBytesRecv
Wscript.Echo "Log Ext File Bytes Sent: " & _
objIIS.LogExtFileBytesSent
Wscript.Echo "Log Ext File Client IP: " & _
objIIS.LogExtFileClientIp
Wscript.Echo "Log Ext File Computer Name: " & _
objIIS.LogExtFileComputerName
Wscript.Echo "Log Ext File Cookie: " & objIIS.LogExtFileCookie
Wscript.Echo "Log Ext File Date: " & objIIS.LogExtFileDate
Wscript.Echo "Log Ext File Flags: " & objIIS.LogExtFileFlags
Wscript.Echo "Log Ext File Host: " & objIIS.LogExtFileHost
Wscript.Echo "Log Ext File Http Status: " & _
objIIS.LogExtFileHttpStatus
Wscript.Echo "Log Ext File Http SubStatus: " & _
objIIS.LogExtFileHttpSubStatus
Wscript.Echo "Log Ext File Method: " & objIIS.LogExtFileMethod
Wscript.Echo "Log Ext File Protocol Version: " & _
objIIS.LogExtFileProtocolVersion
Wscript.Echo "Log Ext File Referer: " & objIIS.LogExtFileReferer
Wscript.Echo "Log Ext File Server IP: " & objIIS.LogExtFileServerIp
Wscript.Echo "Log Ext File Server Port: " & _
objIIS.LogExtFileServerPort
Wscript.Echo "Log Ext File Site Name: " & objIIS.LogExtFileSiteName
Wscript.Echo "Log Ext File Time: " & objIIS.LogExtFileTime
Wscript.Echo "Log Ext File Time Taken: " & _
objIIS.LogExtFileTimeTaken
Wscript.Echo "Log Ext File URI Query: " & objIIS.LogExtFileUriQuery
Wscript.Echo "Log Ext File URI Stem: " & objIIS.LogExtFileUriStem
Wscript.Echo "Log Ext File User Agent: " & _
objIIS.LogExtFileUserAgent
Wscript.Echo "Log Ext File User Name: " & objIIS.LogExtFileUserName
Wscript.Echo "Log Ext File Win32 Status: " & _
objIIS.LogExtFileWin32Status
Wscript.Echo "Log File Directory: " & objIIS.LogFileDirectory
Wscript.Echo "Log File Period: " & objIIS.LogFilePeriod
Wscript.Echo "Log File Truncate Size: " & _
objIIS.LogFileTruncateSize
Wscript.Echo "Log Odbc Data Source: " & objIIS.LogOdbcDataSource
Wscript.Echo "Log Odbc Password: " & objIIS.LogOdbcPassword
Wscript.Echo "Log Odbc Table Name: " & objIIS.LogOdbcTableName
Wscript.Echo "Log Odbc User Name: " & objIIS.LogOdbcUserName
Wscript.Echo "Log Plugin Clsid: " & objIIS.LogPluginClsid
Wscript.Echo "LogT ype: " & objIIS.LogType
Wscript.Echo "Masquerade Domain: " & objIIS.MasqueradeDomain
Wscript.Echo "Maximum Bandwidth: " & objIIS.MaxBandwidth
Wscript.Echo "Maximum Batched Messages: " & _
objIIS.MaxBatchedMessages
Wscript.Echo "Maximum Connections: " & objIIS.MaxConnections
Wscript.Echo "Maximum Directory Change IO Size: " & _
objIIS.MaxDirChangeIOSize
Wscript.Echo "Maximum Endpoint Connections: " & _
objIIS.MaxEndpointConnections
Wscript.Echo "Maximum Mail Objects: " & objIIS.MaxMailObjects
Wscript.Echo "Maximum Message Size: " & objIIS.MaxMessageSize
Wscript.Echo "Maximum Out Connections: " & _
objIIS.MaxOutConnections
Wscript.Echo "Maximum Out Connections Per Domain: " & _
objIIS.MaxOutConnectionsPerDomain
Wscript.Echo "Maximum Recipients: " & objIIS.MaxRecipients
Wscript.Echo "Maximum Session Size: " & objIIS.MaxSessionSize
Wscript.Echo "Maximum SMTP Errors: " & objIIS.MaxSmtpErrors
Wscript.Echo "Name: " & objIIS.Name
Wscript.Echo "Name Resolution Type: " & _
objIIS.NameResolutionType
Wscript.Echo "NT Authentication Providers: " & _
objIIS.NTAuthenticationProviders
Wscript.Echo "Pickup Directory: " & objIIS.PickupDirectory
Wscript.Echo "Queue Directory: " & objIIS.QueueDirectory
Wscript.Echo "Realm: " & objIIS.Realm
Wscript.Echo "Relay For Authentication: " & objIIS.RelayForAuth
Wscript.Echo "Remote Retry Attempts: " & _
objIIS.RemoteRetryAttempts
Wscript.Echo "Remote Retry Interval: " & _
objIIS.RemoteRetryInterval
Wscript.Echo "Remote SMTP Port: " & objIIS.RemoteSmtpPort
Wscript.Echo "Remote SMTP Secure Port: " & _
objIIS.RemoteSmtpSecurePort
Wscript.Echo "Remote Timeout: " & objIIS.RemoteTimeout
Wscript.Echo "Route Action: " & objIIS.RouteAction
Wscript.Echo "Route Password: " & objIIS.RoutePassword
Wscript.Echo "Route User Name: " & objIIS.RouteUserName
Wscript.Echo "Routing Dll: " & objIIS.RoutingDll
Wscript.Echo "Sasl Logon Domain: " & objIIS.SaslLogonDomain
Wscript.Echo "Send Bad To: " & objIIS.SendBadTo
Wscript.Echo "Send Ndr To: " & objIIS.SendNdrTo
Wscript.Echo "Server AutoStart: " & objIIS.ServerAutoStart
Wscript.Echo "Server Comment: " & objIIS.ServerComment
Wscript.Echo "Server Listen Backlog: " & _
objIIS.ServerListenBacklog
Wscript.Echo "Server Listen Timeout: " & _
objIIS.ServerListenTimeout
'Wscript.Echo "Setting ID: " & objIIS.SettingID
Wscript.Echo "Should Deliver: " & objIIS.ShouldDeliver
Wscript.Echo "Should Pickup Mail: " & objIIS.ShouldPickupMail
Wscript.Echo "Should Pipeline In: " & objIIS.ShouldPipelineIn
Wscript.Echo "Should Pipeline Out: " & _
objIIS.ShouldPipelineOut
Wscript.Echo "Smart Host: " & objIIS.SmartHost
Wscript.Echo "Smart Host Type: " & objIIS.SmartHostType
Wscript.Echo "SMTP Aqueue Wait: " & objIIS.SmtpAqueueWait
Wscript.Echo "SMTP Authentication Timeout: " & _
objIIS.SmtpAuthTimeout
Wscript.Echo "SMTP Bdat Timeout: " & objIIS.SmtpBdatTimeout
Wscript.Echo "SMTP Clear Text Provider: " & _
objIIS.SmtpClearTextProvider
Wscript.Echo "SMTP Connect Timeout: " & objIIS.SmtpConnectTimeout
Wscript.Echo "SMTP Data Timeout: " & objIIS.SmtpDataTimeout
Wscript.Echo "SMTP Disable Relay: " & objIIS.SmtpDisableRelay
Wscript.Echo "SMTP Domain Validation Flags: " & _
objIIS.SmtpDomainValidationFlags
Wscript.Echo "SMTP Dot Stuff Pickup Directory Files: " & _
objIIS.SmtpDotStuffPickupDirFiles
Wscript.Echo "SMTP DSN Language ID: " & objIIS.SmtpDSNLanguageID
Wscript.Echo "SMTP DSN Options: " & objIIS.SmtpDSNOptions
Wscript.Echo "SMTP Eventlog Level: " & objIIS.SmtpEventlogLevel
Wscript.Echo "SMTP Helo No Domain: " & objIIS.SmtpHeloNoDomain
Wscript.Echo "SMTP Helo Timeout: " & objIIS.SmtpHeloTimeout
Wscript.Echo "SMTP Inbound Command Support Options: " & o_
bjIIS.SmtpInboundCommandSupportOptions
Wscript.Echo "SMTP IP Restriction Flag: " & _
objIIS.SmtpIpRestrictionFlag
Wscript.Echo "SMTP Local Delay Expire Minutes: " & _
objIIS.SmtpLocalDelayExpireMinutes
Wscript.Echo "SMTP Local NDR Expire Minutes: " & _
objIIS.SmtpLocalNDRExpireMinutes
Wscript.Echo "SMTP Mail From Timeout: " & _
objIIS.SmtpMailFromTimeout
Wscript.Echo "SMTP Mail No Helo: " & objIIS.SmtpMailNoHelo
Wscript.Echo "SMTP Maximum Remote Q Threads: " & _
objIIS.SmtpMaxRemoteQThreads
Wscript.Echo "SMTP Outbound Command Support Options: " & _
objIIS.SmtpOutboundCommandSupportOptions
Wscript.Echo "SMTP Rcpt To Timeout: " & objIIS.SmtpRcptToTimeout
Wscript.Echo "SMTP Remote Delay Expire Minutes: " & _
objIIS.SmtpRemoteDelayExpireMinutes
Wscript.Echo "SMTP Remote NDR Expire Minutes: " & _
objIIS.SmtpRemoteNDRExpireMinutes
Wscript.Echo "SMTP Remote Progressive Retry: " & _
objIIS.SmtpRemoteProgressiveRetry
Wscript.Echo "SMTP Remote Retry Threshold: " & _
objIIS.SmtpRemoteRetryThreshold
Wscript.Echo "SMTP Rset Timeout: " & objIIS.SmtpRsetTimeout
Wscript.Echo "SMTP Sasl Timeout: " & objIIS.SmtpSaslTimeout
Wscript.Echo "SMTP SSL Certifcate Hostname Validation: " & _
objIIS.SmtpSSLCertHostnameValidation
Wscript.Echo "SMTP SSL Require Trusted CA: " & _
objIIS.SmtpSSLRequireTrustedCA
Wscript.Echo "SMTP Turn Timeout: " & objIIS.SmtpTurnTimeout
Wscript.Echo "SMTP Use Tcp Dns: " & objIIS.SmtpUseTcpDns
Wscript.Echo "Updated Default Domain: " & _
objIIS.UpdatedDefaultDomain
Wscript.Echo "Updated FQDN: " & objIIS.UpdatedFQDN
Wscript.Echo "Win32 Error: " & objIIS.Win32Error
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "/SMTPSVC")
Wscript.Echo "Access Flags: " & objIIS.AccessFlags
Wscript.Echo "Disable Socket Pooling: " & _
objIIS.DisableSocketPooling
Wscript.Echo "Allow Anonymous: " & objIIS.AllowAnonymous
Wscript.Echo "Don't Log: " & objIIS.DontLog
Wscript.Echo "Anonymous Only: " & objIIS.AnonymousOnly
Wscript.Echo "Anonymous Password Sync: " & _
objIIS.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objIIS.AnonymousUserName
Wscript.Echo "Anonymous User Password: " & _
objIIS.AnonymousUserPass
Wscript.Echo "Connection Timeout: " & objIIS.ConnectionTimeout
Wscript.Echo "Log Ext File Flags: " & objIIS.LogExtFileFlags
Wscript.Echo "Log ODBC Data Source: " & objIIS.LogOdbcDataSource
Wscript.Echo "Log ODBC Password: " & objIIS.LogOdbcPassword
Wscript.Echo "Log File Directory: " & objIIS.LogFileDirectory
Wscript.Echo "Log ODBC Table Name: " & objIIS.LogOdbcTableName
Wscript.Echo "Log ODBC User Name: " & objIIS.LogOdbcUserName
Wscript.Echo "Log File Period: " & objIIS.LogFilePeriod
Wscript.Echo "Log Plugin Clsid: " & objIIS.LogPluginClsid
Wscript.Echo "Log File Truncate Size: " & _
objIIS.LogFileTruncateSize
Wscript.Echo "Log Type: " & objIIS.LogType
Wscript.Echo "Maximum Connections: " & objIIS.MaxConnections
Wscript.Echo "Server Comment: " & objIIS.ServerComment
Wscript.Echo "Maximum Endpoint Connections: " & _
objIIS.MaxEndpointConnections
Wscript.Echo "Server Listen Timeout: " & _
objIIS.ServerListenTimeout
Wscript.Echo "Realm: " & objIIS.Realm
Wscript.Echo "Server AutoStart: " & objIIS.ServerAutoStart
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
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 "Add No Headers: " & objItem.AddNoHeaders
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Allow Anonymous: " & objItem.AllowAnonymous
Wscript.Echo "Always Use Ssl: " & objItem.AlwaysUseSsl
Wscript.Echo "Anonymous Only: " & objItem.AnonymousOnly
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 "Authentication Passport: " & objItem.AuthPassport
Wscript.Echo "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Bad Mail Directory: " & objItem.BadMailDirectory
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Connect Response: " & objItem.ConnectResponse
Wscript.Echo "Default Domain: " & objItem.DefaultDomain
Wscript.Echo "Default Logon Domain: " & _
objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disable Socket Pooling: " & _
objItem.DisableSocketPooling
Wscript.Echo "Do Masquerade: " & objItem.DoMasquerade
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Drop Directory: " & objItem.DropDirectory
Wscript.Echo "Enable Reverse DNS Lookup: " & _
objItem.EnableReverseDnsLookup
Wscript.Echo "Etrn Days: " & objItem.EtrnDays
Wscript.Echo "Etrn Subdomains: " & objItem.EtrnSubdomains
Wscript.Echo "Fully Qualified Domain Name: " & _
objItem.FullyQualifiedDomainName
Wscript.Echo "Hop Count: " & objItem.HopCount
Wscript.Echo "Limit Remote Connections: " & _
objItem.LimitRemoteConnections
Wscript.Echo "Local Retry Attempts: " & objItem.LocalRetryAttempts
Wscript.Echo "Local Retry Interval: " & objItem.LocalRetryInterval
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 Period: " & objItem.LogFilePeriod
Wscript.Echo "Log File Truncate Size: " & objItem.LogFileTruncateSize
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 "Log Plugin Clsid: " & objItem.LogPluginClsid
Wscript.Echo "Log Type: " & objItem.LogType
Wscript.Echo "Masquerade Domain: " & objItem.MasqueradeDomain
Wscript.Echo "Maximum Bandwidth: " & objItem.MaxBandwidth
Wscript.Echo "Maximum Batched Messages: " & objItem.MaxBatchedMessages
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Wscript.Echo "Maximum Diectory rChange IO Size: " & _
objItem.MaxDirChangeIOSize
Wscript.Echo "Maximum Endpoint Connections: " & _
objItem.MaxEndpointConnections
Wscript.Echo "Maximum Mail Objects: " & objItem.MaxMailObjects
Wscript.Echo "Maximum Message Size: " & objItem.MaxMessageSize
Wscript.Echo "Maximum Out Connections: " & objItem.MaxOutConnections
Wscript.Echo "Maximum Out Connections Per Domain: " & _
objItem.MaxOutConnectionsPerDomain
Wscript.Echo "Maximum Recipients: " & objItem.MaxRecipients
Wscript.Echo "Maximum Session Size: " & objItem.MaxSessionSize
Wscript.Echo "Maximum SMTP Errors: " & objItem.MaxSmtpErrors
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Name Resolution Type: " & objItem.NameResolutionType
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Pickup Directory: " & objItem.PickupDirectory
Wscript.Echo "Queue Directory: " & objItem.QueueDirectory
Wscript.Echo "Realm: " & objItem.Realm
Wscript.Echo "Relay For Authentication : " & objItem.RelayForAuth
For Each strIP in objItem.RelayIpList
Wscript.Echo "Relay IP List: " & strIP
Next
Wscript.Echo "Remote Retry Attempts: " & _
objItem.RemoteRetryAttempts
Wscript.Echo "Remote Retry Interval: " & _
objItem.RemoteRetryInterval
Wscript.Echo "Remote SMTP Port: " & objItem.RemoteSmtpPort
Wscript.Echo "Remote SMTP Secure Port: " & _
objItem.RemoteSmtpSecurePort
Wscript.Echo "Remote Timeout: " & objItem.RemoteTimeout
Wscript.Echo "Route Action: " & objItem.RouteAction
Wscript.Echo "Route Password: " & objItem.RoutePassword
Wscript.Echo "Route User Name: " & objItem.RouteUserName
Wscript.Echo "Routing Dll: " & objItem.RoutingDll
Wscript.Echo "Sasl Logon Domain: " & objItem.SaslLogonDomain
Wscript.Echo "Send Bad To: " & objItem.SendBadTo
Wscript.Echo "Send Ndr To: " & objItem.SendNdrTo
Wscript.Echo "Server AutoStart: " & objItem.ServerAutoStart
Wscript.Echo "Server Comment: " & objItem.ServerComment
Wscript.Echo "Server Listen Timeout: " & _
objItem.ServerListenTimeout
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "Should Deliver: " & objItem.ShouldDeliver
Wscript.Echo "Should Pickup Mail: " & objItem.ShouldPickupMail
Wscript.Echo "Should Pipeline In: " & objItem.ShouldPipelineIn
Wscript.Echo "Should Pipeline Out: " & objItem.ShouldPipelineOut
Wscript.Echo "Smart Host: " & objItem.SmartHost
Wscript.Echo "Smart Host Type: " & objItem.SmartHostType
Wscript.Echo "SMTP Adv Queue Dll: " & objItem.SmtpAdvQueueDll
Wscript.Echo "SMTP Aqueue Wait: " & objItem.SmtpAqueueWait
Wscript.Echo "SMTP Authetication Timeout: " & _
objItem.SmtpAuthTimeout
Wscript.Echo "SMTP Bdat Timeout: " & objItem.SmtpBdatTimeout
Wscript.Echo "SMTP Clear Text Provider: " & _
objItem.SmtpClearTextProvider
Wscript.Echo "SMTP Command Log Mask: " & _
objItem.SmtpCommandLogMask
Wscript.Echo "SMTP Connect Timeout: " & _
objItem.SmtpConnectTimeout
Wscript.Echo "SMTP Data Timeout: " & objItem.SmtpDataTimeout
Wscript.Echo "SMTP Disable Relay: " & objItem.SmtpDisableRelay
Wscript.Echo "SMTP Domain Validation Flags: " & _
objItem.SmtpDomainValidationFlags
Wscript.Echo "SMTP Dot Stuff Pickup Directory Files: " & _
objItem.SmtpDotStuffPickupDirFiles
Wscript.Echo "SMTP DSN Language ID: " & _
objItem.SmtpDSNLanguageID
Wscript.Echo "SMTP DSN Options: " & objItem.SmtpDSNOptions
Wscript.Echo "SMTP Eventlog Level: " & objItem.SmtpEventlogLevel
Wscript.Echo "SMTP Flush Mail File: " & _
objItem.SmtpFlushMailFile
Wscript.Echo "SMTP Helo No Domain: " & objItem.SmtpHeloNoDomain
Wscript.Echo "SMTP Helo Timeout: " & objItem.SmtpHeloTimeout
Wscript.Echo "SMTP Inbound Command Support Options: " & _
objItem.SmtpInboundCommandSupportOptions
Wscript.Echo "SMTP IP Restriction Flag: " & _
objItem.SmtpIpRestrictionFlag
Wscript.Echo "SMTP Local Delay Expire Minutes: " & _
objItem.SmtpLocalDelayExpireMinutes
Wscript.Echo "SMTP Local NDR Expire Minutes: " & _
objItem.SmtpLocalNDRExpireMinutes
Wscript.Echo "SMTP Mail From Timeout: " & _
objItem.SmtpMailFromTimeout
Wscript.Echo "SMTP Mail No Helo: " & objItem.SmtpMailNoHelo
Wscript.Echo "SMTP Maximum Remote Q Threads: " & _
objItem.SmtpMaxRemoteQThreads
Wscript.Echo "SMTP Outbound Command Support Options: " & _
objItem.SmtpOutboundCommandSupportOptions
Wscript.Echo "SMTP Rcpt To Timeout: " & objItem.SmtpRcptToTimeout
Wscript.Echo "SMTP Remote Delay Expire Minutes: " & _
objItem.SmtpRemoteDelayExpireMinutes
Wscript.Echo "SMTP Remote NDR Expire Minutes: " & _
objItem.SmtpRemoteNDRExpireMinutes
Wscript.Echo "SMTP Remote Progressive Retry: " & _
objItem.SmtpRemoteProgressiveRetry
Wscript.Echo "SMTP Remote Retry Threshold: " & _
objItem.SmtpRemoteRetryThreshold
Wscript.Echo "SMTP Rset Timeout: " & objItem.SmtpRsetTimeout
Wscript.Echo "SMTP Sasl Timeout: " & objItem.SmtpSaslTimeout
Wscript.Echo "SMTP SSL Certificate Hostname Validation: " & _
objItem.SmtpSSLCertHostnameValidation
Wscript.Echo "SMTP SSL Require Trusted CA: " & _
objItem.SmtpSSLRequireTrustedCA
Wscript.Echo "SMTP Turn Timeout: " & objItem.SmtpTurnTimeout
Wscript.Echo "SMTP Use Tcp Dns: " & objItem.SmtpUseTcpDns
Wscript.Echo "Updated Default Domain: " & _
objItem.UpdatedDefaultDomain
Wscript.Echo "Updated FQDN: " & objItem.UpdatedFQDN
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServerSetting")
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 "Add No Headers: " & objItem.AddNoHeaders
Wscript.Echo "Admin ACL Bin: " & objItem.AdminACLBin
Wscript.Echo "Allow Anonymous: " & objItem.AllowAnonymous
Wscript.Echo "Always Use SSl: " & objItem.AlwaysUseSsl
Wscript.Echo "Anonymous Only: " & objItem.AnonymousOnly
Wscript.Echo "Anonymous Password Sync: " & _
objItem.AnonymousPasswordSync
Wscript.Echo "Anonymous User Name: " & objItem.AnonymousUserName
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 "Az Enable: " & objItem.AzEnable
Wscript.Echo "Az Scope Name: " & objItem.AzScopeName
Wscript.Echo "Az Store Name: " & objItem.AzStoreName
Wscript.Echo "Bad Mail Directory: " & objItem.BadMailDirectory
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Cluster Enabled: " & objItem.ClusterEnabled
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Connect Response: " & objItem.ConnectResponse
Wscript.Echo "Default Domain: " & objItem.DefaultDomain
Wscript.Echo "Default Logon Domain: " & _
objItem.DefaultLogonDomain
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Disable Socket Pooling: " & _
objItem.DisableSocketPooling
Wscript.Echo "Do Masquerade: " & objItem.DoMasquerade
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Drop Directory: " & objItem.DropDirectory
Wscript.Echo "Enable Reverse DNS Lookup: " & _
objItem.EnableReverseDnsLookup
Wscript.Echo "Etrn Days: " & objItem.EtrnDays
Wscript.Echo "Etrn Subdomains: " & objItem.EtrnSubdomains
Wscript.Echo "Fully Qualified Domain Name: " & _
objItem.FullyQualifiedDomainName
Wscript.Echo "Hop Count: " & objItem.HopCount
Wscript.Echo "Limit Remote Connections: " & _
objItem.LimitRemoteConnections
Wscript.Echo "Local Retry Attempts: " & _
objItem.LocalRetryAttempts
Wscript.Echo "Local Retry Interval: " & _
objItem.LocalRetryInterval
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 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 "Log Plugin Clsid: " & objItem.LogPluginClsid
Wscript.Echo "LogT ype: " & objItem.LogType
Wscript.Echo "Masquerade Domain: " & objItem.MasqueradeDomain
Wscript.Echo "Maximum Bandwidth: " & objItem.MaxBandwidth
Wscript.Echo "Maximum Batched Messages: " & _
objItem.MaxBatchedMessages
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Wscript.Echo "Maximum Directory Change IO Size: " & _
objItem.MaxDirChangeIOSize
Wscript.Echo "Maximum Endpoint Connections: " & _
objItem.MaxEndpointConnections
Wscript.Echo "Maximum Mail Objects: " & objItem.MaxMailObjects
Wscript.Echo "Maximum Message Size: " & objItem.MaxMessageSize
Wscript.Echo "Maximum Out Connections: " & objItem.MaxOutConnections
Wscript.Echo "Maximum Out Connections Per Domain: " & _
objItem.MaxOutConnectionsPerDomain
Wscript.Echo "Maximum Recipients: " & objItem.MaxRecipients
Wscript.Echo "Maximum Session Size: " & objItem.MaxSessionSize
Wscript.Echo "Maximum SMTP Errors: " & objItem.MaxSmtpErrors
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Name Resolution Type: " & objItem.NameResolutionType
Wscript.Echo "NT Authentication Providers: " & _
objItem.NTAuthenticationProviders
Wscript.Echo "Pickup Directory: " & objItem.PickupDirectory
Wscript.Echo "Queue Directory: " & objItem.QueueDirectory
Wscript.Echo "Realm: " & objItem.Realm
Wscript.Echo "Relay For Authentication: " & objItem.RelayForAuth
Wscript.Echo "Relay IP List: " & objItem.RelayIpList
Wscript.Echo "Remote Retry Attempts: " & objItem.RemoteRetryAttempts
Wscript.Echo "Remote Retry Interval: " & objItem.RemoteRetryInterval
Wscript.Echo "Remote SMTP Port: " & objItem.RemoteSmtpPort
Wscript.Echo "Remote SMTP Secure Port: " & _
objItem.RemoteSmtpSecurePort
Wscript.Echo "Remote Timeout: " & objItem.RemoteTimeout
Wscript.Echo "Route Action: " & objItem.RouteAction
Wscript.Echo "Route Password: " & objItem.RoutePassword
Wscript.Echo "Route User Name: " & objItem.RouteUserName
Wscript.Echo "Routing Dll: " & objItem.RoutingDll
Wscript.Echo "Sasl Logon Domain: " & objItem.SaslLogonDomain
Wscript.Echo "Send Bad To: " & objItem.SendBadTo
Wscript.Echo "Send Ndr To: " & objItem.SendNdrTo
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 "Setting ID: " & objItem.SettingID
Wscript.Echo "Should Deliver: " & objItem.ShouldDeliver
Wscript.Echo "Should Pickup Mail: " & objItem.ShouldPickupMail
Wscript.Echo "Should Pipeline In: " & objItem.ShouldPipelineIn
Wscript.Echo "Should Pipeline Out: " & objItem.ShouldPipelineOut
Wscript.Echo "Smart Host: " & objItem.SmartHost
Wscript.Echo "Smart Host Type: " & objItem.SmartHostType
Wscript.Echo "SMTP Aqueue Wait: " & objItem.SmtpAqueueWait
Wscript.Echo "SMTP Authentication Timeout: " & _
objItem.SmtpAuthTimeout
Wscript.Echo "SMTP Bdat Timeout: " & objItem.SmtpBdatTimeout
Wscript.Echo "SMTP Clear Text Provider: " & _
objItem.SmtpClearTextProvider
Wscript.Echo "SMTP Connect Timeout: " & _
objItem.SmtpConnectTimeout
Wscript.Echo "SMTP Data Timeout: " & objItem.SmtpDataTimeout
Wscript.Echo "SMTP Disable Relay: " & objItem.SmtpDisableRelay
Wscript.Echo "SMTP Domain Validation Flags: " & _
objItem.SmtpDomainValidationFlags
Wscript.Echo "SMTP Dot Stuff Pickup Directory Files: " & _
objItem.SmtpDotStuffPickupDirFiles
Wscript.Echo "SMTP DSN Language ID: " & objItem.SmtpDSNLanguageID
Wscript.Echo "SMTP DSN Options: " & objItem.SmtpDSNOptions
Wscript.Echo "SMTP Eventlog Level: " & objItem.SmtpEventlogLevel
Wscript.Echo "SMTP Helo No Domain: " & objItem.SmtpHeloNoDomain
Wscript.Echo "SMTP Helo Timeout: " & objItem.SmtpHeloTimeout
Wscript.Echo "SMTP Inbound Command Support Options: " & _
objItem.SmtpInboundCommandSupportOptions
Wscript.Echo "SMTP IP Restriction Flag: " & _
objItem.SmtpIpRestrictionFlag
Wscript.Echo "SMTP Local Delay Expire Minutes: " & _
objItem.SmtpLocalDelayExpireMinutes
Wscript.Echo "SMTP Local NDR Expire Minutes: " & _
objItem.SmtpLocalNDRExpireMinutes
Wscript.Echo "SMTP Mail From Timeout: " & _
objItem.SmtpMailFromTimeout
Wscript.Echo "SMTP Mail No Helo: " & objItem.SmtpMailNoHelo
Wscript.Echo "SMTP Maximum Remote Q Threads: " & _
objItem.SmtpMaxRemoteQThreads
Wscript.Echo "SMTP Outbound Command Support Options: " & _
objItem.SmtpOutboundCommandSupportOptions
Wscript.Echo "SMTP Rcpt To Timeout: " & objItem.SmtpRcptToTimeout
Wscript.Echo "SMTP Remote Delay Expire Minutes: " & _
objItem.SmtpRemoteDelayExpireMinutes
Wscript.Echo "SMTP Remote NDR Expire Minutes: " & _
objItem.SmtpRemoteNDRExpireMinutes
Wscript.Echo "SMTP Remote Progressive Retry: " & _
objItem.SmtpRemoteProgressiveRetry
Wscript.Echo "SMTP Remote Retry Threshold: " & _
objItem.SmtpRemoteRetryThreshold
Wscript.Echo "SMTP Rset Timeout: " & objItem.SmtpRsetTimeout
Wscript.Echo "SMTP Sasl Timeout: " & objItem.SmtpSaslTimeout
Wscript.Echo "SMTP SSL Certifcate Hostname Validation: " & _
objItem.SmtpSSLCertHostnameValidation
Wscript.Echo "SMTP SSL Require Trusted CA: " & _
objItem.SmtpSSLRequireTrustedCA
Wscript.Echo "SMTP Turn Timeout: " & objItem.SmtpTurnTimeout
Wscript.Echo "SMTP Use Tcp Dns: " & objItem.SmtpUseTcpDns
Wscript.Echo "Updated Default Domain: " & _
objItem.UpdatedDefaultDomain
Wscript.Echo "Updated FQDN: " & objItem.UpdatedFQDN
Wscript.Echo "Win32 Error: " & objItem.Win32Error
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery("Select * from IIsSmtpInfo")
For Each objItem in colItems
Wscript.Echo "Major IIS Version Number: " & _
objItem.MajorIIsVersionNumber
Wscript.Echo "Minor IIS Version Number: " & _
objItem.MinorIIsVersionNumber
Wscript.Echo "Name: " & objItem.Name
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery( _
"Select * from IIsSmtpVirtualDir")
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 IIsSmtpVirtualDirSetting")
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 "Don't Log: " & objItem.DontLog
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Path: " & objItem.Path
Wscript.Echo "Setting ID: " & objItem.SettingID
Wscript.Echo "UNC Password: " & objItem.UNCPassword
Wscript.Echo "UNC User Name: " & objItem.UNCUserName
Wscript.Echo "Win32 Error: " & objItem.Win32Error
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
Wscript.Echo "Connection Timeout: " & objItem.ConnectionTimeout
Wscript.Echo "Don't Log: " & objItem.DontLog
Wscript.Echo "Maximum Connections: " & objItem.MaxConnections
Wscript.Echo "Name: " & objItem.Name
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
Wscript.Echo "Bad Mail Directory: " & objItem.BadMailDirectory
Wscript.Echo "Maximum Batched Messages: " & _
objItem.MaxBatchedMessages
Wscript.Echo "Maximum Message Size: " & objItem.MaxMessageSize
Wscript.Echo "Maximum Recipients: " & objItem.MaxRecipients
Wscript.Echo "Maximum Session Size: " & objItem.MaxSessionSize
Wscript.Echo "Send Ndr To: " & objItem.SendNdrTo
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.EnableReverseDnsLookup = False
objItem.HopCount = 10
objItem.MasqueradeDomain = "fabrikam.com"
objItem.SmartHost = "smtp-server.fabrikam.com"
objItem.SmartHostType = 1
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.AuthAnonymous = True
objItem.AuthBasic = True
objItem.AuthNTLM = True
objItem.SaslLogonDomain = "fabrikam.com"
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.MaxOutConnections = 500
objItem.MaxOutConnectionsPerDomain = 250
objItem.RemoteSmtpPort = 25
objItem.RemoteTimeout = 900
objItem.Put_
Next
strComputer = "LocalHost"
Set objIIS = GetObject("IIS://" & strComputer & "/SMTPSVC")
objIIS.ServerComment = "This is an internal SMTP server."
objIIS.SetInfo
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.SmtpLocalDelayExpireMinutes = 1000
objItem.SmtpLocalNDRExpireMinutes = 4000
objItem.SmtpRemoteDelayExpireMinutes = 1000
objItem.SmtpRemoteNDRExpireMinutes = 4000
objItem.SmtpRemoteProgressiveRetry = "60,120,240"
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.ConnectionTimeout = 1200
objItem.DontLog = True
objItem.MaxConnections = 10000
objItem.Put_
Next
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")
Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")
For Each objItem in colItems
objItem.BadMailDirectory = "C:\Badmail"
objItem.MaxBatchedMessages = 30
objItem.MaxMessageSize = 500000
objItem.MaxRecipients = 50
objItem.MaxSessionSize = 1000000
objItem.SendNdrTo = "email-admin@fabrikam.com"
objItem.Put_
Next