Problème avec mon script

**whyata** · 15/01/2009, 12h43

Bonjour,

Le script suivant cherche les lecteurs à mapper selon mon OU et mappe les lecteurs à l'ouverture de session

Donc avec mon script

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
Dim WshShell
Dim objNet
Dim objRootDSE
Dim Tab
Dim DN
Dim i
Dim strComputer
DN = ""
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objNet = WScript.CreateObject("WScript.Network")' create network object for vars
Set objRootDSE = GetObject("LDAP://rootDSE")' bind to the rootDSE for portability
strADsConfPath = "LDAP://" & objRootDSE.Get("configurationNamingContext")' bind to configuration to get Domain Controllers later
strRootDSE = objRootDSE.Get("defaultNamingContext")' bind to the defaultContext for portability
strUserName = UCase(objNet.UserName)' pull user name from environment variable
Tab =  Split(GetDNUser(strUserName,"person"),",")
 
For i=1 to UBound(Tab)
 If i = Ubound(Tab) Then
 
 DN = DN + Tab(i)
 Else
 DN = DN + Tab(i) + ","
 End If
Next
'MsgBox DN
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.CommandText = "Select Name, unCName, ManagedBy from " _
    & "'LDAP://"&DN&"' where objectClass='volume'"
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
    msgbox objRecordSet.Fields("Name").Value
    msgbox objRecordSet.Fields("uNCName").Value
 
Dim oNet 
Set oNet = CreateObject("Wscript.Network") 
oNet.MapNetworkDrive objRecordSet.Fields("Name").Value, objRecordSet.Fields("uNCName").Value
objRecordSet.MoveNext
 
Loop
 
Function GetDNUser(param1,param2)
  Set objDSE = GetObject("LDAP://rootDSE")
  ON ERROR RESUME NEXT
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open "Provider=ADsDSOObject;"
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "SELECT distinguishedName, Sn " & "FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & "WHERE objectCategory='" & param2 & "' AND sAMAccountName='" & param1 & "' " & "ORDER BY sAMAccountName"
  Set objRecordSet = objCommand.Execute
  GetDNUser = objRecordSet.Fields("distinguishedName")
  objConnection.Close
  if err.number <> 0 then
    msgbox "ERREUR: le nom renseigné n'existe pas dans l'AD.",16,Wscript.ScriptName & " " & version
    ERR.CLEAR
    wscript.quit
  end if
End Function
MsgBox "Mappage effectué"

j'ai mes lecteurs qui sont bien mappé mais mon soucis c'est que j'ai ce message qui arrive quand je me reloge

( windows script host):
Script: \\chemin de mon script
Line:36
Char:1
Error: Either BOF or EOF is true, or the current record has been deleted.request operation requires a current record.
Code: 800A0BCD
Source: ADODB.Recordest

Je suis nulle en vbscript, ce n'est pas moi qui l'ai fait mais on m'a dit que je peux oté les msgbox j'en ai oté et depuis j'ai ce message à l'ouverture de session.

( windows script host):
Script: \\chemin de mon script
Line: 41
Char:1
Error: the local device name is already in use
Code: 80070055
Source: WSHNetwork.MapNetworkDrive

et voici le nouveau script qui me donne le message d'erreur ci dessus:

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
Dim WshShell
Dim objNet
Dim objRootDSE
Dim Tab
Dim DN
Dim i
Dim strComputer
DN = ""
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objNet = WScript.CreateObject("WScript.Network")' create network object for vars
Set objRootDSE = GetObject("LDAP://rootDSE")' bind to the rootDSE for portability
strADsConfPath = "LDAP://" & objRootDSE.Get("configurationNamingContext")' bind to configuration to get Domain Controllers later
strRootDSE = objRootDSE.Get("defaultNamingContext")' bind to the defaultContext for portability
strUserName = UCase(objNet.UserName)' pull user name from environment variable
Tab =  Split(GetDNUser(strUserName,"person"),",")
 
