Forum du laboratoire des technologies Microsoft

Forum du laboratoire des technologies Microsoft

Accéder au contenu

Recherche avancée
  • Raccourcis
    • Sujets sans réponse
    • Sujets actifs
    • Rechercher
    • L’équipe
  • FAQ
  • Connexion
  • Inscription
  • Accueil du forum Aide Technique Programmation
  • Rechercher

Stat dossier en VBS (chemin plus de 256 caracteres) Le sujet est résolu

Modérateurs : Modérateurs, Modérateurs_Divers

Règles du forum
Répondre
  • Aperçu avant impression
Recherche avancée
5 messages • Page 1 sur 1
Lartistez
N00b
N00b
Messages : 3
Inscription : mar. 20 janv. 2015, 11:35
Stat dossier en VBS (chemin plus de 256 caracteres)
  • Citer

Message par Lartistez » mar. 20 janv. 2015, 12:00

Bonjour,
je vous expose mon probleme,
je lance un script en VBS qui doit me logger dans un fichier texte (au total 4 fichiers en sortie) 3 colonnes : date du lancement, nom du repertoire et sa taille y compris ses sous repertoires.

Tout le temps que le chemin ne depasse pas 256 carateres tout se passe bien, le script plante si ca depasse.
Je m'adresse a vous afin de trouver une solution, elle peut etre autre qu'en VBS, mais le fichier de sorti doit etre imperativement comme je l'ai specifie, les trois colonnes et uniquement le total du dossier,
voici le sript suivi d'un exemple de fichier de sortie, votre aide est tres attendue, cela alegera une partie de l'administration.
J'ajouterai que j'ai laisse tomber l'idee d'un subst ou d'un map pour racourcir le chemin, il y a trop de depassement et il est difficile de renomer les dossiers pour garder une coherence.
Merci par avance pour votre retour.
(desole pour le manque d'accentuation, j'ai un clavier US)

Code : Tout sélectionner

-----====== SCRIPT ======-----
Dim vDate, vJour, vMois, vAnnee 
Dim UserOut, PstOut, DataOut, WwwOut
Const ForWriting = 2
Const ForAppending = 8
Const UsersFolder = "E:\Users"
Const PstFolder = "E:\Pst"
Const DataFolder = "E:\data"
Const WwwFolder = "E:\www_data"

vDate=Date
vJour=DatePart("d",vDate)
vMois=DatePart("m", vDate)
vAnnee=DatePart("yyyy", vDate)
vDateJour=vJour & "/" & vMois & "/" & vAnnee

UserOut = "E:\Data\Info\Exploitation informatique\Securite\users_folders.txt"
PstOut = "E:\Data\Info\Exploitation informatique\Securite\pst_folders.txt"
DataOut = "E:\Data\Info\Exploitation informatique\Securite\data_folders.txt"
WwwOut = "E:\Data\Info\Exploitation informatique\Securite\www_folders.txt"

' Analyse du dossier e:\users
call Analyse(UsersFolder,UserOut)
' Analyse du dossier e:\pst
call Analyse(PstFolder,PstOut)
' Analyse du dossier e:\data
call Analyse(DataFolder,DataOut)
' Analyse du dossier e:\www_data
call Analyse(WwwFolder,WwwOut)

Sub Analyse(what,result)
On error resume next
Dim f, f1, fc
Dim objFSO, objTextFile, objNetwork
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set f = objFSO.GetFolder(what)
Set objTextFile = objFSO.OpenTextFile(result, ForAppending, True)
Set fc = f.SubFolders
'
' Ouverture du fichier resultat pour ecriture
'
For Each f1 in fc
	objTextFile.WriteLine(vDateJour & vbTab & f1.Name & vbTab & f1.Size/1024\1024)
Next
'
' fermeture du fichier resultat
'
objTextFile.close
' on libere les pointeurs
Set objTextFile = Nothing
Set fc = Nothing
Set f = Nothing
Set objFSO  = Nothing
End Sub
-----====== FICHIER DE LOG ======-----

