| Environment Variable |
|---|
| VBScript Code: |
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strUserDomain = wshShell.ExpandEnvironmentStrings( "%USERDOMAIN%" )
WScript.Echo "User Domain: " & strUserDomain |
| Requirements: |
| Windows version: | NT 4, 2000, XP, Server 2003, Vista or Server 2008 |
| Network: | Stand-alone, workgroup, NT domain, or AD |
| Client software: | N/A |
| Script Engine: | WSH |
| Summarized: | Works in Windows NT 4 or later, *.vbs with CSCRIPT.EXE or WSCRIPT.EXE only.
Doesn't work in Windows 95, 98 or ME, nor in Internet Explorer (HTAs). |
| |
| [Back to the top of this page] |
| |
| WshNetwork |
| VBScript Code: |
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strUserDomain = wshNetwork.UserDomain
WScript.Echo "User Domain: " & strUserDomain |
| Requirements: |
| Windows version: | Windows 98, ME, NT 4, 2000, XP, Server 2003, Vista, Server 2008 |
| Network: | Stand-alone, workgroup, NT domain, or AD |
| Client software: | Windows Script 5.6 for Windows 98, ME, and NT 4 (no longer available for download?) |
| Script Engine: | WSH |
| Summarized: | Works in Windows 98 or later, *.vbs with CSCRIPT.EXE or WSCRIPT.EXE only.
Doesn't work in Windows 95, nor in Internet Explorer (HTAs). |
| |
| [Back to the top of this page] |
| |
| ADSI (WinNTSystemInfo) |
| VBScript Code: |
Set objSysInfo = CreateObject( "WinNTSystemInfo" )
strUserDomain = objSysInfo.DomainName
WScript.Echo "User Domain: " & strUserDomain |
| Requirements: |
| Windows version: | 2000, XP, Server 2003, Vista or Server 2008 (95, 98, ME, NT 4 with Active Directory client extension) |
| Network: | Stand-alone, workgroup, NT domain, or AD |
| Client software: | Active Directory client extension for Windows 95, 98, ME or NT 4 |
| Script Engine: | any |
| Summarized: | Can work in any Windows version, but Active Directory client extension is required for Windows 95, 98, ME or NT 4.
Can be used in *.vbs with CSCRIPT.EXE or WSCRIPT.EXE, as well as in HTAs. |
| |
| [Back to the top of this page] |
| |
| ADSI (ADSystemInfo) |
| VBScript Code: |
Set objSysInfo = CreateObject( "ADSystemInfo" )
strUserDomain = objSysInfo.DomainName
WScript.Echo "User Domain: " & strUserDomain |
| Requirements: |
| Windows version: | 2000, XP, Server 2003, Vista or Server 2008 (95, 98, ME, NT 4 with Active Directory client extension) |
| Network: | Only AD domain members |
| Client software: | Active Directory client extension for Windows 95, 98, ME or NT 4 |
| Script Engine: | any |
| Summarized: | For AD domain members only.
Can work in any Windows version, but Active Directory client extension is required for Windows 95, 98, ME or NT 4 SP4.
Can be used in *.vbs with CSCRIPT.EXE or WSCRIPT.EXE, as well as in HTAs.
Doesn't work on stand-alones, workgroup members or members of NT domains. |
| |
| [Back to the top of this page] |
| |
| WMI (Win32_ComputerSystem) |
| VBScript Code: |
Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
For Each objItem in colItems
strComputerDomain = objItem.Domain
If objItem.PartOfDomain Then
WScript.Echo "Computer Domain: " & strComputerDomain
Else
WScript.Echo "Workgroup: " & strComputerDomain
End If
Next |
| Requirements: |
| Windows version: | XP, Server 2003, Vista or Server 2008 |
| Network: | Stand-alone, workgroup, NT domain, or AD |
| Client software: | N/A |
| Script Engine: | any |
| Summarized: | Works in Windows XP and later.
Can be used in *.vbs with CSCRIPT.EXE or WSCRIPT.EXE, as well as in HTAs. |
| |
| [Back to the top of this page] |
| |
| WMI (Win32_NTDomain) |
| VBScript Code: |
Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_NTDomain", , 48 )
For Each objItem in colItems
strComputerDomain = objItem.DomainName
WScript.Echo "Computer Domain: " & strComputerDomain
Next |
| Requirements: |
| Windows version: | XP, Server 2003, Vista or Server 2008 |
| Network: | NT domain, or AD |
| Client software: | N/A |
| Script Engine: | any |
| Summarized: | Will work only on AD or NT domain members running Windows XP or later.
Can be used in *.vbs with CSCRIPT.EXE or WSCRIPT.EXE, as well as in HTAs.
Doesn't work in Windows 95, 98, ME, NT 4, or 2000.
Doesn't work on stand-alones or workgroup members. |
| |
| [Back to the top of this page] |
| |
| System Scripting Runtime |
| VBScript Code: |
Set objIP = CreateObject( "SScripting.IPNetwork" )
strComputerDomain = objIP.Domain
WScript.Echo "Computer Domain: " & strComputerDomain |
| Requirements: |
| Windows version: | any |
| Network: | TCP/IP |
| Client software: | System Scripting Runtime |
| Script Engine: | any |
| Summarized: | Works in any Windows version with System Scripting Runtime is installed, with any script engine. |