Данные к номерам other в профиле пользователя.
Как можно получить номера телефонов из вкладки other профиля пользователя AD?
|
Код:
$user="UserName"
$dom ="LDAP://my.domain.com"
new-object DirectoryServices.DirectoryEntry($dom)
$searcher = new-object DirectoryServices.DirectorySearcher($dom)
$searcher.filter = "(&(objectClass=user)(sAMAccountName= $user))"
$ADuser = $searcher.findone().getDirectoryEntry()
$list = @{
"Home"=$ADuser.homePhone;
"Home_Other"=$ADuser.otherHomePhone;
"Pager"=$ADuser.pager;
"Pager_Other"=$ADuser.otherPager;
"Mobile"=$ADuser.mobile;
"Mobile_Other"=$ADuser.otherMobile;
"FAX"=$ADuser.FacsimileTelephoneNumber;
"FAX_Other"=$ADuser.otherFacsimileTelephoneNumber;
"ipPhone"=$ADuser.ipPhone
"IpPhone_Other"=$ADuser.otherIpPhone
}
$list.GetEnumerator()|sort name|Format-Table Name, @{
Label="Value";Expression={[string]$_.Value};Align="Left"
}
|
VBS
Код:
Domain_Name = "MyDomain" ' Имя домена
Domain_Ext = "by" ' Зона домена
Podraz_Name1 = "Управление заборостроения" ' Имя подразделения в домене (1 уровень)
Podraz_Name2 = "Отдел ажурных оград" ' Имя подразделения в домене (2 уровень)
Name_Last = "Пупкин" ' Фамилия пользователя
Name_First = "Вася" ' Имя пользователя
Set Domain = GetObject("LDAP://OU=" & Podraz_Name1 & ",DC=" & Domain_Name & ",DC=" & Domain_Ext)
Set Org2 = Domain.GetObject("organizationalUnit", "OU=" & Podraz_Name2)
Name_Full = Name_Last & " " & Name_First
Set User = Org2.GetObject("User", "CN=" & Name_Full)
Other = User.otherTelephone
nOther = UBound(Other)
Msg = ""
For i = 0 To nOther
Msg = Msg + vbCrLf + Other(i)
Next
MsgBox Msg
|
Время: 10:28.
© OSzone.net 2001-
