Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  List  Service  DNS  Records  

 Content of List Service DNS Records.vbs
MD5 Hash: 4D93EF1EC1B081EF8330EBF521A0748C
' Description: Returns information about all the service (SRV) records on a DNS server.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & _
"\root\MicrosoftDNS")

Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_SRVType")

For Each objItem in colItems
Wscript.Echo "Owner Name: " & objItem.OwnerName
Wscript.Echo "Container Name: " & objItem.ContainerName
Wscript.Echo "DNS Server Name: " & objItem.DnsServerName
Wscript.Echo "Domain Name: " & objItem.DomainName
Wscript.Echo "Port: " & objItem.Port
Wscript.Echo "Priority: " & objItem.Priority
Wscript.Echo "Record Class: " & objItem.RecordClass
Wscript.Echo "Record Data: " & objItem.RecordData
Wscript.Echo "Text Representation: " & objItem.TextRepresentation
Wscript.Echo "Time-to-Live: " & objItem.TTL
Wscript.Echo "Weight: " & objItem.Weight
Wscript.Echo
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a