【vbs脚本】02.高级

例子01、使用默认浏览器打开百度。

Dim objShell
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("http://www.baidu.com/")

例子02、结束进程

Dim strComputer, objWMIService, colProcessList, objProcess
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'notepad.exe'")
For Each objProcess in colProcessListobjProcess.Terminate()
Next

例子03、获取网卡MAC地址

Dim objMc, objMoSet objMc = GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objMo In objMcIf ObjMo.IpEnabled = True ThenMsgBox "本机网卡MAC地址是:" & objMo.MacAddressExit ForEnd If
Next

例子04、列出系统所用进程

Dim objWMIService, objProc, objProcs, stEnum
Set objWMIService = GetObject("WinMgmts:")
Set objProcs = objWMIService.InstancesOf("Win32_Process")For Each objProc In objProcsstrEnum = strEnum + objProc.Description + chr(13) + chr(10)
Nextmsgbox strEnum

例子05、获取计算机信息

On Error Resume Next
strComputer = "."
strInfo = ""Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")Set colItems = objWMIService.ExecQuery("select * from Win32_BIOS", , 48)For Each objItem in colItemsstrInfo = strInfo & "SerialNumber: " & objItem.SerialNumber & vbCrLf
NextSet colItems = objWMIService.ExecQuery("select * from Win32_ComputerSystem", , 48)
For Each objItem in colItemsstrInfo = strInfo & "UserName: " & objItem.UserName & vbCrLfstrInfo = strInfo & "ComputerName: " & objItem.Name & vbCrLfstrInfo = strInfo & "Domain: " & objItem.Domain &vbCrLfstrInfo = strInfo & "Manufacturer: " & objItem.Manufacturer & vbCrLfstrInfo = strInfo & "Model: " & objItem.Model & vbCrLfstrInfo = strInfo & "TotalPhysicalMemory: " & Round(objItem.TotalPhysicalMemory/(1024^2), 0) & " M" & vbCrLf
NextSet colItems = objWMIService.ExecQuery("select * from Win32_Processor", , 48)
For Each objItem in colItemsIf ProcessorNumber = 0 ThenstrInfo = strInfo & "ProcessorMaxClockSpeed: " & Round(objItem.MaxClockSpeed/1024, 1) & " G" & vbCrLfstrInfo = strInfo & "ProcessorName: " & objItem.Name & vbCrLfEnd IfProcessorNumber = ProcessorNumber + 1
NextstrInfo = strInfo & "ProcessorNumber: " & ProcessorNumber & vbCrLfWScript.Echo strInfo

例子06、取得系统所有服务及运行状态

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer)
Set colServiceSet = objWMIService.InstancesOf("Win32_Service")
Dim objItem, strInfo
strInfo = ""
For Each objItem In colServiceSetstrInfo = strInfo & objItem.Description + " ==>" + objItem.State + chr(13) + chr(10)
NEXTmsgbox strInfo'消息对话框显示不全，因此保存为文本文件。
Dim objFso, filInfo
Set objFso = CreateObject("Scripting.FileSystemObject")
Set filInfo = objFso.OpenTextFile("d:\ServicesInfo.txt", 2, True)filInfo.Write strInfo
filInfo.Close

例子07、获取CPU序列号

Dim strCpuInfo
strCpuInfo = ""Set colProcessorSet = GetObject("Winmgmts:").InstancesOf("Win32_Processor")
For Each objItem in colProcessorSetstrCpuInfo = CStr(objItem.ProcessorId)msgbox "CPU SerialNumber is: " & strCpuInfo
Next

08、获取硬盘序列号

Dim strHDId, colDiskDriveSetSet colDiskDriveSet = GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
'多块硬盘会弹出多个消息对话框
For Each objItem In colDiskDriveSetstrHDId = objItem.Modelmsgbox "硬盘序列号为：" & strHDId
Next

09、获取显卡信息

