Robotique-Projet
Bonjour et bienvenu sur le forum ROBOTIQUE-PROJET

Merci de nous rejoindre, pour avoir accès aux forum en entier,

il suffis juste de s'inscrire sa prends 2 minutes, et bien sur de faire sa

présentation, au plaisir de se croisé sur le forum.
Robotique-Projet

Forum sur la Robotique & Informatique & Programmation


Vous n'êtes pas connecté. Connectez-vous ou enregistrez-vous

Voir le sujet précédent Voir le sujet suivant Aller en bas  Message [Page 1 sur 1]

Seb03000

avatar
Fondateur
Fondateur
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:
        '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 :




_________________
Voici ma chaîne YouTube: Drone-250-Time https://www.youtube.com/channel/UC3ArL72UR4AjpaF5r-pXpSg
Voici ma chaîne YouTube: Dark-Best https://www.youtube.com/channel/UCqHLYZ9IJyfguosa8_rz9Jg
Faite passé l'information les amies , merci a vous tous.
http://jarvise.atspace.cc/

Black Styles

avatar
Membre
Membre
Waouh vient encore d'apprendre une astuce!! Merci seb ^^


_________________
Mon YouTube: http://www.youtube.com/blackstyles03
Mon Twitter: @BlackStyles1
R-P Dance Radio: http://r-p-dance-la-radio-de-drivers.playtheradio.com/index.cfm
The Monster HardCore
Débutant en Informatique & Gamer à éxpèrience modérer.
Futur Gendarme Auxiliaire (Volontaire).
Fan de Catch depuis toujours.
WWE ==> http://www.wwe.fr/
TNA Impact Wrestling ==> http://www.impactwrestling.com/
Et Fan de Lutte Libre (UFC).
UFC ==> http://www.ufc.com/
http://le-monde-noir.lebonforum.com/

Seb03000

avatar
Fondateur
Fondateur
De rien black styles c'est t'un plaisir.


_________________
Voici ma chaîne YouTube: Drone-250-Time https://www.youtube.com/channel/UC3ArL72UR4AjpaF5r-pXpSg
Voici ma chaîne YouTube: Dark-Best https://www.youtube.com/channel/UCqHLYZ9IJyfguosa8_rz9Jg
Faite passé l'information les amies , merci a vous tous.
http://jarvise.atspace.cc/

Black Styles

avatar
Membre
Membre
^^


_________________
Mon YouTube: http://www.youtube.com/blackstyles03
Mon Twitter: @BlackStyles1
R-P Dance Radio: http://r-p-dance-la-radio-de-drivers.playtheradio.com/index.cfm
The Monster HardCore
Débutant en Informatique & Gamer à éxpèrience modérer.
Futur Gendarme Auxiliaire (Volontaire).
Fan de Catch depuis toujours.
WWE ==> http://www.wwe.fr/
TNA Impact Wrestling ==> http://www.impactwrestling.com/
Et Fan de Lutte Libre (UFC).
UFC ==> http://www.ufc.com/
http://le-monde-noir.lebonforum.com/

Contenu sponsorisé


Voir le sujet précédent Voir le sujet suivant Revenir en haut  Message [Page 1 sur 1]

Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum