I- Introduction
Bonjour à toutes et à tous.
Voici un petit script VBS, qui vous permettra de récupérer des informations sur votre système d’exploitation.
Informations :
II- Script
Ouvrez votre éditeur de texte, comme par exemple Notepad++.
Copiez et collez le code suivant :
Enregistrez votre script en .vbs.
Double-cliquez dessus et voici ce que ce script affiche :
Bonjour à toutes et à tous.
Voici un petit script VBS, qui vous permettra de récupérer des informations sur votre système d’exploitation.
Informations :
- Difficulté : Facile
II- Script
Ouvrez votre éditeur de texte, comme par exemple Notepad++.
Copiez et collez le code suivant :
- Code:
'Informations sur votre système d'exploitation
On Error Resume Next
Set oShell = CreateObject("wscript.Shell")
Set env = oShell.environment("Process")
strComputer = env.Item("Computername")
Dim objWMIService
Dim colItems, objItem
Set objWMIService = GetObject("winmgmts:\"& strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objItem in colItems
WScript.Echo "Informations OS" & VbCr & _
"Editeur: " & objItem.Manufacturer & VbCr & _
"Système d'Exploitation: " & objItem.Caption & VbCr & _
"Version: " & objItem.Version & VbCr & _
"Service Pack: " & objItem.CSDVersion & VbCr & _
"GUID: " & objItem.SerialNumber & VbCr & _
""
Next
WSCript.Quit
Enregistrez votre script en .vbs.
Double-cliquez dessus et voici ce que ce script affiche :
