Скрипт для подписания пк в домене

@JuuzouTw · Регистрация: 23.12.2020

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Нужно написать скрипт прикрученный к групповой политике, чтобы при логине пользователя - в домен вносились данные в контейнер с пк в описание пк было написано кто залогинен логин/полное имя пользователя, когда залогинен, ip компа
Как бы написать я смог, но есть одно НО, нужно сделать так, чтобы сервера не учитывались, можно ли это сделать как-то в скрипте? Потому что хоть я и выбирал контейнер на который должен распространяться этот скрипт, но он почему-то лезет в контейнер с серверами ( что не надо ). Общая суть в том, чтобы подписывались только пк ( сервера не подписывались )
Подозреваю, что нужен цикл с обращением к списку, либо через массив, но сколько я не пытался - не робит, возможно я чего-то не понимайт. Ниже прикрепляю код

Visual Basic

Dim adsinfo, Compudrister, oUser, a, WSHShell 
strComputer = "."
Set adsinfo = CreateObject("adsysteminfo") 
Set Compudrister = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Set WshNetwork = WScript.CreateObject("WScript.Network") 
  
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
For Each IPConfig in IPConfigSet
 
    If Not IsNull(IPConfig.IPAddress) Then  
        
            a=a+" "+IPConfig.IPAddress(netIP)
       
    End If
Next
Compudrister.put "description", "Пользователь: " + oUser.sn + " " + WshNetwork.UserName +"; IP: "+ a+"; "+ "Вошел в систему в: " + CStr(Now) 
Compudrister.Setinfo

	21.02.2024, 05:27