Sommaire

1. Introduction
2. Script

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 :

• Difficulté : Facile
• 

II- Script

Ouvrez votre éditeur de texte, comme par exemple Notepad++.

Copiez et collez le code suivant :

Code : Tout sélectionner

1. 'Informations sur votre système d'exploitation
2.  
3. On Error Resume Next
4. Set oShell = CreateObject("wscript.Shell")
5. Set env = oShell.environment("Process")
6.  
7. strComputer = env.Item("Computername")
8.  
9. Dim objWMIService
10. Dim colItems, objItem
11.  
12. Set objWMIService = GetObject("winmgmts:\\"&  strComputer & "\root\cimv2")
13. Set colItems = objWMIService.ExecQuery _
14. ("Select * from Win32_OperatingSystem")
15.  
16. For Each objItem in colItems
17.     WScript.Echo "Informations OS" & VbCr & _
18.     "Editeur: " & objItem.Manufacturer & VbCr & _
19.     "Système d'Exploitation: " & objItem.Caption & VbCr & _
20.     "Version: " & objItem.Version & VbCr & _
21.     "Service Pack: " & objItem.CSDVersion & VbCr & _
22.     "GUID: " & objItem.SerialNumber & VbCr & _
23.     ""
24. Next
25.  
26. WSCript.Quit

Enregistrez votre script en .vbs.

Double-cliquez dessus et voici ce que ce script affiche :




darky.