Fonction VBS pour recuperer le numero de serie d’un poste
1 2 3 4 5 6 7 8 9 10 11 12 |
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 |
Cet article n'a pas été revu depuis la publication.
Cet article a été créé par david le 7 décembre 2016.
Laisser un commentaire