trax3699
Messages postés4Date d'inscriptionmercredi 21 décembre 2005StatutMembreDernière intervention17 mai 2011
-
13 juin 2006 à 15:41
cs_poppyto
Messages postés540Date d'inscriptiondimanche 29 décembre 2002StatutModérateurDernière intervention13 mai 2011
-
14 juin 2006 à 08:53
Bonjour à tous et merci d'avance pour vos réponses.
J'ai une page asp qui fait appel à une dll qui attaque l'activ directory pour ajouter ou supprimer des utilisateurs dans des groupes, mais iis me retoure une erreur 500 voici mon code :
Set objSecurity = server.CreateObject("getsecurity.Group")
Set myRs = Server.CreateObject("ADODB.Recordset")
userLogin = ""
If Request.QueryString("typeAction") = "CP" Then
mySQL = "SELECT ChefP FROM MISSION Where Id='" & CStr(Request.QueryString("IdMission")) & "';"
Set myRs = myCn.Execute(mySQL)
If Not myRs.EOF Then 'Suppression dans NT
myArray = Split(myRs("ChefP"),":")
objSecurity.DeleteUserInGroup "CHENOO",Request.QueryString("IdMission") & " CP", Array(CStr(myArray(1)))
End If 'La personne sélectionnée
nSelected = Request.Form("listMember").Count
If (nSelected > 0) Then userLogin = Request.Form("listMember")(1)
'Insertion dans NT
AddUserToGroup "CHENOO",Request.QueryString("IdMission") & " CP", Array(userLogin) End If
If userLogin <> "" Then
mySQL = "UPDATE MISSION Set ChefP='" & CStr(getIdByLogin(userLogin) & ":" & userLogin) & "' WHERE Id='" & Request.QueryString("IdMission") & "';" myCn.Execute mySQL End If
Else If
Request.QueryString("typeAction") = "CM" Then ...