On Error Resume Next
Dim colVideoControllerSet, objItemSet colVideoControllerSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_VideoController")
For Each objItem In colVideoControllerSetmsgbox "型号：" & objItem.VideoProcessor & vbCrLf _& "厂商：" & objItem.AdapterCompatibility & vbCrLf _& "名称：" & objItem.Name & vbCrLf _& "状态：" & objItem.Status & vbCrLf _& "显存：" & (objItem.AdapterRAM \ 1024000) & "MB" & vbCrLf _& "驱动（dll）：" & objItem.InstalledDisplayDrivers & vbCrLf _& "驱动（inf）：" & objItem.infFilename & vbCrLf _& objItem.DriverVersion
Next

【vbs脚本】02.高级相关推荐

Vbs与批处理高级教程
Vbs 与批处理高级教程 Vbs 脚本编程简明教程之一 -为什么要使用 Vbs ? 在 Windows 中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件 ...
vbs脚本在服务器上虚拟按键,iisvdir.vbs iis虚拟目录管理脚本使用介绍
IIS管理器也是通过调用iisvdir.vbs来实现虚拟目录的创建和删除的.我们可以通过命令行的方式来执行iisvdir.vbs脚本 1)创建虚拟目录: cscript c:\windows\syst ...
浅浅认识之VBS脚本访问接口与COMODO拦截COM接口
这2天测试了一个使用了WMI提供ASEC后门,里面使用了JS脚本往外请求http获取执行命令.但我的分析系统却没抓到这个行为,可在真机中确实抓到有HTTP请求.相当奇怪. 最后无奈windbg出手,内 ...
javascript中动态加载js、vbs脚本或者css样式表
目录:DynamicLoad类简介.属性.方法.事件.示例.下载. DynamicLoad类简介本文将为您介绍一个在javascript中可以动态加载js.vbs脚本和css样式表的DynamicL ...
博途中WinCC VBS 脚本的基础用法
VBS 脚本可以用在 WinCC Comfort/Advanced Runtime.下面就是一些很实用技巧,希望对大家有所帮助! 1.为什么一个由内部变量的 "数值改变" 事件触发 ...
Vbs脚本经典教材(转)
Vbs脚本经典教材(最全的资料还是MSDN) -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改 ...
用C#执行vbs脚本文件
最近Windows服务器自动备份占用磁盘快满了,之前的解决的方法是编写vbs脚本自动压缩备份文件,需要在windows设置计划任务来执行,最近发现计划任务执行失败了,还得重新登录windows重启计划 ...
显示域用户登录的ip或计算机名,如何在使用PowerShell脚本或者VBS脚本，查看域内正在登录的域用户名、主机名和主机IP地址...
域管理员希望能通过PowerShell或者VBS脚本,查看当前域内正在登录的账号名称.客户端主机名称和客户端主机IP地址.以前看过论坛中的一个帖子是说通过VBS脚本来查看,但是只能看到主机名和登录账号 ...
VBS脚本 - 实现一键停止Oracle相关服务
2019独角兽企业重金招聘Python工程师标准>>> 自从安装了Oracle数据库后,我电脑的运行速度满了很多.为此我想了一个办法,让我在不需要使用Oracle数据库的时候,可以轻 ...
Vbs脚本编程简明教程之十
妙用SendKeys自动上网并登陆博客将下面的脚本复制到一个文本文件中,并将其文件名命名为:自动登陆.vbs,然后将拨号软件及本脚本一起复制到程序--启动项中,就可以实现自动拨号上网,并登陆到博客上 ...

【vbs脚本】02.高级

例子01、使用默认浏览器打开百度。

例子02、结束进程

例子03、获取网卡MAC地址

例子04、列出系统所用进程

例子05、获取计算机信息

例子06、取得系统所有服务及运行状态

例子07、获取CPU序列号

08、获取硬盘序列号

09、获取显卡信息

【vbs脚本】02.高级相关推荐

最新文章

热门文章