Afficher le numéro de série d’un serveur distant en VBScript

Scripting

19 March 2007

Tags: Script, Scripting, Serveur, VBScript

Ce petit script très pratique vous permet de récupérer le numéro de série d’une machine sous Windows très facilement.

On Error Resume Next
strComputer = inputbox( "Nom du serveur", "Input" )
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
Wscript.Echo "SerialNumber: " & objItem.SerialNumber
Next


5 Responses to “Afficher le numéro de série d’un serveur distant en VBScript”

  1. Mathieu says:

    Génial ! Un gain de temps phénoménal !

  2. Fleurdumal says:

    Super ca fonctionne merci ! J’ai juste redémarré ce service sur mon serveur en w2k.

  3. nuloop says:

    Vérifies bien que WMI est installé et démarré sur le serveur distant. Il n’y est pas de base sur les serveurs NT4.

  4. Fleurdumal says:

    bonjour,
    Il ne se passe rien lorsque je lance le script
    merci !

  5. Fred24 says:

    Pratique ! Merci ;-)

Leave a Reply