Accueil > > > INVENTAIRE FICHIERS SUR SERVER DISTANT OU LOCAL
INVENTAIRE FICHIERS SUR SERVER DISTANT OU LOCAL
Information sur la source
Description
Suite au topic "http://www.vbfrance.com/infomsg_CREATION-TABLE-MA TIERES_888257.aspx#3 de mastere30, du 14/02/2007", qui utilise des .bat pour inventorier certains fichiers sur plusieurs servers distants, et au vu de la durée d'exécution de ces batchs, je me suis essayé à créer un script vbs paramétrable utilisant wbem et wmi.
Source
- '
- ' Inventaire de fichiers sur disks locaux
- ' Résultat de cet inventaire dans un fichier .xls
- '
- ' Ce script vbs peut être lancé en local ou sur un server distant
- '
- '
- On Error Resume Next
- Const WbemAuthenticationLevelPktPrivacy = 6
-
- Set objNetwork = CreateObject("Wscript.Network")
- strLocalComputer = objNetwork.ComputerName
-
- strCredentials = InputBox _
- ("Please enter the user name, a blank space, and then the password:", _
- "Enter User Credentials",objNetwork.UserName )
-
- If strCredentials = "" Then
- Wscript.Quit
- End If
-
- arrCredentials = Split(strCredentials," ")
- strUser = arrCredentials(0)
- strPassword = arrCredentials(1)
- strNamespace = "root\cimv2"
-
- strComputer = InputBox _
- ("Please enter the name of the computer you want to connect to:", _
- "Enter Computer Name", objNetwork.ComputerName)
-
- If strComputer = "" Then
- Wscript.Quit
- End If
-
- Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
- Set objWMIService = objwbemLocator.ConnectServer _
- (strComputer, strNamespace, strUser, strPassword)
-
- objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
-
- Const ForWriting = 2
- Const HARD_DISK = 3 ' 3 = Local Disk, 4 = Network Drive
- Dim colDisks, colFiles, ObjTextStream, objDico
- Dim objTabExt, objDisk, objFile
- Dim StartScript, i, OldList, FichierExcelServer
- StartScript=Now
-
- FichierExcelServer = GetPath() & "inventaire_server_" & strComputer & ".xls"
-
- 'Extension des fichiers à récupérer
- objTabExt = Array("xls","xlt","doc","dot","pdf","pps","ppt","htm","txt")
-
- Set objDico = CreateObject("Scripting.Dictionary")
- objDico.CompareMode = VBBinaryCompare
-
- Set objWMIService = GetObject("winmgmts:" _
- & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
-
- Set colDisks = objWMIService.ExecQuery _
- ("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
-
- For Each objDisk in colDisks
- For i=LBound(objTabExt) To UBound(objTabExt)
- Set colFiles = objWMIService.ExecQuery _
- ("Select * from CIM_DataFile where Drive = '" &_
- objDisk.Name & "' And Extension = '" & objTabExt(i) &"'")
- For Each objFile in colFiles
- If objDico.Exists(objDisk.Name & "§" & objTabExt(i)) Then
-
- OldList = objDico.Item(objDisk.Name & "§" & objTabExt(i))
-
- objDico.Item(objDisk.Name & "§" & objTabExt(i)) = OldList & "," &_
- objFile.Name & "|" & clair(objFile.LastModified)
- Else
- objDico.Add objDisk.Name & "§" & objTabExt(i), objFile.Name &_
- "|" & clair(objFile.LastModified)
- End If
- Next
- Next
- Next
- 'Destruction des objets
- Set colFiles = Nothing
- Set colDisks = Nothing
- Set objNetWork = Nothing
- Set objWMIService = Nothing
- Set objWbemLocator = Nothing
-
- 'WScript.Echo "fin read disks" &vbCrLf& Now &vbCrLf& StartScript &vbCrLf& _
- ' DateDiff("n", StartTime,Now) & " minutes"
-
- 'Creation fichier xls par server
- Dim cles, elements, j
- cles = objDico.Keys
- elements = objDico.Items
-
- Dim objExcel, ligne, NL, col
- Set objExcel = WScript.CreateObject("Excel.Application")
- objExcel.Visible = False 'oui=True non=False
- objExcel.DisplayAlerts = False
- objExcel.Workbooks.Add
-
- i = ""
- For i = 0 To objDico.Count-1
- 'Ajout d'une feuille
- objExcel.ActiveWorkbook.Sheets.Add
- 'Renomme la feuille
- objExcel.Sheets(1).Name = "disk=" &_
- Replace(Replace(Replace(cles(i), "§", " ext="),":",""),"\","")
-
- 'en-tête de ligne
- objExcel.Cells(1, 1).Value = "Nom"
- objExcel.Cells(1, 2).Value = "Date de Modification"
- NL = 2
- 'ecriture ligne
- ligne = Split(elements(i),",")
- For j = 0 To UBound(ligne)
- If InStr( ligne(j), "|") Then
- col = Split(ligne(j),"|")
- objExcel.Cells(NL, 1).Value = CStr(col(0))
- objExcel.Cells(NL, 2).Value = CStr(col(1))
- NL = NL + 1
- End If
- Next
- objExcel.Columns("A:B").Select
- objExcel.Selection.Columns.AutoFit
- ObjExcel.Range("A1").Select
- Next
- 'Mise en forme des colonnes
- objExcel.Columns("A:B").Select
- objExcel.Selection.Columns.AutoFit
- ObjExcel.Range("A1").Select
- ObjExcel.ActiveWorkbook.SaveAs FichierExcelServer 'sauvegarde le classeur
- ObjExcel.DisplayAlerts = True 'remet l'alerte oui=True non=False
- objExcel.Application.Visible=True 'remet la visibilité
- objExcel.ActiveWorkbook.Close 'Fermeture d'Excel
- ObjExcel.Quit
- 'Destruction des objets
- Set objExcel = Nothing
- Set objDico = Nothing
-
- WScript.Echo "fin du script" &vbCrLf& Now &vbCrLf& StartScript &vbCrLf& _
- "Durée: " & DateDiff("n", StartScript,Now) & " minutes"
-
- ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
- 'Mise au format jj/mm/aaaa h:m de la date
- Function clair(temps)
- Dim debut, an, mois, jour, h, m
- debut = left(temps,8)
- an = left(debut,4)
- mois = mid(debut,5,2)
- jour = right(debut,2)
- h = Mid(temps, 9,2)
- m = Mid(temps, 11,2)
- clair = CStr(jour) & "/" & CStr(mois) & "/" & CStr(an) & " " & h & ":" & m
- End Function
-
- 'Récupère le répertoire courant
- Function GetPath()
- Dim path
- 'WScript.ScriptfullName ramène par exemple C:\MesAppli\LeScript.vbs
- path = WScript.ScriptFullName
- 'On ne garde que ce qui est à gauche du dernier slash (compris), soit C:\MesAppli\
- GetPath = Left(path, InStrRev(path, "\"))
- End Function
'
' Inventaire de fichiers sur disks locaux
' Résultat de cet inventaire dans un fichier .xls
'
' Ce script vbs peut être lancé en local ou sur un server distant
'
'
On Error Resume Next
Const WbemAuthenticationLevelPktPrivacy = 6
Set objNetwork = CreateObject("Wscript.Network")
strLocalComputer = objNetwork.ComputerName
strCredentials = InputBox _
("Please enter the user name, a blank space, and then the password:", _
"Enter User Credentials",objNetwork.UserName )
If strCredentials = "" Then
Wscript.Quit
End If
arrCredentials = Split(strCredentials," ")
strUser = arrCredentials(0)
strPassword = arrCredentials(1)
strNamespace = "root\cimv2"
strComputer = InputBox _
("Please enter the name of the computer you want to connect to:", _
"Enter Computer Name", objNetwork.ComputerName)
If strComputer = "" Then
Wscript.Quit
End If
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
(strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
Const ForWriting = 2
Const HARD_DISK = 3 ' 3 = Local Disk, 4 = Network Drive
Dim colDisks, colFiles, ObjTextStream, objDico
Dim objTabExt, objDisk, objFile
Dim StartScript, i, OldList, FichierExcelServer
StartScript=Now
FichierExcelServer = GetPath() & "inventaire_server_" & strComputer & ".xls"
'Extension des fichiers à récupérer
objTabExt = Array("xls","xlt","doc","dot","pdf","pps","ppt","htm","txt")
Set objDico = CreateObject("Scripting.Dictionary")
objDico.CompareMode = VBBinaryCompare
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK & "")
For Each objDisk in colDisks
For i=LBound(objTabExt) To UBound(objTabExt)
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile where Drive = '" &_
objDisk.Name & "' And Extension = '" & objTabExt(i) &"'")
For Each objFile in colFiles
If objDico.Exists(objDisk.Name & "§" & objTabExt(i)) Then
OldList = objDico.Item(objDisk.Name & "§" & objTabExt(i))
objDico.Item(objDisk.Name & "§" & objTabExt(i)) = OldList & "," &_
objFile.Name & "|" & clair(objFile.LastModified)
Else
objDico.Add objDisk.Name & "§" & objTabExt(i), objFile.Name &_
"|" & clair(objFile.LastModified)
End If
Next
Next
Next
'Destruction des objets
Set colFiles = Nothing
Set colDisks = Nothing
Set objNetWork = Nothing
Set objWMIService = Nothing
Set objWbemLocator = Nothing
'WScript.Echo "fin read disks" &vbCrLf& Now &vbCrLf& StartScript &vbCrLf& _
' DateDiff("n", StartTime,Now) & " minutes"
'Creation fichier xls par server
Dim cles, elements, j
cles = objDico.Keys
elements = objDico.Items
Dim objExcel, ligne, NL, col
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = False 'oui=True non=False
objExcel.DisplayAlerts = False
objExcel.Workbooks.Add
i = ""
For i = 0 To objDico.Count-1
'Ajout d'une feuille
objExcel.ActiveWorkbook.Sheets.Add
'Renomme la feuille
objExcel.Sheets(1).Name = "disk=" &_
Replace(Replace(Replace(cles(i), "§", " ext="),":",""),"\","")
'en-tête de ligne
objExcel.Cells(1, 1).Value = "Nom"
objExcel.Cells(1, 2).Value = "Date de Modification"
NL = 2
'ecriture ligne
ligne = Split(elements(i),",")
For j = 0 To UBound(ligne)
If InStr( ligne(j), "|") Then
col = Split(ligne(j),"|")
objExcel.Cells(NL, 1).Value = CStr(col(0))
objExcel.Cells(NL, 2).Value = CStr(col(1))
NL = NL + 1
End If
Next
objExcel.Columns("A:B").Select
objExcel.Selection.Columns.AutoFit
ObjExcel.Range("A1").Select
Next
'Mise en forme des colonnes
objExcel.Columns("A:B").Select
objExcel.Selection.Columns.AutoFit
ObjExcel.Range("A1").Select
ObjExcel.ActiveWorkbook.SaveAs FichierExcelServer 'sauvegarde le classeur
ObjExcel.DisplayAlerts = True 'remet l'alerte oui=True non=False
objExcel.Application.Visible=True 'remet la visibilité
objExcel.ActiveWorkbook.Close 'Fermeture d'Excel
ObjExcel.Quit
'Destruction des objets
Set objExcel = Nothing
Set objDico = Nothing
WScript.Echo "fin du script" &vbCrLf& Now &vbCrLf& StartScript &vbCrLf& _
"Durée: " & DateDiff("n", StartScript,Now) & " minutes"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Mise au format jj/mm/aaaa h:m de la date
Function clair(temps)
Dim debut, an, mois, jour, h, m
debut = left(temps,8)
an = left(debut,4)
mois = mid(debut,5,2)
jour = right(debut,2)
h = Mid(temps, 9,2)
m = Mid(temps, 11,2)
clair = CStr(jour) & "/" & CStr(mois) & "/" & CStr(an) & " " & h & ":" & m
End Function
'Récupère le répertoire courant
Function GetPath()
Dim path
'WScript.ScriptfullName ramène par exemple C:\MesAppli\LeScript.vbs
path = WScript.ScriptFullName
'On ne garde que ce qui est à gauche du dernier slash (compris), soit C:\MesAppli\
GetPath = Left(path, InStrRev(path, "\"))
End Function
Conclusion
Ce script nécessite de connaitre les hostname, loggin et password du server. Je rajouterai comment automatiser l'exécution sur plusieurs servers, mais avec perte de confidentialité du loggin/password, en remplacant les 2 inputbox par un fichier .txt
J'ai mis un peu plus de commentaires qu'à l'accoutumée ! Il n'y a rien de bien compliqué et les objets/variables sont assez explicites. N'hésitez à me signaler les éventuelles incompréhensions.
jean-marc
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
VBS et WMI [ par TheEwook ]
Bonjour, Voilà j'arrive bien à ajouter une passerelle en WMI sur une interface. Par contre le seule problème que j'ai c'est que je n'arrive pas à l'en
VBS, WMI & groupes locaux [ par rodrigos ]
Salut!Je suis en train de me mettre au vbscript et j'aimerai savoir comment on peut obtenir l'ensemble des utilisateurs d'un groupe local: par exemple
soucis entre des API WMI HTML et VBS [ par barba ]
Quel beau melange!Cela necessite une petite explication.mon probleme: j'ai une page html qui execute un code vbs (il cree un repertoire, copie 4 fichi
[VBS] wmi user courant [ par remifalcon ]
BonjourJe cherche désespérément la librairie wmi que me donnerait l'utilisateur (local ou non) en cours de session d'une machineJ'ai essayé caSet objs
VBS fichier texte et WMI [ par jojo42000 ]
Salut tous le monde, Je suis debutant et j'ai tres peu de notion de prog. Je dispose d'un fichier ordi.txt sous c:\ Ce fichier contient une liste de n
Liste des logiciels installés (par VBS) [ par glad ]
Bonjour, Je suis un peu perplexe[^^sad2], je viens de m'apercevoir que certains logiciels ne "remontaient" pas ds WMI via le script suivant : [code=
Lecteur réseau via script VBS sous une session Citrix [ par reeves77185 ]
Bonjour, Je suis actuellement en charge d'un projet au sein de ma société qui me fait faire un peu de VBS malgré que ce soit pas mon taff mais alors
VBS Déplacer la souri [ par Hamptonash ]
Bonjour à tous, Ce forum est décidement le meilleur!! Voilà mon problème, je voudrais savoir si quelqu'un connait une fonctions en VBS je précise!!
Suppression d'un VBS après exécution [ par mat76 ]
Bonjour , Je me permet de vous solliciter après moult recherches infructueuses. Voici ma problématique: Sur des postes Vista, la remontée de l'impr
Changement clé Office 2010 [ par stephane031 ]
Bonjour, Je me tourne vers vous car je souhaiterai faire un script qui me permette de modifier et d'activer une clé Office 2010. Sur un master, nous
|
Derniers Blogs
SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko
Logiciels
Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|