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

(编辑：jimmy 日期: 2024/12/22 浏览：2)

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
   objExcel.DisplayAlerts = False     ''Close the Save Alert
   objExcel.ActiveWorkbook.Close
   objExcel.DisplayAlerts = False
   objExcel.Application.Quit
 
 
Function GetPCInfo(ByVal ip, ByVal l_fn, ByVal l_line)
  'Function GetPCInfo(l_fn,l_line)
  strComputer = ip
  objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
 
  colItems = objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
 
  l_Array = Split(l_fn, ".", -1, 1)
 
  For Each objItem In colItems
    'MsgBox "Manufacturer: " & objItem.Manufacturer
    '   Msgbox "Product: " & objItem.Product
    '   Msgbox "Serial Number: " & objItem.SerialNumber
 
    objRange = objExcel.Range("A" & l_line, "E" & l_line)
    objRange.Cells(1).value = l_Array(0)
    objRange.Cells(2).value = ip
    objRange.Cells(3).value = objItem.Manufacturer
    objRange.Cells(4).value = objItem.Model
    objRange.Cells(5).value = objItem.SerialNumber
  Next
  '----Auto Fill The Column Width---
  objcol = objExcel.Columns("A:E").EntireColumn
  objcol.AutoFit()

上一篇：vbs小程序图标更改方法的实现

下一篇：vbs ping实现的两种方式

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