biosdichengkaifa.txt

此源码为vb写的底屋开发。通过bios取得相关信息。希望有所收获

Private Sub Form_Load()
    Set objBIOS = CreateObject("ScriptUtil.BIOS")
    objBIOS.Init
End Sub

Private Sub Command1_Click()
  temp = 0
    Set wshshell = CreateObject("wscript.shell")
     wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"), 0, True
     wshshell.run ("%comspec% /c sc config winmgmt start= auto"), 0, True
     wshshell.run ("%comspec% /c net start winmgmt"), 0
   strComputer = "."
 Set objwmiservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
   Set wshnetwork = CreateObject("wscript.network")
     computername = wshnetwork.computername
     Set fso = CreateObject("scripting.filesystemobject")
   '  tempfilter = ("\\192.168.1.101\pc$\txt." & computername & ".txt")
    'Set tempfile = fso.createtextfile(tempfilter)
   
    Set board = objwmiservice.execquery("select * from win32_baseboard") '主板型号
    For Each Item In board
     board2 = "主板: " & Item.product
     board3 = "主板：" & Item.Caption
     board4 = "主板：" & Item.Name
      Me.Print board2
     Next
    Set cpu = objwmiservice.execquery("select * from win32_processor")
      For Each Item In cpu
       cpu2 = "CPU:" & Item.Name
       cpu3 = "CPU:" & Item.Caption
       'cpu4 = "CPU:" & Item.product
        Print cpu2
        Print cpu3
        'Print cpu4
        Next
     Set objbios = CreateObject("ScriptUtil.SHell") 'BIOS")
          ' objBIOS.Init
           For Each Item In objbios
         bios1 = "BIOS" & Item.Name
          Print bios1
        Next

End Sub
****************数据总线bus的信息——***************************
Private Sub Command1_Click() '取得数据总线bus的信息
    Set wshshell = CreateObject("wscript.shell")
     wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"), 0, True
     wshshell.run ("%comspec% /c sc config winmgmt start= auto"), 0, True
     wshshell.run ("%comspec% /c net start winmgmt"), 0
      strComputer = "."
  ' Set wmis = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set objwmiservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colitems = objwmiservice.execquery("select * from win32_bus") ', , 48)
       For Each objitem In colitems
          Print "bustype:" & objitem.bustype
          Print "deviceid:" & objitem.deviceid
          ' Wscript.Echo "PNPDeviceID: " & objItem.PNPDeviceID
            'Wscript.Echo "SystemName: " & objItem.SystemName
          Print "systemname" & objitem.systemname
          Print "pnpdeviceid" & objitem.pnpdeviceid
       Next
End Sub


Private Sub Command2_Click() '取得bios相关信息
Set wshshell = CreateObject("wscript.shell")
     wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"), 0, True
     wshshell.run ("%comspec% /c sc config winmgmt start= auto"), 0, True
     wshshell.run ("%comspec% /c net start winmgmt"), 0
     strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_BIOS", , 48)
For Each objItem In colItems
    If IsNull(objItem.BIOSVersion) Then
       Print "BIOSVersion: "
    Else
      Print "BIOSVersion: " & Join(objItem.BIOSVersion, ",")
    End If
    Print "CurrentLanguage: " & objItem.CurrentLanguage
   Print "Description: " & objItem.Description
   Print "Manufacturer: " & objItem.Manufacturer
    Print "PrimaryBIOS: " & objItem.PrimaryBIOS
   Print "ReleaseDate: " & objItem.ReleaseDate
Next

End Sub
***********************************************************
Private Sub Command3_Click() '取得主板信息
   strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_MotherboardDevice", , 48)
For Each objItem In colItems
    Print "DeviceID: " & objItem.DeviceID
    Print "PrimaryBusType: " & objItem.PrimaryBusType
    Print "SecondaryBusType: " & objItem.SecondaryBusType
Next

End Sub
*******************************************************************
Private Sub Command4_Click() '获得内存信息
  strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_MemoryDevice", , 48)
For Each objItem In colItems
    Print "DeviceID: " & objItem.DeviceID
  Print "EndingAddress: " & objItem.EndingAddress
   Print "StartingAddress: " & objItem.StartingAddress
    Print "SystemName: " & objItem.SystemName
Next

End Sub

Private Sub Command5_Click() '获得声卡信息
   strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_SoundDevice", , 48)
For Each objItem In colItems
    Print "Manufacturer: " & objItem.Manufacturer
   Print "Name: " & objItem.Name
   Print "PNPDeviceID: " & objItem.PNPDeviceID
   Print "ProductName: " & objItem.ProductName
Next

End Sub