Dll ne fonctionne pas à son appel

trax3699 Messages postés 4 Date d'inscription mercredi 21 décembre 2005 Statut Membre Dernière intervention 17 mai 2011 - 13 juin 2006 à 15:41
cs_poppyto Messages postés 540 Date d'inscription dimanche 29 décembre 2002 Statut Modérateur Dernière intervention 13 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 ...

merci encore

1 réponse

cs_poppyto Messages postés 540 Date d'inscription dimanche 29 décembre 2002 Statut Modérateur Dernière intervention 13 mai 2011
14 juin 2006 à 08:53
Si le code est bon, cela veut dire que l'utilisateur qui execute ce code dans IIS n'a pas les droits pour executer correctement le code.

Poppyto
Cours de basse gratuits avec vidéos et ralentis 
Cours de guitare gratuits avec vidéos et ralentis 
[</body ]
0
Rejoignez-nous