[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)