AlexSSS
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
felixroot
лови скрипт, вставишь его в Excel-->Tools-->Macros-->Visual Basic Editor-->Modules-->add module-->Module1
скрипт работает со стандартным расположением пользователей в Users (без OU)
закомментированный кусок как раз что-то прописывает в AD
Sub test()
Cells.Select
Selection.ClearContents
On Error Resume Next
Const E_ADS_PROPERTY_NOT_FOUND = &H8000500D
Set objOU = GetObject("LDAP://cn=users,dc=dom1,dc=dom2")
objOU.Filter = Array("user")
n = 0
For Each objUser In objOU
n = n + 1
Sheets("Users").Cells(n, 1).Value = objUser.cn
Sheets("Users").Cells(n, 2).Value = objUser.samAccountName
Sheets("Users").Cells(n, 3).Value = objUser.FirstName
Sheets("Users").Cells(n, 4).Value = objUser.LastName
Sheets("Users").Cells(n, 5).Value = objUser.DisplayName
Sheets("Users").Cells(n, 6).Value = objUser.AccountDisabled
Sheets("Users").Cells(n, 7).Value = objUser.LastLogin
Sheets("Users").Cells(n, 8).Value = objUser.PrimaryGroupID
Sheets("Users").Cells(n, 9).Value = objUser.LoginScript
' If Trim(objUser.LoginScript) = "init" Then
' objUser.LoginScript = "init.bat its"
' objUser.SetInfo
' End If
Next
Selection.Sort Key1:=Range("I1"), Order1:=xlAscending, Key2:=Range("H1") _
, Order2:=xlAscending, Key3:=Range("A1"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Добавлено:
PS. Тебе нужно прописывать не скрипт, а home директори, найди сам, как точно называется это свойство. Если не найдешь, освобожусь, сам найду |
)
