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

Ozanne CADET4

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

 

4 commentaires sur “Afficher le numéro de série d’un serveur distant en VBScript”

  1. Fleurdumal a dit :

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

  2. nuloop a dit :

    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.

Laisser un commentaire