[vbs] probléme connexion à Active directory

**dareman** · 14/05/2009, 09h18

bonjour,
actuellement en stage je suis chargé de développé un script qui doit permetre de modifier certain champ de l'ad pour un utilisateur précis.

j'ai créé un bout de script en hta (pour que ce soit plus pratique à l'admin pour qui je fait ce travail) qui recherche toutes les ou contenues dans l'ou mairie, stok le résultat dans une combobox et une fois qu'une ou est choisie je voudrai récupérer tout les utilisateurs qu'elle comporte et la probléme

voici mon code:
_________________________________________________________________

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
<HTML>
	<HEAD> 
		<TITLE>Application champs pour vizelia</TITLE>
		<HTA:APPLICATION ID = 'champViz'>
	</HEAD>
	<body bgcolor="#FFFFD2" scroll="no">
<div id="comboboxDOU"></div>
 
 
 
			<script language="VBScript">
 
' ----------------------------------------------------------
' Variables Globales et Constantes			
' ----------------------------------------------------------
Dim objConnection, UO, objRootDSE, objConn, strFilter, objRS, strBase, strBase2
Dim str, strAttrs, strScope, objRSS, objConn2,utilisateur, strFilter2  
 
' ----------------------------------------------------------'
' Corps du script											
' ----------------------------------------------------------'
main
' ----------------------------------------------------------'
' Procédure MAIN
' ----------------------------------------------------------'
sub main
Set objRootDSE = GetObject("LDAP://rootDSE")
strBase = "<LDAP://" & "OU=Mairie," & objRootDSE.Get("defaultNamingContext") & ">;"
strFilter = "(objectCategory=OrganizationalUnit);"
strAttrs = "distinguishedName;" 'il s’agit de la liste des champs souhaités séparés par des virgules
strScope = "SubTree" ' profondeur de la recherche
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider" ' fournisseur de données
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
objRS.MoveFirst
strComboBox = "<Select id=""Combo"" name=""Combo"">" & VbCrLf
strComboBox = strComboBox & "<option value=""" & "" & """>" & "" & "</option>" & VbCrLf 
Do While Not objRS.EOF
str = ""
str = ExtraitListeG(objRS.Fields(0).Value, ",") ' pour ne récupérer que des 'truc de la forme ou=ssi  et non ou=ssi,ou=mairie,dc=mairie,dc=lan
 
strComboBox = strComboBox & "<option value=""" & str & """>" & str & "</option>" & VbCrLf 
objRS.MoveNext
Loop
strComboBox = strComboBox & "</select>"
document.all.comboboxDOU.innerHTML = strComboBox
objConn.close
End Sub
Function ExtraitListeG(Liste, Cherche) ' extrait le champ à gauche d'une ,
	Dim pos
	pos = InStr(Liste, Cherche)
	If pos = 0 Then
		ExtraitListeG = ""
	Else
		ExtraitListeG = Mid(Liste, pos)
		ExtraitListeG = Left(Liste, Len(Liste) - Len(ExtraitListeG))
	End If
End Function
'jusque la sa marche ^^, ici arrive les problémes
 
Sub  combo_onchange ' quand une OU est selectionné dans la combobox
'strBase2 = "<LDAP://" & combo.value & "," & objRootDSE.Get("defaultNamingContext") & ">;" 
dim objfichier, myfile
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
 
objCommand.CommandText = "SELECT dn FROM 'LDAP://"& combo.value &",dc=mairie,dc=lan' WHERE objectCategory='user'" 'le probléme doit etre ici, 'enfin je pense,  vu ke je ne comprend pas l'erreur 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
   ' Set objUser = GetObject(objRecordSet.Fields("dn").Value)
 
	msgbox("toto")
    objRecordSet.MoveNext
Loop
end sub
	</script>			
 
 
<span id = "testspan"></span>
<form name="TestForm">
<INPUT TYPE="Button" NAME="btnStart" VALUE="Start"><br>	
</form>
 
</BODY>
</HTML>

_________________________________________________________________
quand le script est lancé le probléme suivant m'est indiqué: "le tableau n'existe pas " et l'erreur m'est indiqué sur cette ligne:
Set objRecordSet = objCommand.Execute

voila j'espère quelqu'un pourra m'aider parceque la je commence à craqué nerveusement cela fait une semaine que je bloque dessus

merci à tout ceux qui liront ce poste

**dareman** · 15/05/2009, 09h56

bonjour,
tout d'abord merci au modaux d'avoir corrigé mon message, j'y penserai à l'avenir.

sinon j'ai trouvé cette page http://support.microsoft.com/kb/296254/fr

si je comprend bien mon problème serai lier à un probléme d'utilisation, étant connecté en tant que client je ne pourai pas accéder aux infos des utilisateur autrement qu'en acceptant un certificat.
si quelqu'un pour me renseigner plus que le lien fourni cela me serai d'un grand secours, merci d'avance.

[vbs] probléme connexion à Active directory

VBScript

Discussions similaires

Partager

Partager