General access denied error su active directory

venerdì 03 aprile 2009 - 12.23

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

cicemoi Profilo | Junior Member

72 messaggi | Data Invio: ven 3 apr 2009 - 12:23

Creata la sub che torna la diretory entry di un utente su active directory (GetDEFromUsernamePassword), ho creato una sub che mi permette di abilitare o disabilitare il "Password never expires" dell'account in questo modo

Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
oDirectoryEntry = GetDEFromUsernamePassword() 'torna la Dir Entry dell'utente

Dim objUser As Object
objUser = GetObject(oDirectoryEntry.Path)

Dim intUAC As Integer
intUAC = objUser.Get("userAccountControl")

If intUAC And ADS_UF_DONT_EXPIRE_PASSWD Then
objUser.put("userAccountControl", intUAC Xor ADS_UF_DONT_EXPIRE_PASSWD)
objUser.setinfo() ---qui va in errore

solo che sul setInfo l'applicazione va in errore "General access denied error". La cosa + strana è che va in errore solo applicando la funzione ad una web application mentre applicandola ad una windows application funziona correttamente! A cosa potrebbbe essere dovuto?

Aiutooo

Cinzia

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 !