Afficher le numéro de série d’un serveur distant en 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

 

4 réflexions au sujet de “Afficher le numéro de série d’un serveur distant en VBScript”

Laisser un commentaire

Cliquez ici pour révoquer votre décision.