vbs获取群聊当前内容_vbs脚本大全，配有实例 DOS命令，批处理 脚本 代码

取得本机IP

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" &

strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress

from

Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet

If Not IsNull(IPConfig.IPAddress) Then

For Each strAddress in IPConfig.IPAddress

WScript.Echo strAddress

Next

End If

Next

2 取得本机计算机名

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" &

strComputer & "\root\cimv2")

Set colComputers = objWMIService.ExecQuery("Select * from

Win32_ComputerSystem")

For Each objComputer in colComputers

Wscript.Echo objComputer.Name

Next

4 检查升级包

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" &

strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery("Select * from

Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

Wscript.Echo objOperatingSystem.ServicePackMajorVersion

& "." &

objOperatingSystem.ServicePackMinorVersion

Next

5 检查 Hot Fix

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" &

strComputer & "\root\cimv2")

Set colQuickFixes = objWMIService.ExecQuery ("Select * from

Win32_QuickFixEngineering")

For Each objQuickFix in colQuickFixes

Wscript.Echo "Description: " &

objQuickFix.Description

Wscript.Echo "Hot Fix ID: " &

objQuickFix.HotFixID

Next

6 检查本地管理员数目

Set objNetwork = CreateObject("Wscript.Network")

strComputer = objNetwork.ComputerName

Set objGroup = GetObject("WinNT://" & strComputer

& "/Administrators,group")

For Each objUser in objGroup.Members

Wscript.Echo objUser.Name

Next

7 磁盘系统

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" &

strComputer & "\root\cimv