Discussion :

[cyrill.gremaud]

Bonjour,

mon problème est, je pense, simple. Je dois tester le droit d'écriture dans 3 dossiers différents. S'il n'a pas le droit en écriture, je dois tester le suivant etc. comment faire pour tester sa ?

Je suis partis dans l'optique de créer un fichier dans chaque dossier avec FSO.OpenTextFile mais je ne sais pas comment traiter les erreurs.

merci de votre aide

[pitchalov]

Salut!

C'est une méthode un peu sale, mais effectivement ça devrait fonctionner.
Pour faire cela, une petite fonction d'écriture du fichier texte avec test de l'erreur :

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
 
Function WriteAccess(strFolderPath)
	Set objFso = CreateObject("Scripting.FileSystemObject")
	On Error Resume Next
	strTmpFile = objFso.GetTempName
	Set objTmpFile = objFso.CreateTextFile(strFolderPath & strTmpFile)
	If Err.Number <> 0 Then
		WriteAccess = False
		Err.Clear
	Else
		WriteAccess = True
		objTmpFile.Close
		objFso.DeleteFile strFolderPath & strTmpFile
	End If
End Function
 
'Main
strFolder = "\\server\share\"
WScript.Echo "Acces en écriture au partage " & strFolder & " : " & WriteAccess(strFolder)

(code non testé pour info, mais ça devrait ressembler à ça)

Sinon, pour faire plus propre, il faudrait peut-être se pencher sur le listing des ACL du dossier distant, comparé aux groupes de ton utilisateur, mais c'est vrai que c'est un peu plus compliqué à faire.

Bonne continuation!

[cyrill.gremaud]

merci de ton aide.

mais c'est vraiment pour un check basique donc voila j'ai opté pour du encore plus sale et basique. j'ai fais un simple .bat qui fais un mkdir à l'endroit souhaité et ensuite avec le %ERRORLEVEL% sa me permet de checker mon droit en écriture ;-)

[hackoofr]

Sinon, pour faire plus propre, il faudrait peut-être se pencher sur le listing des ACL du dossier distant, comparé aux groupes de ton utilisateur, mais c'est vrai que c'est un peu plus compliqué à faire.

voila un début de code pour créer et tester le dossier en lecture seule en utilisant l'outil cacls en ligne de commande:

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
Set Ws = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
If Not FSO.FolderExists("c:\DossierLectureseule") Then
FSO.CreateFolder ("c:\DossierLectureseule")
end if
If FSO.FolderExists("c:\DossierLectureseule") Then ' le paramètre r pour la lecture seule
Command1 = "%COMSPEC% /c Echo o| cacls c:\DossierLectureseule /g " & qq(NomMachine) & ":r administrateurs:r > LectureSeule.txt"
Command2 = "%COMSPEC% /c Echo o| cacls c:\DossierLectureseule > Permission.txt"
Result1 = Ws.Run(Command1,0,True)'exécution de la commande sans afficher la console MS-DOS
Result2 = Ws.Run(Command2,0,True)'exécution de la commande sans afficher la console MS-DOS
End if
Set ReadOutPut = fso.OpenTextFile("Permission.txt",1)
st = ReadOutPut.ReadAll
tb = split(st,vbcrlf)
MsgBox tb(0),64,"1ère Ligne" 'on recupére la 1ère ligne
'Puis tu recupère le dernier caractére qui devrait être R
'alors si le caractére est le R alors le dossier est en lecture seule
 
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

Bonne Continuation