30/11/2014 Anciennes pages 0
30/11/2014 be 0
30/11/2014 images 2
30/11/2014 prod 0
30/11/2014 Project 8934
30/11/2014 qualite 3510
30/11/2014 Rh 0
30/11/2014 Sales 361
30/11/2014 sav 6614
07/12/2014 Anciennes pages 0
07/12/2014 be 0
07/12/2014 images 2
07/12/2014 prod 0
07/12/2014 Project 8934
07/12/2014 qualite 3510
07/12/2014 Rh 0
07/12/2014 Sales 361
07/12/2014 sav 6617
14/12/2014 Anciennes pages 0
14/12/2014 be 0
14/12/2014 images 2
14/12/2014 prod 0
14/12/2014 Project 8934
14/12/2014 qualite 3510
14/12/2014 Rh 0
14/12/2014 Sales 361
14/12/2014 sav 6650
Dernière modification par Lartistez le mer. 21 janv. 2015, 16:14, modifié 1 fois.
Haut

Avatar de l’utilisateur
kazer
First Lord
First Lord
Messages : 45591
Inscription : ven. 26 oct. 2001, 21:39
Localisation : Dans la grisaille de l'ile de france
Contact :
Contacter kazer
Site internet
Re: Stat dossier en VBS (chemin plus de 256 caracteres)
  • Citer

Message par kazer » mer. 21 janv. 2015, 10:44

Peux tu mettre le script entre balises code?
Guillaume DESFARGES Image Image Image
MCPTS Windows Server 2008/Virtualisation - MCITP: Enterprise Desktop Win7
MVP Directory Services (2004)/Security (2005-07)/Setup&Dep: Architecture (2008-15)/Cloud and Datacenter Management, Windows and Devices IT (2016)/Windows and Devices for IT (2017)
Profil MVP - Articles - Transcript (ID: 661703 Pass: Gdesfarges) - Bibliographie
Supinfo Promo 2001
Haut

Avatar de l’utilisateur
magnancc51
Keyboard Master
Keyboard Master
Messages : 6147
Inscription : jeu. 14 oct. 2004, 14:00
Localisation : Aix en Provence
Re: Stat dossier en VBS (chemin plus de 256 caracteres)
  • Citer

Message par magnancc51 » mer. 21 janv. 2015, 11:44

Le problème ne vient pas du script, mais du fait que Windows ne gère pas les chemins de plus de 256 caractères.

Tu dois renommer les dossiers/fichiers.
MCSA 2000/2003 Messagerie - MCSE 2000/2003 - MCITP Enterprise Administrator - MCTS Exchange 2010 - MCSA 2008/2012/2016 - MCSE 2016
Haut

Lartistez
N00b
N00b
Messages : 3
Inscription : mar. 20 janv. 2015, 11:35
Re: Stat dossier en VBS (chemin plus de 256 caracteres)
  • Citer

Message par Lartistez » mer. 21 janv. 2015, 16:13

magnancc51 a écrit :Le problème ne vient pas du script, mais du fait que Windows ne gère pas les chemins de plus de 256 caractères.

Tu dois renommer les dossiers/fichiers.
Bonjour et merci,

Tout a fait, cela vient bien la longueur totale ; chemin + nom du fichier,
Comme explique "il ne nous est pas possible de renomer pour raccourcir cet ensemble",
La structure de l'arborescence ne peut pas etre touchee.

Je viens de lancer ce meme script en ajoutant le prefixe \\?\ devant chaque chemin devant etre analyse,
En theorie cela permet de depasser les 260 caracteres pour atteindre 32767, voir https://msdn.microsoft.com/en-us/librar ... s.85).aspx

Je vous tiens au courant.
Cordialement
Haut

Lartistez
N00b
N00b
Messages : 3
Inscription : mar. 20 janv. 2015, 11:35
Re: Stat dossier en VBS (chemin plus de 256 caracteres)  Le sujet est résolu
  • Citer

