中央論壇 - CENTER BBS

標題: 用WMI列出BIOS資訊並寫入文字檔 [打印本頁]

作者: f66666602 時間: 2007-7-27 20:57
標題: 用WMI列出BIOS資訊並寫入文字檔
'script written by KB http://userpages.umbc.edu/~kbradl1/
Dim oBIOS, oArrBIOS
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("bios.txt", True)
Set oArrBIOS = GetObject("winmgmts:").ExecQuery("Select * From Win32_BIOS Where PrimaryBIOS=true")    'get the primary machine bios chip properties
For Each oBIOS In oArrBIOS
      outFile.WriteLine("Manufacturer: " & oBIOS.Manufacturer)
      outFile.WriteLine("Name: " & oBIOS.Name)
      outFile.WriteLine("ReleaseDate: " & FromWMIDate(oBIOS.ReleaseDate))
      outFile.WriteLine("PrimaryBIOS: " & oBIOS.PrimaryBIOS)
      outFile.WriteLine("SMBIOSBIOSVersion: " & oBIOS.SMBIOSBIOSVersion)
      outFile.WriteLine("SMBIOSMajorVersion: " & oBIOS.SMBIOSMajorVersion)
      outFile.WriteLine("Status: " & oBIOS.Status)
      outFile.WriteLine("Version: " & oBIOS.Version)
Next
Set oArrBIOS = Nothing

Function FromWMIDate(sDate)
      Dim iDay, iMonth, iYear
      iDay = Mid(sDate, 5, 2)
      iMonth = Mid(sDate, 7, 2)
      iYear = Mid(sDate, 1, 4)
      FromWMIDate = iDay & "/" & iMonth & "/" & iYear
End Function

歡迎光臨中央論壇 - CENTER BBS (https://www.centerbbs.com/)