Read machine name and bios version and write to MSSQL database

Something like this:

Set objConn = CreateObject("ADODB.Connection")
    objConn.Open "Driver={SQL Server};" & _
                 "Server=Your Server;" & _
                 "Database=Your Database;" & _
                 "user id=sa;" & _
                 "password=Your SA Password;"
Set objRSSQL = CreateObject("ADODB.Recordset")

'Read Machine Name
Set objComputer = CreateObject("Shell.LocalMachine")
Wscript.Echo "Computer name: " & objComputer.MachineName

'Read BIOS details
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_BIOS")

For each objBIOS in colBIOS
    SQLQuery = "insert into tblbios (manufacture, Name, SerialNum)" & _
              " values ('" & objBIOS.Manufacturer & "','" & objBIOS.Name & "','" & objBIOS.SerialNumber & "')"
    objRSSQL.Open SQLQuery, objConn
Next


NOTE: You will need to enter your own information in the "objConn.Open" area.  Also on the "SQLQuery =" area you will need to change the table name "tblbios" to whatever your table name is and the field names as well.  Keep in mind that this will insert a new record each time it is ran even if an entry already exist.  You may want to include the machine name and then check to see if the record for the machine already exist and if so update it and if not then insert it.

Good luck and I hope this helps.

That's just what I needed, many thanks.