查看BIOS信息的VBS脚本

<p>&#39;***********************************************<br />&#39;*by r05e<br />&#39;*bios信息<br />&#39;***********************************************<br />Dim oIE, doc1<br />&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; Set oIE = WScript.CreateObject("InternetExplorer.Application")<br />&nbsp;&nbsp;&nbsp; oIE.Navigate "about:blank"&nbsp; <br />&nbsp;&nbsp;&nbsp; oIE.Visible = 1&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; oIE.ToolBar = 0<br />&nbsp;&nbsp;&nbsp; oIE.StatusBar = 0<br />&nbsp;&nbsp;&nbsp; oIE.Width=750<br />&nbsp;&nbsp;&nbsp; oIE.Height=700<br />&nbsp;&nbsp;&nbsp; Do While (oIE.Busy): Loop&nbsp;&nbsp; <br />&nbsp;<br />&nbsp;&nbsp;&nbsp; Set doc1 = oIE.Document&nbsp;&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; doc1.open&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; doc1.writeln "&lt;html&gt;&lt;head&gt;&lt;title&gt;显示系统BIOS信息&lt;/title&gt;&lt;/head&gt;"<br />&nbsp;&nbsp;&nbsp; doc1.writeln "&lt;body bgcolor=&#39;silver&#39;&gt;&lt;pre&gt;&lt;center&gt;&lt;font color=red size=7&gt;BIOS信息&lt;/font&gt;&lt;/center&gt;&lt;p&gt;&lt;font color=blue size=3&gt;"<br />&nbsp;&nbsp; <br />strComputer = "."<br />Set objWMIService = GetObject("winmgmts:" _<br />&nbsp;&nbsp;&nbsp; &amp; "{impersonationLevel=impersonate}!&#92;&#92;" &amp; strComputer &amp; "&#92;root&#92;cimv2")<br />Set colBIOS = objWMIService.ExecQuery _<br />&nbsp;&nbsp;&nbsp; ("Select * from Win32_BIOS")<br />For each objBIOS in colBIOS<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Build Number: " &amp;objBIOS.BuildNumber<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Current Language: " &amp;objBIOS.CurrentLanguage<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Installable Languages: " &amp;objBIOS.InstallableLanguages<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Manufacturer: " &amp;objBIOS.Manufacturer<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Name: "&amp;objBIOS.Name<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Primary BIOS: "&amp; objBIOS.PrimaryBIOS<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Release Date: " &amp;objBIOS.ReleaseDate<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Serial Number: " &amp; objBIOS.SerialNumber<br />&nbsp;&nbsp;&nbsp; doc1.writeln "SMBIOS Version: " &amp;objBIOS.SMBIOSBIOSVersion<br />&nbsp;&nbsp;&nbsp; <br />&nbsp;&nbsp;&nbsp; doc1.writeln "SMBIOS Minor Version: " &amp;objBIOS.SMBIOSMinorVersion<br />&nbsp;&nbsp;&nbsp; doc1.writeln "SMBIOS Present: " &amp;objBIOS.SMBIOSPresent<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Status: " &amp;objBIOS.Status<br />&nbsp;&nbsp;&nbsp; doc1.writeln "Version: " &amp;objBIOS.Version<br />&nbsp;&nbsp;&nbsp; doc1.writeln "BIOS Characteristics: "<br />&nbsp;&nbsp;&nbsp; For i = 0 to Ubound(objBIOS.BiosCharacteristics)<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; doc1.writeln objBIOS.BiosCharacteristics(i)<br />&nbsp;&nbsp;&nbsp; Next<br />Next</p><p><br />&nbsp;&nbsp;&nbsp; <br />doc1.writeln "&lt;/font&gt;&lt;/p&gt;&lt;/pre&gt;&lt;/body&gt;&lt;/html&gt;"<br />&nbsp;&nbsp;&nbsp; doc1.close&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </p><p>set oIE=nothing</p>