Получить список компьютеров в рабочей группе с использованием WMI VBScript - PullRequest
0 голосов
/ 11 октября 2010

Мне нужно получить список всех компьютеров в РАБОЧЕЙ ГРУППЕ.Я пробовал

Dim objComputers<br> Set objComputers = GetObject("WinNT://WORKGROUP")

Но это объект Active Directory.Есть ли способ получить компьютеры без WinNT://?

1 Ответ

1 голос
/ 11 октября 2010

Подключитесь к объекту группы, используя полный путь LDAP.

Set objGroup = GetObject("LDAP://" & strGroupLDAP)

Вы можете перечислить после чего-то вроде:

For Each strMachine In objGroup.Members

См. Пункты по:

strMachine.Name or strMachine.samAccountName 

РЕДАКТИРОВАТЬ: я смущен вашим вопросом теперь, когда я перечитал его, в чем проблема, вы можете использовать winnt: // для привязки к домену или машине?

...