VBS: Rapport système

Ci-dessous un script permettant de générer un rapport système.

Ce script à l’origine trouvé sur http://www.vbfrance.com a été écrit par Rachid Benbrik, développeur web free-lance.

Merci à lui (et n’hésitez pas à visiter son site => http://www.fullflash.fr/).

On error resume next
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set rapor= fso.OpenTextFile("rapport.txt",2,True)
 
rapor.WriteLine("--------------------------------------------------")
rapor.WriteLine("Information systeme by racattac13 Le "&Now)
rapor.WriteLine("--------------------------------------------------")
rapor.WriteBlankLines(2)
 
Set wmobj = Getobject("WinMgmts:{impersonationLevel=impersonate}")
 
rapor.WriteLine("Systeme d'exploitation :")
 
Set test=wmobj.ExecQuery("Select * from Win32_OperatingSystem")
 
for each valeur in test
rapor.WriteLine("Nom de l'OS : "&valeur.Name)
rapor.WriteLine("Version : "&valeur.Version)
rapor.WriteLine("Nom du Fabricant : "&valeur.Manufacturer)
rapor.WriteLine("Repertoire windows : "&valeur.WindowsDirectory)
rapor.WriteLine("Chemin Locale : "&valeur.Locale)
rapor.WriteLine("Memoire physique dispo : "&valeur.FreePhysicalMemory)
rapor.WriteLine("Memoire virtuelle total : "&valeur.TotalVirtualMemorySize)
rapor.WriteLine("Memoire virtuelle dispo : "&valeur.FreeVirtualMemory)
rapor.WriteLine("Memoire partager : "&valeur.SizeStoredInPagingFiles)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Systeme ordinateur:")
 
Set test=wmobj.ExecQuery("Select * from Win32_ComputerSystem")
 
For each valeur in test
rapor.WriteLine("Nom de l'ordinateur : "&valeur.Name)
rapor.WriteLine("Nom du Fabricant : "&valeur.Manufacturer)
rapor.WriteLine("Nom de produit : "&valeur.Model)
rapor.WriteLine("Zone horraire : "&valeur.CurrentTimeZone)
rapor.WriteLine("Memoire physique totale : "&valeur.TotalPhysicalMemory)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Processeur:")
 
Set test=wmobj.ExecQuery("Select * from Win32_Processor")
 
For each valeur in test
rapor.WriteLine("Processeur : "&valeur.Description)
rapor.WriteLine("Fréquence actuelle : "&valeur.CurrentClockSpeed)
rapor.WriteLine("Fréquence Maximum : "&valeur.MaxClockSpeed)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Syteme BIOS:")
 
Set test=wmobj.ExecQuery("Select * from Win32_BIOS")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Nom du Fabricant : "&valeur.Manufacturer)
rapor.WriteLine("Version : "&valeur.Version)
rapor.WriteLine("Numero de série : "&valeur.SerialNumber)
rapor.WriteLine("Date de publication : "&valeur.ReleaseDate)
rapor.WriteLine("Language utilisé : "&valeur.CurrentLanguage)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Processus:")
 
Set test=wmobj.ExecQuery("Select * from Win32_Process")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Numero id : "&valeur.Handle)
rapor.WriteLine("Numero id : "&valeur.HandleCount)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Disponibilité memoire:")
 
Set test=wmobj.ExecQuery("Select * from Win32_LogicalMemoryConfiguration")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Description : "&valeur.Description)
rapor.WriteLine("Memoire dispo pour l'OS : "&valeur.TotalPhysicalMemory)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("CD ROM:")
 
Set test=wmobj.ExecQuery("Select * from Win32_CDROMDrive")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Type de media : "&valeur.MediaType)
rapor.WriteLine("Nom du Fabricant : "&valeur.Manufacturer)
rapor.WriteLine("Description : "&valeur.Description)
rapor.WriteLine("Nom du volume : "&valeur.VolumeName)
rapor.WriteLine("Numero de serie du media : "&valeur.VolumeSerialNumber)
rapor.WriteLine("Taille de bloque par defaut : "&valeur.DefaultBlockSize)
rapor.WriteLine("Taille du lecteur : "&valeur.Size)
rapor.WriteLine("Taux de transfert : "&valeur.TransferRate)
rapor.WriteLine("Lettre de lecteur : "&valeur.Drive)
rapor.WriteLine("Identifiant : "&valeur.DeviceID)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Connexion reseau:")
 
Set test=wmobj.ExecQuery("Select * from Win32_NetworkConnection")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Nom Local : "&valeur.LocalName)
rapor.WriteLine("Nom d'utilisateur : "&valeur.UserName)
rapor.WriteLine("Type : "&valeur.DisplayType)
rapor.WriteLine("Description : "&valeur.Description)
rapor.WriteLine("Etat de la connection : "&valeur.ConnectionState)
rapor.WriteLine("Nom du fournisseur : "&valeur.ProviderName)
rapor.WriteLine("Nom de la ressource distante: "&valeur.RemoteName)
rapor.WriteLine("Chemin ressource distante : "&valeur.RemotePath)
rapor.WriteLine("Type de ressource : "&valeur.ResourceType)
rapor.WriteLine("Commentaire du fournisseur : "&valeur.Comment)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Adapter réseaux:")
 
Set test=wmobj.ExecQuery("Select * from Win32_NetworkAdapter")
 
For each valeur in test
 
rapor.WriteLine("Type de carte : "&valeur.AdapterType)
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Statut : "&valeur.Availability)
rapor.WriteLine("Description : "&valeur.Description)
rapor.WriteLine("Adresse MAC : "&valeur.MACAddress)
rapor.WriteLine("Adresses réseau de la carte : "&valeur.NetworkAddresses)
rapor.WriteLine("Adresse pré programmé : "&valeur.PermanentAddress)
rapor.WriteLine("Nom du Fabricant : "&valeur.Manufacturer)
rapor.WriteLine("Nb max de port adressable : "&valeur.MaxNumberControlled)
rapor.WriteLine("Nom de produit : "&valeur.ProductName)
rapor.WriteLine("Nom de service : "&valeur.ServiceName)
rapor.WriteLine("Bande passante actuelle : "&valeur.Speed)
rapor.WriteLine("Derniere réinitialisation : "&valeur.TimeOfLastReset)
Next
 
rapor.WriteBlankLines(2)
 
rapor.WriteLine("Compte utilisateur:")
 
Set test=wmobj.ExecQuery("Select * from Win32_Account")
 
For each valeur in test
rapor.WriteLine("Nom : "&valeur.Name)
rapor.WriteLine("Description : "&valeur.Description)
rapor.WriteLine("Domaines : "&valeur.Domain)
rapor.WriteLine("SID : "&valeur.SID)
Next
 
rapor.WriteBlankLines(2)
 
Set ws= CreateObject("WScript.Shell")
 
ws.Run "rapport.txt"

Laisser un commentaire

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *