Rapport systeme
Contenu du snippet
Genere dans un fichier texte un petit résumé systeme
y click a gauche
y click a droite
y a pas de bugs!
Source / Exemple :
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"
Conclusion :
y click a gauche
y click a droite
y a pas de bugs!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.