利用CMD批处理调用VBS查看网卡版本信息

system_version.bat

@echo off
cscript system_version.vbs
pause

system_version.vbs

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
    WScript.Echo "系统版本：" & objOperatingSystem.Caption
    WScript.Echo "系统类型：" & objOperatingSystem.OSArchitecture
    WScript.Echo "系统安装时间：" & objOperatingSystem.InstallDate
Next

Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objProcessor in colProcessors
    WScript.Echo "CPU 型号：" & objProcessor.Name
Next

Set colVideoControllers = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objVideoController in colVideoControllers
    WScript.Echo "显卡信息：" & objVideoController.Name
Next

Set colNetworkAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")
For Each objNetworkAdapter in colNetworkAdapters
    WScript.Echo "网卡信息：" & objNetworkAdapter.Description
Next

Set colIPConfigs = objWMIService.ExecQuery("Select IPAddress, MACAddress from Win32_NetworkAdapterConfiguration where IPEnabled = True")
For Each objIPConfig in colIPConfigs
    If Not IsNull(objIPConfig.IPAddress) Then
        WScript.Echo "IP 地址：" & Join(objIPConfig.IPAddress, ", ") & vbTab & "MAC 地址：" & objIPConfig.MACAddress
    End If
Next

分享到：

赞 (0) 打赏