Problème de droits avec un script

Version imprimable

Bonjour,
J'ai un code VBS à exécuter lors de l'ouverture de session qui mappe des lecteurs réseau. Le problème c'est qu'à l'ouverture de session, il y a ce message d'erreur :
Script : logonScript.vbs
Ligne : 15
Caract. : 1
Erreur : Permission refusée
Code : 800A0046

Voici les lignes de code concernées, la ligne 15 étant la dernière :
Code:

1 2 3 4 5 6 7 ScriptLogName = "_LoginScript.log" Set WshNetwork = WScript.CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") Set oDrives = WshNetwork.EnumNetworkDrives Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set inputFile = fso.OpenTextFile(fTMP & "\" & ScriptLogName, 2, True)
Une autre personne a exécuté ce script sur son ordinateur avec son nom et ça a très bien marché. Je n'ai apparemment pas les droits pour faire quelques chose. Je ne connais pas le VBS, donc de quels droits dois-je disposer ?

Cordialement,

05/10/2010, 13h49
l_autodidacte

Bonjour;

Si tu mets tout le script, on pourra y voir plus clair.
Par exemple: que représente "fTMP" ?
On ne sait pas comment tu l'as défini.
05/10/2010, 17h15
_xme_

bonsoir

(je ne comprends pas ta question l_autodidacte, pour moi fTMP doit être le chemin d'accès au script non?)

Plusieurs questions :
as tu essayé de lancer ce script à la main? (en passant directement par un explorateur windows)

as-tu chercher les différences entre ton poste et celui de ton collègue? (par hasard es-tu simple utilisateur de ton poste alors que lui serait administrateur ?)

bonne soirée
06/10/2010, 00h23
l_autodidacte

Citation:

(je ne comprends pas ta question l_autodidacte, pour moi fTMP doit être le chemin d'accès au script non?)

Pourtant ma question est bien claire.
Remarque bien que

Citation:

Set inputFile = fso.OpenTextFile(fTMP & "\" & ScriptLogName, 2, True)

est le fichier journal(.log) et pas le script lui-même.
A part cela, tes questions sont à leur place.
Et j'ajouterai que peut-être le dossier destination(fTMP) du fichier journal est l'un des dossiers protégés par le système(donc accès refusé).

Essaie de changer la destination du fichier journal et mets par exemple

Code:

Set inputFile = fso.OpenTextFile("C:\" & ScriptLogName, 2, True)

puis regarde ce que cela donne

Bonjour, voici la totalité du code :

Code:

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
'Group Drive Mappings Script
 
Const HKEY_CURRENT_USER = &H80000001
 
Dim WshNetwork, WshShell
Dim oDrives, fUser, fDomain, oGroupDict
Dim ScriptLogName
 
ScriptLogName = "_LoginScript.log"
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oDrives = WshNetwork.EnumNetworkDrives
'Set fso = WScript.CreateObject("Scripting.FileSystemObject")
'Set inputFile = fso.OpenTextFile(fTMP & "\" & ScriptLogName, 2, True)
 
fTMP = WshShell.ExpandEnvironmentStrings("%TEMP%")
WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
 
'WriteLog(Now() & ": ****** Start Login Script ******")
 
fUser = WshNetwork.UserName
fDomain = WshNetwork.UserDomain
 
'****** Group Drives ******
'WriteLog("Starting personal drive mapping")
MapDrive "P:", "\\snoopy\" & wshNetwork.Username
 
'WriteLog("Starting Group Script Area")
 
if isMember("eqp-gestion") then
	MapDrive "G:", "\\snoopy\Gestion"
end if
 
'***** use elseif for mapping multiple groups to the same share*******
'if isMember("IT Infrastructure") then
'MapDrive "S:", "\\server\it"
'elseif isMember("Helpdesk Staff") then
'MapDrive "S:", "\\server\it"
'elseif isMember("Data Services") then
'MapDrive "S:", "\\server\it"
'end if
 
'WriteLog("Ending Group Script Area")
 
 
'WriteLog(Now() & ": ****** Login Script Complete ******")
'WriteLog("")
 
Function IsMember(sGroup)
Dim sAdsPath, oUser, oGroup
 
If IsEmpty(oGroupDict) Then
Set oGroupDict = CreateObject("Scripting.Dictionary")
oGroupDict.CompareMode = vbTextCompare
 
sAdsPath = WshNetwork.UserDomain & "/" & WshNetwork.UserName
Set oUser = GetObject("WinNT://" & sAdsPath & ",user")
 
For Each oGroup In oUser.Groups
oGroupDict.Add oGroup.Name, "-"
Next
Set oUser = Nothing
End If
IsMember = CBool(oGroupDict.Exists(sGroup))
if (IsMember) then
'WriteLog(Now() & " User is member of " & sGroup)
end if
 
End Function
 
Sub MapDrive(sLetter,sUNC)
Dim oNetwork
Set oNetwork = WScript.CreateObject("WScript.Network")
For i = 0 to oDrives.Count -1 Step 2
if LCase(sLetter) = LCase(oDrives.Item(i)) then
oNetwork.RemoveNetworkDrive sLetter, true, true
'WriteLog(Now() & ": Removed drive """ & sLetter & """ from share """ & sUNC & " (already connected) " & "")
end if
Next
oNetwork.MapNetworkDrive sLetter,sUNC
If Err.Number = 0 Then
'WriteLog(Now() & ": Connect """ & sLetter & """ to share """ & sUNC & """")
else
'WriteLog(Now() & ": Failed to Connect """ & sLetter & """ to share """ & sUNC & """")
end if
on error goto 0
End Sub
 
sub WriteLog(strEntry)
inputFile.WriteLine(strEntry)
End Sub

En fait, c'est mon collègue qui a écrit ce code, car je ne connais pas le VBS.
J'ai lancé le script à la main, il fonctionne et génère bien un fichier "_LoginScript.log" qui décrit les étapes réalisées.
Apparemment, lorrsqu'on met ce script dans une stratégie de groupe, il ne marche pas car je crois qu'il essaye d'écrire le "_LoginScript.log" sur le contrôleur de domaine.
Ce que j'ai fais, c'est que j'ai mis ensuite en commentaire toutes les lignes qui écrit dans le "_LoginScript.log". Le script fonctionne toujours quand il est lancé à la main, mais via la stratégie de groupe, rien ne se passe.

A priori il n'y a pas de différence entre le poste de mon collègue et le mien, on a le même OS et les mêmes droits.

07/10/2010, 16h24
_xme_
bonjour
je n'ai pas compris "lorsqu’on met ce script dans une stratégie de groupe" :?
Je connais assez mal la gestion des droit sous windows?
A priori je présume qu'il y a un champ auteur sur tout script et que seul l'auteur peut l'exécuter.
Il faudrait donc voir comment se gère les droits d'un fichier

(remarque pour être certain de la ligne qui plante tu peux l'entourer de Msgbox (oui je sais c'est moche mais ca marche bien :) ) )

http://support.microsoft.com/kb/469834/fr

[edit] tien une lecture qui si çà avère vrai, viens de m'apprendre quelque chose de grand :D
http://samuelhaddad.com/2009/06/26/v...0046-solution/

genre
Code:

1 2 3 if isMember("eqp-gestion") then MapDrive "G:", "\\snoopy\Gestion\" end if
à tester ;)
[/edit]