RE: WMI to read DNS server properties script

From: Raymond Yip (RaymondYip_at_discussions.microsoft.com)
Date: 01/17/05 

Date: Sun, 16 Jan 2005 22:09:01 -0800

I ran this sample script against a W2K3 DNS server and got the following error:

 Microsoft VBScript runtime error: Type mismatch

The error is on

Wscript.Echo "Forwarders: " & objItem.Forwarders

Any hints?

"David Adner" wrote:

> I'm trying to use the sample script below from the Technet script
> center. It says Windows 2000 is
> supported, but I get an error when I run it. It works fine against a
> Windows 2003 server. The error code I get is 0x8004100e. Should this
> work against a vanilla Windows 2000 (SP4) DNS server? Do I need to
> install something
> extra on it?
>
> http://www.microsoft.com/technet/scriptcenter/scripts/network/dns/manage/nwmgvb07.mspx
>
> strComputer = "."
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & _
> "\root\MicrosoftDNS")
>
> Set colItems = objWMIService.ExecQuery("Select * from
> MicrosoftDNS_Server")
>
> For Each objItem in colItems
> Wscript.Echo "Name: " & objItem.Name
> Wscript.Echo "Address Answer Limit: " & objItem.AddressAnswerLimit
> Wscript.Echo "Allow Update: " & objItem.AllowUpdate
> Wscript.Echo "Autocache Update: " & objItem.AutoCacheUpdate
> Wscript.Echo "Autoconfig File Zones: " & objItem.AutoConfigFileZones
> Wscript.Echo "Bind Secondaries: " & objItem.BindSecondaries
> Wscript.Echo "Boot Method: " & objItem.BootMethod
> Wscript.Echo "Default Aging State: " & objItem.DefaultAgingState
> Wscript.Echo "Default No-Refresh Interval: " & _
> objItem.DefaultNoRefreshInterval
> Wscript.Echo "Default Refresh Interval: " &
> objItem.DefaultRefreshInterval
> Wscript.Echo "Disable AutoReverse Zones: " & _
> objItem.DisableAutoReverseZones
> Wscript.Echo "Disjoint Nets: " & objItem.DisjointNets
> Wscript.Echo "Directory Service Available: " & objItem.DsAvailable
> Wscript.Echo "Directory Service Polling Interval: " & _
> objItem.DsPollingInterval
> Wscript.Echo "Directory Service Tombstone Interval: " & _
> objItem.DsTombstoneInterval
> Wscript.Echo "EDNS Cache Timeout: " & objItem.EDnsCacheTimeout
> Wscript.Echo "Enable Directory Partitions: " & _
> objItem.EnableDirectoryPartitions
> Wscript.Echo "Enable DNSSec: " & objItem.EnableDnsSec
> Wscript.Echo "Enable EDNS Probes: " & objItem.EnableEDnsProbes
> Wscript.Echo "Event Log Level: " & objItem.EventLogLevel
> Wscript.Echo "Forward Delegations: " & objItem.ForwardDelegations
> Wscript.Echo "Forwarders: " & objItem.Forwarders
> Wscript.Echo "Forwarding Timeout: " & objItem.ForwardingTimeout
> Wscript.Echo "Is Slave: " & objItem.IsSlave
> Wscript.Echo "Listen Addresses: " & objItem.ListenAddresses
> Wscript.Echo "Local Net Priority: " & objItem.LocalNetPriority
> Wscript.Echo "Logfile Maximum Size: " & objItem.LogFileMaxSize
> Wscript.Echo "Logfile Path: " & objItem.LogFilePath
> Wscript.Echo "Log IPFilter List: " & objItem.LogIPFilterList
> Wscript.Echo "Log Level: " & objItem.LogLevel
> Wscript.Echo "Loose Wildcarding: " & objItem.LooseWildcarding
> Wscript.Echo "Maximum Cache Time-to-Live: " & objItem.MaxCacheTTL
> Wscript.Echo "Maximum Negative Cache Time-to-Live: " & _
> objItem.MaxNegativeCacheTTL
> Wscript.Echo "Name Check Flag: " & objItem.NameCheckFlag
> Wscript.Echo "No Recursion: " & objItem.NoRecursion
> Wscript.Echo "Recursion Retry: " & objItem.RecursionRetry
> Wscript.Echo "Recursion Timeout: " & objItem.RecursionTimeout
> Wscript.Echo "RoundRobin: " & objItem.RoundRobin
> Wscript.Echo "Rpc Protocol: " & objItem.RpcProtocol
> Wscript.Echo "Scavenging Interval: " & objItem.ScavengingInterval
> Wscript.Echo "Secure Responses: " & objItem.SecureResponses
> Wscript.Echo "Send Port: " & objItem.SendPort
> For Each strAddress in objItem.ServerAddresses
> Wscript.Echo "Server Address: " & strAddress
> Next
> Wscript.Echo "Started: " & objItem.Started
> Wscript.Echo "Start Mode: " & objItem.StartMode
> Wscript.Echo "Strict File Parsing: " & objItem.StrictFileParsing
> Wscript.Echo "Update Options: " & objItem.UpdateOptions
> Wscript.Echo "Version: " & objItem.Version
> Wscript.Echo "Write Authority NS: " & objItem.WriteAuthorityNS
> Wscript.Echo "Xfr Connect Timeout: " & objItem.XfrConnectTimeout
> Next
>

Relevant Pages

  • Re: WMI to read DNS server properties script
    ... > I ran this sample script against a W2K3 DNS server and got the ... > Microsoft VBScript runtime error: Type mismatch ... Bad code in the sample script. ...
    (microsoft.public.windows.server.scripting)
  • Re: vbscript, searching Active directory using ADODB type mismatch error
    ... It works when I echo the name but when I try to echo the decsription or ... homedirectory I get "Microsoft VBScript runtime error: Type mismatch". ... However, if either homeDirectory or description does not have a value, the ...
    (microsoft.public.windows.server.scripting)
  • Re: very very very very urgent and important
    ... At first it seemed to work fine in SeaMonkey 1.0.5, but when entering the secure area this message occoured: ... "Microsoft VBScript runtime error '800a000d' ... Type mismatch: 'ubound' ...
    (comp.sys.mac.apps)
  • Re: Format Percent
    ... Microsoft VBScript runtime error '800a000d' ... WScript.Echo FormatPercent(vVal, 2) vVal = Null WScript.Echo FormatPercent ... to verify that the last line does indeed raise a Type mismatch ...
    (microsoft.public.scripting.vbscript)
  • Re: Delphi 2006 announced
    ... but their websites obviously as good as their thoughts as it told me Microsoft VBScript runtime error '800a000d' Type mismatch: 'CLng' /opinion/post_message.asp, ...
    (borland.public.delphi.non-technical)