Re: AD i dodawanie kont - skrypt

Autor: TomekP <"TomekP">
Data: Thu 12 May 2005 - 15:27:16 MET DST
Message-ID: <4283599a@news.vogel.pl>

Konta tworzę dokładnie tak jak jest napisane w tym skrypcie na stronie którą
podałeś:

strDestOU = "OU=użytkownicy,ou=x,ou=y"
srtDestOUg = "OU=Grupy,ou=x,ou=y"
Set rootDSE = GetObject("LDAP://rootDSE")
strDomain = rootDSE.Get("defaultNamingContext")
strDestDSPath = strDestOU & "," & strDomain
Set objDestOU = GetObject("LDAP://"& strDestDSPath)

arrUserDate = Split (struserAccounts, vbCRLF )

If UBound(arrUserDate) > 0 Then

 for each arrUser in arrUserDate
  arrUserDetails = Split (arruSer, ";" )

  Set objUser = objDestOu.Create("user", "CN=" & arrUserDetails(0) )
  With objUser
   .Put "samAccountName", arrUserDetails(0)
   .Put "userPrincipalName", arrUserDetails(0) & "@" & strDomain
   .Put "givenName", arrUserDetails(2)
   .Put "sn", arrUserDetails(1)
   .Put "displayName", arrUserDetails(2) & " " & arrUserDetails(1)
   .Put "description", arrUserDetails(4)
   .SetInfo
   .Put "scriptPath", "x.cmd"
   .SetInfo
(...)

dane pobierane są z pliku:
login;imie;nazwisko;haslo;opis

i wlasnie login jest wyswietlany na liscie jako nazwa, a nie polaczone imie
z nazwiskiem

Tomek
Received on Thu May 12 15:30:13 2005

To archiwum zostało wygenerowane przez hypermail 2.1.8 : Thu 12 May 2005 - 15:42:03 MET DST