Password utenti Active Directory

lunedì 01 febbraio 2010 - 16.00

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Faelar Profilo | Junior Member

71 messaggi | Data Invio: lun 1 feb 2010 - 16:00

Ciao a tutti.

Ho un problema durante la gestione degli Utenti in Active directory.

Dopo la creazione dell'utente, vorrei settare una password di entrata, per poi farla cambiare all'utente,
il problema è che quando chiamo la SetPassword, mi va in errore.

Questo è il mio codice:

Dim oRoot As DirectoryEntry
Dim oNewUser As DirectoryEntry

'*********** Tralascio la parte di apertura di AD.... ****************

oNewUser = oRoot.Children.Add(CNName, "user")

With oNewUser
.Properties("sAMAccountName").Add(UserID)
.Properties("pwdLastSet").Add(-1)
.Properties("userPrincipalName").Add(UserID & "@mioDominio")

.Properties("givenname").Add(UserID)
.Properties("sn").Add(UserID)
.CommitChanges()

.Properties("userAccountControl")(0) = CInt(.Properties("userAccountControl")(0)) Xor &H2
.Properties("userAccountControl")(0) = CInt(.Properties("userAccountControl")(0)) Or &H1
.CommitChanges()

.Invoke("SetPassword", New Object() {"BellaPsw123"}) '<---------------- A questo punto va in errore -------------
.CommitChanges()
End With

Grazie in anticipo.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !