Valeu, Jota!
O pessoal da Positivo me enviou um Visual Basic Script que me dá o Fabricante, Modelo e Serial:
Dim objShell, objFSO, objWMI Dim colItems, objItem Dim strCurrentFolder Dim strFabricanteBIOS, strNumSerieBIOS, strModelo Set objShell = WScript.CreateObject ("WSCript.shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") ' Pasta atual deste script strCurrentFolder = objFSO.GetParentFolderName(WScript.ScriptFullName) ' Verifica qual é o nome do Fabricante na BIOS Set colItems = objWMI.ExecQuery("Select * From Win32_ComputerSystem") For Each objItem In colItems 'Pega a string, removendo os espaços antes e depois. strFabricanteBIOS = Trim(objItem.Manufacturer) Next ' Verifica qual é o número de série na BIOS Set colItems = objWMI.ExecQuery("Select * From Win32_BIOS") For Each objItem In colItems 'Pega a string, removendo os espaços antes e depois. strNumSerieBIOS = Trim(objItem.SerialNumber) Next ' Verifica qual é o modelo da PLM/Barebone Set colItems = objWMI.ExecQuery("Select * From Win32_BaseBoard") For Each objItem In colItems 'Pega a string, removendo os espaços antes e depois. strModelo = Trim(objItem.Product) Next If strFabricanteBIOS = "" Then strFabricanteBIOS = "Em branco" End If If strNumSerieBIOS = "" Then strNumSerieBIOS = "Em branco" End If If strModelo = "" Then strModelo = "Em branco" End If Wscript.echo "Fabricante: "+strFabricanteBIOS Wscript.echo "Modelo: "+strModelo Wscript.echo "Numero de série: "+strNumSerieBIOS