学步园

下面这个脚本用于判断机器在域里面的角色：

' use "." for local computer

sComputer = "." 
WScript.Echo DomainRole(sComputer)

Function DomainRole(sNode)
Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & sNode & "\root\cimv2")
Set colComputer = oWMI.ExecQuery("Select DomainRole from Win32_ComputerSystem")
For Each oComputer in colComputer
     iDR = oComputer.DomainRole
Next

Select Case iDR
Case 0
    DomainRole = "Standalone Workstation"
Case 1
    DomainRole = "Member Workstation"
Case 2
    DomainRole = "Standalone Server"
Case 3
    DomainRole = "Member Server"
Case 4
    DomainRole = "Backup Domain Controller"
Case 5
    DomainRole = "Primary Domain Controller"
Case Else
    DomainRole = "Unknown"
End Select

End Function