For i=1 to UBound(Tab)
 If i = Ubound(Tab) Then
 
 DN = DN + Tab(i)
 Else
 DN = DN + Tab(i) + ","
 End If
Next
 
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.CommandText = "Select Name, unCName, ManagedBy from " _
    & "'LDAP://"&DN&"' where objectClass='volume'"
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
 
Dim oNet 
Set oNet = CreateObject("Wscript.Network") 
oNet.MapNetworkDrive objRecordSet.Fields("Name").Value, objRecordSet.Fields("uNCName").Value
objRecordSet.MoveNext
 
Loop
 
Function GetDNUser(param1,param2)
  Set objDSE = GetObject("LDAP://rootDSE")
  ON ERROR RESUME NEXT
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open "Provider=ADsDSOObject;"
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "SELECT distinguishedName, Sn " & "FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & "WHERE objectCategory='" & param2 & "' AND sAMAccountName='" & param1 & "' " & "ORDER BY sAMAccountName"
  Set objRecordSet = objCommand.Execute
  GetDNUser = objRecordSet.Fields("distinguishedName")
  objConnection.Close
  if err.number <> 0 then
    msgbox "ERREUR: le nom renseigné n'existe pas dans l'AD.",16,Wscript.ScriptName & " " & version
    ERR.CLEAR
    wscript.quit
  end if
End Function

Je souhaiterai enlever toutes les msgbox, puisque le script fonctionne tous mes lecteurs sont mappés et j'y ai accès correctement

**ced600** · 15/01/2009, 13h31

Je souhaiterai enlever toutes les msgbox, puisque le script fonctionne tous mes lecteurs sont mappés et j'y ai accès correctement

Faux !!!
Tu as des erreurs donc ton script ne fontionne pas. Ce n'est pas parce qu'il fait une partie du traitement qu'il fonctinne.

Ton erreur n'as rien à voir avec la présence de msgbox, mais avec ceux-ci :

Code :

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

objRecordSet.Fields("Name").Value

Cela plante à un moment donnée dans la boucle. Il faudrait rajouter des éléments informatifs dans la boucle pour déboguer, mais j'ai l'impression que tu n'as pas fait ce script et qu'il te sera difficille de le déboguer.

As tu des utilisateurs en double dans ton AD ?

**whyata** · 15/01/2009, 14h06

Envoyé par ced600

Faux !!!
Tu as des erreurs donc ton script ne fontionne pas. Ce n'est pas parce qu'il fait une partie du traitement qu'il fonctinne.

Ton erreur n'as rien à voir avec la présence de msgbox, mais avec ceux-ci :

Code :

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

objRecordSet.Fields("Name").Value

Cela plante à un moment donnée dans la boucle. Il faudrait rajouter des éléments informatifs dans la boucle pour déboguer, mais j'ai l'impression que tu n'as pas fait ce script et qu'il te sera difficille de le déboguer.

As tu des utilisateurs en double dans ton AD ?

Oui je l ai dit c'est pas moi qui l'ai fait, non il a pas d'utilisateurs en double. Je m'y connais vraiment mais vraiment pas, j'ai fait un recherche j'ai trouvé ce script qui me convenait parfaitement. Parcontre j'ai des GPO en double elles font exactement la meme chose mais elles ont des noms différents.

