Bonjour à tous ,  
 
J'espre que vous avez tous passé un très bon weekend . Je viens vers vous car  
étant  inpétant en VBS , je n'arrive pas à résoudre ce problème :
 
il faudrait que je convertisse ce script en VBS mais comment faire . Avez vous des idées ?  
 
Merci d'avance !
 
strComputer = wscript.arguments(0)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colSMBIOS = objWMIService.ExecQuery _
("Select * from Win32_SystemEnclosure" )
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial Number " & wscript.arguments(0) _
& " : " & objSMBIOS.SerialNumber
Next

c'est déjà du vbs

A bon , connais tu BgInfo?

Ce que je veux dire par la courte phrase "c'est déjà du vbs", c'est que les belles lignes de codes que tu as postées juste avant ma première réponse sont déjà dans le langage appelé vbs.
 
D'où une certaine surprise voire un subtil doute quant à l'énonciation de ton souci, qui découle probablement soit d'une petite erreur de ta part (car je vois mal comment convertir un script déja en vbs en vbs), ou alors d'un effet de calembour que je n'ai pas interprété à sa juste valeur.

Ok. Donc je suppose que tu cherches à afficher le serial number de la machine sur laquelle tu lances ton BgInfo. Un truc du genre :
 

 
Edit : Faur remplacer les Wscript.Echo par des Echo pour que ca marche dans BgInfo.
Edit 2 : Ton code d'origine marche très bien si tu lui passes le nom du pc dont tu veux afficher le serial number en paramètre de ligne de commandes.

Je te remercie beaucoup , c'est exactement ce que je cherchais !