Message par Lartistez » jeu. 22 janv. 2015, 9:35

Bonjour,

Genial!!!

Je vous confirme que le prefix \\?\ fonctionne a merveille.

Code : Tout sélectionner

Const UsersFolder = "\\?\E:\Users"
Const PstFolder = "\\?\E:\Pst"
Const DataFolder = "\\?\E:\data"
Const WwwFolder = "\\?\E:\www_data"

Bonne journee
Haut


Répondre
  • Aperçu avant impression

5 messages • Page 1 sur 1

Revenir à « Programmation »

Aller
  • Systèmes Microsoft
  • ↳   Serveurs Windows
  • ↳   Windows 2016
  • ↳   Windows 2012 Server/2012 R2
  • ↳   Windows 2008 R2 Server
  • ↳   Windows 2008 Server
  • ↳   Windows 2003 Server (R2)
  • ↳   SBS 2011
  • ↳   SBS/EBS 2008
  • ↳   SBS 2003
  • ↳   Clients Windows
  • ↳   Windows 10
  • ↳   Windows 8/8.1
  • ↳   Windows 7
  • ↳   Windows Vista
  • ↳   Active Directory
  • ↳   GPO/GPP
  • ↳   Gestion des Utilisateurs (et autres objets AD)
  • ↳   DNS
  • ↳   Controleur de Domaine Et Roles AD
  • ↳   Schema et Réplication
  • ↳   Autres Problèmes AD
  • ↳   Terminal Services
  • ↳   Déploiement des systèmes d'exploitations Windows
  • ↳   Systèmes Windows Non Supportés
  • ↳   Windows XP
  • ↳   Windows 2000
  • ↳   Autres (Windows NT,Me,98,95,3/2/1, Ms DOS)
  • Applicatifs Microsoft
  • ↳   Microsoft Azure/Office 365/Intune
  • ↳   Exchange Server
  • ↳   Exchange 2016
  • ↳   Exchange 2013
  • ↳   Exchange 2010
  • ↳   Exchange 2007
  • ↳   Exchange 2003/2000/5.5
  • ↳   Communications Unifiées
  • ↳   SQL Server
  • ↳   Serveur Intranet/Internet
  • ↳   Internet Information serveur (IIS)
  • ↳   Sharepoint
  • ↳   System Center
  • ↳   Microsoft Forefront
  • ↳   Forefront TMG/ISA Server
  • ↳   Forefront UAG/IAG Server
  • ↳   Forefront Endpoint Protection 2010/client security
  • ↳   Forefront for Exchange/Sharepoint
  • ↳   Sécurité
  • ↳   Suite Microsoft Office
  • ↳   Word
  • ↳   Excel
  • ↳   Outlook
  • ↳   Autres Problèmes Suite Office
  • ↳   Office Info
  • ↳   Edge/Internet Explorer/Windows Mail/Onedrive
  • ↳   Patch/correctifs Ms et Windows Update Service (WSUS)
  • ↳   Serveurs Microsoft
  • Aide Technique
  • ↳   Intéropérabilité avec les Systèmes Alternatifs (Linux, Novell, Mac OS, etc.)
  • ↳   Programmation
  • ↳   Espace Certifications et Formations
  • ↳   Dépannage et Remarques divers
  • ↳   Réseaux et télécommunications
  • ↳   Virtualisation
  • ↳   Microsoft Virtualisation
  • ↳   VMware
  • ↳   Citrix/XEN
  • Divers
  • ↳   Emploi
  • ↳   Achat/Vente informatique
  • ↳   Pause Café
  • ↳   Site Du Forum
  • ↳   Demandes d'info/Modification du forum
  • Accueil du forum
  • Fuseau horaire sur UTC+02:00
  • Supprimer tous les cookies du forum
  • L’équipe
  • Nous contacter

Traduction française officielle © Miles Cellar