Rapport de son ordinateur

Mathieusk · Inscrit le: Jul 18, 2006 Messages: 58 Localisation: Quebec

Description :
Ce script VBS donne un rapport sur l'ordinateur sous forme de fichier texte.

Script :

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)
Nextrapor.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)
Nextrapor.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)
Nextrapor.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)
Nextrapor.WriteBlankLines(2)

Set ws= CreateObject("WScript.Shell")
ws.Run "rapport.txt"

Renommer scan.vbs après le scan il va vous donner un fichier rapport.txt qui vous donnera des infos sur votre ordinateur.