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