Desktop Management
Basic Computer Information
List Domain or Workgroup Information , WMI
' List Domain or Workgroup Information
' Windows 2000 : Yes (except for 2 properties noted below)
' Windows NT 4.0 : Yes (except for 2 properties noted below)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objItem In colItems
WScript.Echo "Computer Name: " & objItem.Name
WScript.Echo "Name Format: " & objItem.NameFormat
WScript.Echo "Domain: " & objItem.Domain
WScript.Echo "Part Of Domain: " & objItem.PartOfDomain 'post-Windows 2000 only
WScript.Echo "Workgroup: " & objItem.Workgroup 'post-Windows 2000 only
Select Case objItem.DomainRole
Case 0 strDomainRole = "Standalone Workstation"
Case 1 strDomainRole = "Member Workstation"
Case 2 strDomainRole = "Standalone Server"
Case 3 strDomainRole = "Member Server"
Case 4 strDomainRole = "Backup Domain Controller"
Case 5 strDomainRole = "Primary Domain Controller"
End Select
WScript.Echo "Domain Role: " & strDomainRole
strRoles = Join(objItem.Roles, ",")
WScript.Echo "Roles: " & strRoles
WScript.Echo "Network Server Mode Enabled: " & _
objItem.NetworkServerModeEnabled
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 ?
|