vbs
小蚂蚁_CrkRes
Where there is a will, there is a way
展开
-
脚本在文件中定位到选定行
set wshshell = CreateObject("WScript.Shell")line = inputBox("Which line do you want to mark?")if not IsNumeric(line) thenMsgBox "You did not specify a number!"WScript.Quitelseline = Fix(原创 2017-06-06 14:14:33 · 1365 阅读 · 0 评论 -
VBS 脚本关闭Windows Update 更新服务
'---------------------------------------'-提升用户权限--------------------------------------bElevate = Falseif WScript.Arguments.Count > 0 Then If WScript.Arguments(WScript.Arguments.Count-1) <> "|...原创 2018-03-27 16:54:10 · 1959 阅读 · 0 评论 -
应用VBS 操作防护墙
You can use any of the VBScript programs below in ActiveXperts Network Monitor . Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.Add an Authorized Applicatio...转载 2018-03-28 09:08:55 · 446 阅读 · 0 评论 -
vbs 关闭windows 防火墙
' 关闭防火墙Set objFirewall=CreateObject("HNetCfg.FwPolicy2")'旧版方法'Set objPolicy=objFirewall.LOcalPolicy.CurrentProfile'objPolicy.FirewallEnabled=FalseConst NET_FW_PROFILE2_DOMAIN = 1Const NET_FW_PROFILE2_...原创 2018-03-28 09:44:15 · 1181 阅读 · 0 评论 -
vbs 得到windows defender 状态
Dim objWMIServiceSC,objAntiVirusProduct,colAVItems,AvStatusSet objWMIServiceSC = GetObject("winmgmts:\\.\root\SecurityCenter2")Set colAVItems = objWMIServiceSC.ExecQuery("Select * from AntiVirusProduc...原创 2018-03-28 10:20:13 · 670 阅读 · 0 评论 -
VBS脚本常用经典代码
1、VBS获取系统安装路径/*先定义这个变量是获取系统安装路径的,然后我们用“&strWinDir&”调用这个变量。*/setWshShell = WScript.CreateObject("WScript.Shell")strWinDir= WshShell.ExpandEnvironmentStrings("%WinDir%")2、VBS获取C:/Program Files路径...转载 2018-03-28 11:30:28 · 37389 阅读 · 3 评论 -
vbs 系统右键菜单新建添加新建vbs选项
1.vbs系统右键新建菜单选项 添加 新建 vbs文件选项filetype=".vbs"' connect to WScript..Shell for registry accessset WSHShell = CreateObject("WScript.Shell")' read in the name of the vbs-sectionprg = ReadReg("HKCR...原创 2018-10-29 16:10:56 · 1789 阅读 · 0 评论