Active Directory Monitoring List Domain Information for Trust Partners , WMI
' List Domain Information for Trust Partners
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\MicrosoftActiveDirectory")
Set colDomainInfo = objWMIService.ExecQuery _ ("Select * from Microsoft_LocalDomainInfo")
For each objDomain in colDomainInfo Wscript.Echo "DNS name: " & objDomain.DNSName Wscript.Echo "Flat name: " & objDomain.FlatName Wscript.Echo "SID: " & objDomain.SID Wscript.Echo "Tree name: " & objDomain.TreeName Wscript.Echo "Domain controller name: " & objDomain.DCName Next
|
VbsEdit includes all these samples!
Download Now!
Version 5.4.1 - This package includes VbsEdit 32-bit, VbsEdit 64-bit, HtaEdit 32-bit and HtaEdit 64-bit. The evaluation version never expires.
Home
Buy Now
HtaEdit
Support
Video
What's new ?
|