Скрипт определения груп по пользователю.

Обсуждение ПО используемого нами для решения тех или иных задач (Антивирусы, движки BD, файрволлы и т.п.)
Аватара пользователя
Alf
зам. управляющего
зам. управляющего
Сообщения: 674
Зарегистрирован: 25.06.2004 09:40
Откуда: Щербиновский
Контактная информация:

Скрипт определения груп по пользователю.

Сообщение Alf » 10.04.2006 11:17

set wshNetwork = WScript.CreateObject( "WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")

do while wshNetwork.username = ""
WScript.Sleep 1000
loop

username = wshNetwork.username
domainname = wshNetwork.userdomain

'отбор групп в которые входит пользователь
adspath = "WinNT://" & domainname & "/" & username
set adsobj = GetObject(adspath)

' перебор групп
for each prop in adsobj.groups
msgbox prop.name
select case prop.name
case "Administrators"
call Adminslogon
case "YourNewGroup"
call YourNewGrouplogon
end select
next

Вернуться в «ПО для наших нужд»

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 3 гостя

cron