Obtaining workgourp/domain name

[brianashman]

Is it possible to find out whether a machine is in a workgroup or domain & then name of the workgroup or domain by VBS?

The script doesn't need to look at remote machines, just the local machine the script is running on.

 

[tsuji]

Hello brainashman,

Retrieve the Domain and DomainRole properties from win32_computersystem.

strComputer="."
set svc=GetObject("winmgmts:" _
	& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set cCS=svc.ExecQuery _
	("select Domain,DomainRole from Win32_ComputerSystem")
for each oCS in cCS
	iDR=oCS.DomainRole
	sDN=oCS.Domain
next
if not IsNull(iDR) then wscript.echo iDR & vbcrlf & sDN

When the box belongs to a domain, sDN would be the domain name, else its workgroup name. Check out the documentation to decipher DomainRole.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_computersystem.asp

regards - tsuji