'==========================================================================
'
' VBScript:  AUTHOR: Ed Wilson, msft,  12/14/2003
'
' NAME:  <sysInfo.vbs>
'
' COMMENT: Key concepts are listed below:
'1. use of ADSystemInfo to get information about current user
'2. use of for each in conjunction with GetTreees
'3. use of RefreshSchemaCache command
'==========================================================================
Set objSysInfo = CreateObject("ADSystemInfo")
objSysInfo.RefreshSchemaCache
WScript.Echo "User name: " & objSysInfo.UserName
WScript.Echo "Computer name: " & objSysInfo.ComputerName
WScript.Echo "Site name: " & objSysInfo.SiteName
WScript.Echo "Domain short name: " & objSysInfo.DomainShortName
WScript.Echo "Domain DNS name: " & objSysInfo.DomainDNSName
WScript.Echo "Forest DNS name: " & objSysInfo.ForestDNSName
WScript.Echo "PDC role owner: " & objSysInfo.PDCRoleOwner
WScript.Echo "Schema role owner: " & objSysInfo.SchemaRoleOwner
WScript.Echo "Domain is in native mode: " & objSysInfo.IsNativeMode
WScript.Echo "Active Directory DomainController: " & objSysInfo.GetAnyDCName

For Each tree In objSysInfo.GetTrees
WScript.Echo "Domain trees: " & tree
Next