[Petya V4sechkin]

werty1_1, в сетевом окружении отдельно домен и рабочая группа?

[werty1_1]

Petya V4sechkin, да в сетевом окружении есть отдельно домен и рабочая группа

но на данный момент надо определить компы которые находятся в главном офисе. а не полностью во всей сети

[Petya V4sechkin]

надо определить компы которые находятся в главном офисе

И по какому критерию вы предлагаете это определять?
Чем отличаются компьютеры в главном офисе от остальных?

[werty1_1]

Petya V4sechkin, Они ни чем не отличаются. Поставлена задача втянуть все компы главного офиса в домен. Именно для этого надо и определить кто еще не втянут. Чтобы по удаленке проделать все остальные действия

[Petya V4sechkin]

Они ни чем не отличаются

Ага, вы не знаете, какие компьютеры в главном офисе?

[werty1_1]

Petya V4sechkin, какие из всей сети находятся в главном офисе не известно.

[Petya V4sechkin]

Если даже вам это неизвестно, то мне и подавно :)

Поди туда - не знаю куда, принеси то - не знаю что

Может, они в одной подсети?
Спросите у своих коллег - сотрудников IT-отдела.

[forumnet]

Как вариант:

On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
Set FS = CreateObject("Scripting.FileSystemOBject")
Set WshNetwork = WScript.CreateObject("WScript.Network")

If WshNetwork.UserDomain=WshNetwork.ComputerName Then
WScript.Echo "Сообщите админу - комп не в домене!"
end if

Этот скрипт зашить в сценарий входа в домен.
Если комп не в домене не выполнится, поэтому вместо сообщения лучше кидать файлы в сеть по IP (создавать текстовой файл с именем по IP, а внего еще и записать что выдает WshNetwork.UserDomain)