On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")


Dim sModel, sSerial, sOS, sSP

Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems 
    sOS = objItem.Caption
    sSP = objItem.CSDVersion
Next

Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
    sModel= objComputer.Model
Next

Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem in colItems
     sSerial= objItem.SerialNumber
Next

msgbox "You are running " & sOS & " " & sSP & vbcr & _
	"Model: " & sModel & vbcr & _
	"Serial: " & sSerial ,, "IBM Model:"