Fonction : Récupérer le numéro de série en VBS

Fonction VBS pour recuperer le numero de serie d’un poste

wscript.echo GetSerialNumber

Function GetSerialNumber
	strComputer = "."
	Set objWMIService = GetObject("winmgmts:" _
		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
	Set colBIOS = objWMIService.ExecQuery _
		("Select * from Win32_BIOS")
	For each objBIOS in colBIOS
		If Trim(objBIOS.SerialNumber) <> "" Then GetSerialNumber = objBIOS.SerialNumber
	Next
End Function

wscript.echo GetSerialNumber

Function GetSerialNumber

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery _

("Select * from Win32_BIOS")

For each objBIOS in colBIOS

If Trim(objBIOS.SerialNumber) <> "" Then GetSerialNumber = objBIOS.SerialNumber

End Function

Laisser un commentaire Annuler la réponse.

david on 9 août 2018 à 19 h 14 min

Cet article a été créé par david le 7 décembre 2016.