Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2261 connectés 

  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Poste de travail

  Methode pour tester en script visibilité repertoire

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Methode pour tester en script visibilité repertoire

n°141112
skoizer
tripoux et tête de veau
Posté le 05-07-2016 à 10:42:02  profilanswer
 

bonjour,
sur un NAS emc nous avons activer ABE (Access based enumeration) qui permet de ne pas rendre visible un repertoire quand cette personne n'a pas les droits. C'est le même principe que pour windows :)
Savez vous comme faire en script vbs pour tester si un répertoire est visible ou non ?
En batch je sais (If exist)
Mais en vbscript ?
Car si je teste avec cette fonction If objfso.FolderExists(repertorie) il me renvoie toujours true, même si l'utilisateur n'a pas les droits de visualisation
J'ai testé avec ceci
StrEmplacementrep = "l:\toto"
set filesys = CreateObject("Scripting.FileSystemObject" )  
set RepQblocdir = Objfso.GetFolder(StrEmplacementrep)  
msgbox RepQblocdir.Attributes
mais cela me renvoie toujours 16 (c'est un repertoire).
Connaissez vous une autre méthode de test ?


Message édité par skoizer le 05-07-2016 à 15:01:01

---------------
Plus tu essaies de rentrer dans le moule, plus tu ressembles à une tarte.
mood
Publicité
Posté le 05-07-2016 à 10:42:02  profilanswer
 

n°141115
Je@nb
Modérateur
In ze cloud
Posté le 05-07-2016 à 11:12:08  profilanswer
 

tu listes les dossiers et tu regardes s'il est dans la liste ?
qq lignes en powershell

n°141117
skoizer
tripoux et tête de veau
Posté le 05-07-2016 à 14:52:52  profilanswer
 

oui j’étais Je@nb  en train de voir cette méthode avec le listing dans le repertoire.
Je liste le nombre de fichier dans le repertoire si j'ai un code d'erreur different de 0 c'est qu'ils n'ont pas le droit de lister.
j'ai regardé get-abe, mais je n'ai rien trouvé
 

Code :
  1. on error resume next
  2. set RepQblocdir = Objfso.GetFolder(StrEmplacementQblocDeg)
  3.                  count = 0
  4.  For Each fichier In RepQblocdir.files
  5.   count = count + 1 
  6.  Next
  7.  If Err.Number = 0 then
  8.                    'code si ils ont les droits
  9.                    else
  10.                    'code si ils n'ont pas les droits
  11.              end if


 
ça fonctionne et c'est en prod


Message édité par skoizer le 05-07-2016 à 15:07:41

---------------
Plus tu essaies de rentrer dans le moule, plus tu ressembles à une tarte.
n°141118
Je@nb
Modérateur
In ze cloud
Posté le 05-07-2016 à 15:05:44  profilanswer
 

je parlais plutôt de regarder dans le répertoire parent si le répertoire que tu veux lire est présent dans la liste. Bon après ça marche pas si tu veux checker tout en haut :d


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Systèmes & Réseaux Pro
  Poste de travail

  Methode pour tester en script visibilité repertoire

 

Sujets relatifs
Script import csv user ADInventaire de parc via script WMI
script powershell et raccourci envoyer versVisibilité de Vlan à Vlan sur HP 2910al
Execution script demarrage Session citrixmethode equivalente a sysprep
Exécution d'un script à la fermeture d'un poste de travail[itil] documentation de script
Script WUSA à distance[PowerShell] Aide - erreur de mon script
Plus de sujets relatifs à : Methode pour tester en script visibilité repertoire



Copyright © 1997-2016 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR