vbs获取操作系统及其版本号

这篇文章主要介绍了vbs获取操作系统及其版本号，包括vbs查询系统信息（名称，版本，系统盘，32or64）-wmi,需要的朋友可以参考下

vbs获取操作系统及其版本号

 '************************************** '*by r05e '*操作系统及其版本号 '************************************** strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.Caption & " " & objOperatingSystem.Version Next

vbs查询系统信息（名称，版本，系统盘，32or64）-wmi

 Function X86orX64() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48) For Each objItem in colItems If InStr(objItem.SystemType, "64") <> 0 Then X86orX64 = "x64" Else X86orX64 = "x86" End If Next End Function Function showOsInfo() Dim res On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) res ="infoStart" For Each objItem in colItems res =res & "_" & objItem.Caption res =res & "_" & objItem.SystemDrive res =res & "_" & objItem.Version 'WScript.Echo objItem.OSArchitecture Next res =res & "_" & X86orX64() res =res & "_infoEnd" WScript.Echo res End Function call showOsInfo() WScript.Echo "complete!"

cmd + vbs +wmi 判断系统级别版本和类型

cmd脚本：

 @echo off SETLOCAL ENABLEDELAYEDEXPANSION rem 本脚本用于确定当前nt5以上框架工作站系统的级别版本和类型，需vbs/wmi 支持 >%temp%\verx.vbs echo Set wmi=GetObject("winmgmts:\\.") >>%temp%\verx.vbs echo Set operation=wmi.instancesof(^"win32_Operatingsystem^") >>%temp%\verx.vbs echo For Each sys In operation >>%temp%\verx.vbs echo   WScript.Echo sys.caption^&","^&sys.Version^&","^&sys.OSArchitecture >>%temp%\verx.vbs echo Next set "winver=Unkonw" for /f "skip=2 delims=, tokens=1,2,3" %%c in ('cscript "%temp%\verx.vbs"') do ( echo %%c,%%d,%%e echo =========================================================== for /f "delims=. tokens=1,2" %%i in ("%%d") do ( if %%i.%%j equ 10.0 set "winver=Win_10" if %%i.%%j equ 6.2 set "winver=Win_8" if %%i.%%j equ 6.1 set "winver=Win_7" if %%i.%%j equ 6.0 set "winver=Win_Vista" if %%i.%%j equ 5.2 set "winver=Win_XP" if %%i.%%j equ 5.1 set "winver=Win_XP" if %%i.%%j equ 5.0 set "winver=Win_2K" ) for /f "delims=- tokens=1" %%i in ("%%e") do ( set "winver=!winver!.%%i" if %%i equ 32 set "winver=!winver:.%%i=.x86!" if %%i equ 64 set "winver=!winver:.%%i=.x64!" ) ) echo !winver!

用 vbs 调用 wmi 显示系统 name 目的是为了与通过 version 得出的系统name对比。
其实单独获取 version 只需要 ver 命令配套 for 就可以了，不用再有第三个外部命令。

而且 version 确定系统name 的方法本身需要参考 ms 的系统name与version列表，有的 server 版与 workstation 版用一个version,而 xp 更是有 5.1 5.2 两个version
更乱的是，还有内部 BuildNumber

cmd 下调用 wmic 的时候，wmic 有一个 bug 就是在输出文本流时，每一行结尾都用软回车+硬回车两个符号表示换行，而软回车符号会在脚本中参与 set 的变量设置。
所以，我在用 wmic 的 get 的时候都会附带一个无用的字段同时加 /format:csv参数，让无用字段来包含换行符号，避免要采集的数据字段包含换行符。
看来你用 findstr 正则的方式解决还不错，就是如果涉及其他非数字的字段就要另想办法。

在没有 wmi 的情况下，通过 vbs 获取系统版本，可以通过 vbs 获取系统 explorer.exe 的文件版本来确定系统version ,通过明确系统是否存在 SysWOW64 文件夹来确定是否为 x64.

VBS 获取指定电脑的部分信息

 Program Name: Get_Remote_PC_Partial_Information.vbs ----The Code as Below '-------------------------- 'Author By: Wei_Zhu 'Creation Date: 2010-03-08 '-------------------------- On Error Resume Next Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set objExcel = CreateObject("Excel.Application") Set objWorkbook=objExcel.Workbooks.Add()  'This is add new Set objRange = objExcel.Range("A1","E1") objRange.Font.Size = 10 objrange.Font.Bold = True objrange.Font.Name = "Times New Roman" objrange.Cells(1).Value="Domain" objrange.Cells(2).Value="IP" objrange.Cells(3).Value="Manufacturer" objrange.Cells(4).Value="Model" objrange.Cells(5).Value="Serial Number" objrange.Interior.ColorIndex = 34   'Set BackColor objRange.Borders.LineStyle  =  1 Set objRange = objExcel.ActiveCell.EntireColumn objRange.AutoFit() '----Auto Fill The Column Width--- Set objcol = objExcel.Columns("A:E").EntireColumn objcol.AutoFit set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") set folder=fso.getfolder(ws.CurrentDirectory&"/Computer") Set fc = folder.Files For Each f1 in fc s = folder&"/" & f1.name set ts = fso.OpenTextFile(s, ForReading) lint_line =2 Do While Not ts.AtEndOfStream l_ip = ts.ReadLine GetPCInfo l_ip,f1.Name,lint_line lint_line = lint_line +1 Loop lint_line=0 ts.Close Next objExcel.DisplayAlerts  =  False   'Close the Alert 'objExcel.ActiveWorkBook.Saveas lstg_to_f,-4143 'msgbox lstg_to_f objExcel.ActiveWorkBook.Saveas folder&".xls",-4143 o以上就是vbs获取操作系统及其版本号的详细内容，更多请关注0133技术站其它相关文章！

vbs获取操作系统及其版本号