(Merci de t'etre penché sur mon problème)

**whyata** · 16/01/2009, 12h26

Envoyé par whyata

Oui je l ai dit c'est pas moi qui l'ai fait, non il a pas d'utilisateurs en double. Je m'y connais vraiment mais vraiment pas, j'ai fait un recherche j'ai trouvé ce script qui me convenait parfaitement. Parcontre j'ai des GPO en double elles font exactement la meme chose mais elles ont des noms différents.

(Merci de t'etre penché sur mon problème)

j'ai regardé sur ce site "S'il vous plait Monsieur script' là syntaxe est donne je ne comprends pas pourquoi en lançant mon script avec VbsEdit, il se bloque à la ligne:

objRecordSet.MoveFirst

en me mettant ce message d'erreur

Script: \\chemin de mon script
Line:36
Char:1
Error: Either BOF or EOF is true, or the current record has been deleted.request operation requires a current record.
Code: 800A0BCD
Source: ADODB.Recordest

**ced600** · 16/01/2009, 13h18

Je n'ai pas l'habitude de faire de de l'ADODB, mais il semble que soit tu tentes de te déplacer en dehors de la plage de ton record set, soit tu tentes de te déplacer sur une ligne du record set qui vient d'être supprimer.
Peut être que ta commande est incorrect :

Code :

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

objCommand.CommandText = "Select Name, unCName, ManagedBy from 'LDAP://" & DN & "' where objectClass='volume'"

**whyata** · 16/01/2009, 14h19

Envoyé par ced600

Je n'ai pas l'habitude de faire de de l'ADODB, mais il semble que soit tu tentes de te déplacer en dehors de la plage de ton record set, soit tu tentes de te déplacer sur une ligne du record set qui vient d'être supprimer.
Peut être que ta commande est incorrect :

Code :

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

objCommand.CommandText = "Select Name, unCName, ManagedBy from 'LDAP://" & DN & "' where objectClass='volume'"

j'ai modifié un peu le script :

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
Dim WshShell
Dim objNet
Dim objRootDSE
Dim Tab
Dim DN
Dim i
Dim strComputer
DN = ""
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objNet = WScript.CreateObject("WScript.Network")' create network object for vars
Set objRootDSE = GetObject("LDAP://rootDSE")' bind to the rootDSE for portability
strADsConfPath = "LDAP://" & objRootDSE.Get("configurationNamingContext")' bind to configuration to get Domain Controllers later
strRootDSE = objRootDSE.Get("defaultNamingContext")' bind to the defaultContext for portability
strUserName = UCase(objNet.UserName)' pull user name from environment variable
Tab =  Split(GetDNUser(strUserName,"person"),",")
 
For i=1 to UBound(Tab)
 If i = Ubound(Tab) Then
 
 DN = DN + Tab(i)
 Else
 DN = DN + Tab(i) + ","
 End If
Next
 
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.CommandText = "Select Name, unCName, ManagedBy from " _
    & "'LDAP://"&DN&"' where objectClass='volume'"
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
Set objRecordSet = objCommand.Execute
 
Do Until objRecordSet.EOF
'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
objRecordSet.MoveFirst
 
 
 
Dim oNet 
Set oNet = CreateObject("Wscript.Network") 
oNet.MapNetworkDrive objRecordSet.Fields("Name").Value, objRecordSet.Fields("uNCName").Value
objRecordSet.MoveNext
 
 On error resume next
oNet.RemoveNetworkDrive objRecordSet.Fields("Name").Value
On error goto 0
Set oNet = nothing 
 
On error resume next
oNet.RemoveNetworkDrive objRecordSet.Fields("Name").Value
On error goto 0
Set oNet = nothing 
 
Loop
 
Function GetDNUser(param1,param2)
  Set objDSE = GetObject("LDAP://rootDSE")
  ON ERROR RESUME NEXT
  Set objConnection = CreateObject("ADODB.Connection")
  objConnection.Open "Provider=ADsDSOObject;"
  Set objCommand = CreateObject("ADODB.Command")
  objCommand.ActiveConnection = objConnection
  objCommand.CommandText = "SELECT distinguishedName, Sn " & "FROM 'LDAP://" & objDSE.Get("defaultNamingContext") & "' " & "WHERE objectCategory='" & param2 & "' AND sAMAccountName='" & param1 & "' " & "ORDER BY sAMAccountName"
  Set objRecordSet = objCommand.Execute
  GetDNUser = objRecordSet.Fields("distinguishedName")
  objConnection.Close
  if err.number <> 0 then
    msgbox "ERREUR: le nom renseigné n'existe pas dans l'AD.",16,Wscript.ScriptName & " " & version
    ERR.CLEAR
    wscript.quit
  end if
End Function
MsgBox "Mappage effectué"

et avec VbsEdit j'ai plus de message d'erreur, parcontre quand je vais sur ma session test, j'ai ce message qui apparait

( windows script host):
Script: \\chemin de mon script
Line: 46
Char:1
Error: the local device name is already in use
Code: 80070055
Source: WSHNetwork.MapNetworkDrive

et ensuite que le Mappage effectué donc je comprends pas

**RadPAT** · 16/01/2009, 14h36

Salut,

en regardant vite fait j'ai trouvé un truc qui ne va pas :

Code :

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

1
2
3
4
5
6
Do Until objRecordSet.EOF
    'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
     objRecordSet.MoveFirst
..../....
Loop

Faire un objRecordSet.MoveFirst juste après un DO, ca veut dire que tu fais une boucle mais que tu reviens toujours sur le 1er enreg de ton recordset, donc tu lis toujours la même chose du coup tu as un message "Error: the local device name is already in use" puisque tu l'as déjà lu...

A la place du code ci dessus teste moi ca :

Code :

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

1
2
3
4
5
6
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
..../....
Loop

A++

**whyata** · 16/01/2009, 14h44

Envoyé par RadPAT

Salut,

en regardant vite fait j'ai trouvé un truc qui ne va pas :

Code :

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

1
2
3
4
5
6
Do Until objRecordSet.EOF
    'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
     objRecordSet.MoveFirst
..../....
Loop

Faire un objRecordSet.MoveFirst juste après un DO, ca veut dire que tu fais une boucle mais que tu reviens toujours sur le 1er enreg de ton recordset, donc tu lis toujours la même chose du coup tu as un message "Error: the local device name is already in use" puisque tu l'as déjà lu...

A la place du code ci dessus teste moi ca :

Code :

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

1
2
3
4
5
6
 
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name").Value
..../....
Loop

je le teste de suite je te tiens au courant

A++

**whyata** · 16/01/2009, 14h50

ben quand je fais comme tu m as dit j'ai le message suivant :

Line:40
Column:1
Error: Either BOF or EOF is true, or the current record has been deleted. Requested operation requires a current record.
Code: 800AOBCD
Source: ADODB.Recordset

System : Power has been restored at %1. The server is no longer paused

J'ai trouvé sur un site qu'au début de leur script il marque "On error resume next "

**RadPAT** · 16/01/2009, 14h53

c'est plutot mauvais signe, c'est que ton

Code :

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

Set objRecordSet = objCommand.Execute

n'a généré aucun enregistrement...
Regarde aussi ta requete SQL, fais

Code :

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

msgbox DN

pour voir si c'est la bonne valeur que tu attends de DN...

**whyata** · 16/01/2009, 14h57

Envoyé par RadPAT

c'est plutot mauvais signe, c'est que ton

Code :

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

Set objRecordSet = objCommand.Execute

n'a généré aucun enregistrement...
Regarde aussi ta requete SQL, fais

Code :

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

msgbox DN

pour voir si c'est la bonne valeur que tu attends de DN...

je le test de suite je le mets après

Code :

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

Set objRecordSet = objCommand.Execute

?

**whyata** · 16/01/2009, 15h01

Envoyé par RadPAT

c'est plutot mauvais signe, c'est que ton

Code :

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

Set objRecordSet = objCommand.Execute

n'a généré aucun enregistrement...
Regarde aussi ta requete SQL, fais

Code :

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

msgbox DN

pour voir si c'est la bonne valeur que tu attends de DN...

alors ça me retourne CN=Users, DN=Mondomaine, DC=com et ensuite j ai le meme message d'erreur que tout à l heure au niveau de

Code :

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

objRecordSet.MoveFirst

**RadPAT** · 16/01/2009, 15h26

ok,

place ceci pour voir combien d'enregistrements sont trouvés :

Code :

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

1
2
3
4
5
6
7
....
Set objRecordSet = objCommand.Execute
msgbox objRecordset.RecordCount 

objRecordSet.MoveFirst
Do ....

si ca te retourne 0, c'est que ta requete est à revoir.

A++

**whyata** · 16/01/2009, 15h42

Envoyé par RadPAT

ok,

place ceci pour voir combien d'enregistrements sont trouvés :

Code :

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

1
2
3
4
5
6
7
....
Set objRecordSet = objCommand.Execute
msgbox objRecordset.RecordCount 

objRecordSet.MoveFirst
Do ....

si ca te retourne 0, c'est que ta requete est à revoir.

A++

ça me retourne 0

ce que je ne comprends pas c'est que sur mes utilisateurs test, ça mappe. J'ai fait le test en déconnectant les lecteurs et en faisant un log off, log on les lecteurs sont de nouveaux mappés. Tout ça c'est en mettant "on error resume next".

**RadPAT** · 16/01/2009, 16h04

Envoyé par whyata

alors ça me retourne CN=Users, DN=Mondomaine, DC=com et ensuite j ai le meme message d'erreur que tout à l heure au niveau de

Code :

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

objRecordSet.MoveFirst

C'est bien dans l'OU users que tu souhaites taper ?
Ton objCommand.Execute fonctionne bien chez moi par contre c'est dans une OU Shares et pas Users. Sinon, renseigne en dur ta valeur DN sans préciser l'OU :

Code :

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

1
2
 
objCommand.CommandText = "Select Name, unCName, ManagedBy from 'LDAP://DN=Mondomaine, DC=com ' where objectClass='volume'"

ca va etre + long mais au moins on sera sur de notre coup...

A++

**whyata** · 16/01/2009, 16h09

Envoyé par RadPAT

C'est bien dans l'OU users que tu souhaites taper ?
Ton objCommand.Execute fonctionne bien chez moi par contre c'est dans une OU Shares et pas Users. Sinon, renseigne en dur ta valeur DN sans préciser l'OU :

Code :

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

1
2
 
objCommand.CommandText = "Select Name, unCName, ManagedBy from 'LDAP://DN=Mondomaine, DC=com ' where objectClass='volume'"

ca va etre + long mais au moins on sera sur de notre coup...

A++

Oui le script trouve l'uo de l'utilisateur en cours + liste des lecteur partagé dans l'uo + mappage de ces derniers
Ok je teste ça (vraiment merci de m'aider)

**RadPAT** · 16/01/2009, 16h11

Envoyé par whyata

vraiment merci de m'aider

de rien, je suis ennervé et quand je suis ennervé je fais du VBS ca me détend, si en plus je peux essayer de rendre service....

A++

**whyata** · 16/01/2009, 16h17

Envoyé par RadPAT

de rien, je suis ennervé et quand je suis ennervé je fais du VBS ca me détend, si en plus je peux essayer de rendre service....

A++

donc j'ai renseigné en dur le DN et le DC et j'ai ce message d'erreur toujours à la ligne :

set objRecordSet = objCommand.Execute

Error: Tables does not exist
Code: 80040E37
Source: Provider

**RadPAT** · 16/01/2009, 16h18

Désolé faute de farppe, c'est pas DN c'est DC :

Code :

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

objCommand.CommandText = "Select Name, unCName, ManagedBy from 'LDAP://DC=Mondomaine, DC=com ' where objectClass='volume'"

**spantemonium** · 16/01/2009, 16h25

c'est quoi ce dn = ...

si c'est une OU, faut taper ou= , sinon DC= ...

ca donne plutot un truc du genre

Problème avec mon script

VBScript

Discussions similaires

Partager

Partager