droit d'écriture à tester

Version imprimable

09/08/2011, 09h02
cyrill.gremaud

droit d'écriture à tester

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

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:

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!

09/08/2011, 11h29
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 ;-)

Citation:

Envoyé par pitchalov

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.

:salut:
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:

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 :pc: