вторник, 7 августа 2007 г.

СКРИПТЫ, Показывает поле примечание пользователя из АД

' Показывает поле примечание пользователя из АД
Set WSHNetwork = CreateObject("WScript.Network")
On Error Resume Next
Path = WSHNetwork.UserName
Set objSysInfo = CreateObject("ADSystemInfo")
strUserDN = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUserDN)
' Echo objUser.DisplayName
' Echo objUser.Description
wscript.Echo objUser.Description

Комментариев нет:

Отправить комментарий