MemoSoup » domain http://www.memosoup.com Mix of the things I always forget Tue, 07 Feb 2012 00:03:54 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 WMI+VBS: how to get the domain name http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html#comments Wed, 30 Sep 2009 10:21:06 +0000 admin http://www.memosoup.com/?p=185 There is also WMI FAQ on Microsoft [...]]]>
Option Explicit
On Error Resume Next

Dim strComputer, objNetwork, objWMIService
Dim colItems, objItem

Set objNetwork = WScript.CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
WScript.Echo "Computer = " & strComputer

Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objItem in colItems
 Wscript.Echo "Domain = " & objItem.domain
Next

There is also WMI FAQ on Microsoft site.

]]> http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html/feed 0