WScript.Shell

VBS脚本常用经典代码

*/setWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir
haimaa·2018-06-19 23:19

vbs实现的一个小蠕虫

SubCreateShortcut(path)SetWshShell=Wscript.CreateObject("Wscript.Shell")SetShortcut=WshShell.CreateShortcut
Cosmop01itan·2018-06-13 20:48

隐身运行程序

2然后，在其中添加如下代码：DimWShellSetWShell=CreateObject("WScript.Shell")WShell.Run""""&
alice307·2018-05-29 16:39

IE浏览器中链接用谷歌浏览器打开或其他程序打开

就是把命令改为打开其他程序的命令下面粘出测试代码indexfunctiontest(){/*创建ActiveXObject实例，只在IE下有效，才可以创建*/varobjShell=newActiveXObject("WScript.Shell
lytao123·2018-05-07 15:42

js 创建快捷方式

functioncreateShortcut(){varfso=newActiveXObject("Scripting.FileSystemObject");varshell=newActiveXObject("WScript.Shell
王磊的博客·2018-04-28 09:01

wsl开机启动ssh服务并开启32bit支持

在开机启动目录C:\ProgramData\Microsoft\Windows\StartMenu\Programs\StartUp加入vbs脚本Setws=WScript.CreateObject("WScript.Shell
封尘印·2018-03-27 13:40

windows应用UWP无法使用系统代理

解决方法把下面这段代码复制到记事本中，后缀名改成.vbs，然后双击运行Setws=WScript.CreateObject("wscript.shell")app=ws.ExpandEnvironmentStrings
zxcvbnmzsedr·2017-12-09 01:02

windows 后台调用bat （摘录）

hi.baidu.com/lzmysthttp://www.clxp.net.cnif"%1"neq"1"(>"%temp%\tmp.vbs"echosetWshShell=WScript.CreateObject^(^"WScript.Shell
安妮小子被占用了·2017-10-12 15:56

如何隐藏启动Tomcat的window的cmd窗口

如何隐藏启动Tomcat的window的cmd窗口，同样适合java-jar启动服务的方式方案一：使用vbs嵌套打开1：新建startup.vbsCreateObject("WScript.Shell"
董洪臣·2017-09-29 15:05

批处理文件 bat 后台运行

,不出现黑窗口第一种解决办法(推荐):在你写的批处理文件,开头加上以下三行代码即可if"%1"=="hide"gotoCmdBeginstartmshtavbscript:createobject("wscript.shell
North_Spark·2017-09-06 21:34

windows计划任务后台定时执行java的jar文件

第一种方法：windows计划任务正常情况下不能执行jar，安装jdk，用vbs调用：vbs调用jar的代码：Setws=CreateObject("Wscript.Shell")ws.run"cmd/
铜峰叠翠·2017-09-01 14:06

批处理自动填写密码

@echooff(echosetWshell=CreateObject^("Wscript.Shell"^)echowscript.Sleep50echoWshell.SendKeys"123456":
obitolyz·2017-07-16 21:43

Javascript中使用WScript.Shell对象执行.bat文件和cmd命令

阅读更多WScript.Shell（WindowsScriptHostRuntimeLibrary）是一个对象，对应的文件是C:/WINDOWS/system32/wshom.ocx，Wscript.shell
110shen110·2017-06-07 23:00

IE浏览器利用JS打开本地文件夹或共享

functionopenFileIIs(filename){ try{ varobj=newActiveXObject("wscript.shell"); if(obj){ obj.Run("\""+filename
dong_18383219470·2017-06-07 18:00

炸群脚本-消息轰炸

网上看到的一段很有意思的代码setWshShell=WScript.CreateObject("WScript.Shell")WshShell.AppActivate"群的名称"fori=1to10WScript.Sleep500WshShell.SendKeys
StevenDIY·2017-05-27 18:01

Windows下通过脚本自动发邮件

创建一个脚本文件，名字随意，扩展名vbssubject=WScript.Arguments(0)content=WScript.Arguments(1)set sh=WScript.CreateObject("WScript.Shell
zl1030·2017-05-16 18:31

使用脚本更改计算机名

第一种：DimrevalSetobjnet=CreateObject("WScript.Network")SetR=CreateObject("WScript.Shell")reval=InputBox
Younisz·2017-02-28 21:42

VBE整人

发点整人代码，请勿自己点~~~~~~~~~~sets=createobject("wscript.shell")setbag=getobject("winmgmts:\\.
AKfxsj·2017-01-12 15:47

QTP/UFT引用外部dll的3种方法

引用外部dll的3种方法：ActiveDLL,WinAPIDLL,.NetAPIDLL1、ActiveDLL通过CreateObject(class)创建：dimwssetws=CreateObject(“Wscript.shell
DanielYuan_911·2017-01-07 20:47

vbs教程《弹出窗口》

setws=createobject("wscript.shell")dimx1rem弹出输入框inputbox(text,title,default_value)x1=inputbox("请输入一个数字
xiaohei_dev·2016-12-29 18:57

VBS脚本常用经典代码

*/setWshShell=WScript.CreateObject("WScript.Shell")strWinDir=WshShell.ExpandEnvironmentStrings("%WinDir
cosmoslife·2016-11-21 18:53

Wscript.shell对象参考手册

阅读更多Wscript.shell对象手册分类:程序ProgIDWscript.Shell文件名WSHom.OcxCLSIDF935DC22-1CF0-11d0-ADB9-00C04FD58A0BIIDF935DC21
top5·2016-10-19 13:00

确认并移动鼠标位置

阅读更多DimWshShell,mouse'pathSetWshShell=WScript.CreateObject("WScript.Shell")'Path=WshShell.CurrentDirectorySetmouse
ktc7000·2016-06-16 11:00

确认并移动鼠标位置

阅读更多DimWshShell,mouse'pathSetWshShell=WScript.CreateObject("WScript.Shell")'Path=WshShell.CurrentDirectorySetmouse
ktc7000·2016-06-16 11:00

Win10怎么自定义设置文件资源管理器打开位置?

具体方法如下：1、在记事本中写入如下图命令（“X:\你的文件夹”改为你想要自定义的位置）：WScript.CreateObject("Wscript.Shell").Run"X:
佚名·2016-06-08 15:25

DynamicWrapper.dll、dynwrapx.dll测试（WinXP、Win7下均可跑）（2013-08-07 13:21:55）

SetobjShell=CreateObject("Wscript.Shell")objShell.Run"regsvr32/sCOM_Test.dll",,trueSetobj=CreateObject
u010401391·2016-03-18 14:00

PHP截取IE浏览器并缩小原图的方法

Captureawindow(IEforexample)$ie=newCOM("InternetExplorer.Application");$ie->Navigate2($webaddress);$oWSH=newCOM("WScript.Shell
kevin8096·2016-03-04 09:43

windows 自启动脚本并注册服务

有时候我们可能需要自己编写启动脚本创建一个bat文件，编辑内容,保存为start.bat文件lsnrctlstart2，编辑一个vbs文件内容如下，保存为lsnstart.vbs'setws=CreateObject("Wscript.Shell
朝闻道-夕死可矣·2016-02-17 11:27

VBS 操作注册表 十六进制

RegRead:'read.vbs(将以下代码存为read.vbs文件) DimOperationRegistry SetOperationRegistry=WScript.CreateObject("WScript.Shell
stefanie·2016-02-17 11:00

php调用com组件加载dos命令解压缩的方法

$dir";$obj=newcom("wscript.shell");//加载dos命令解析器$obj->run($rar,1,true);unlink($filename);}?
ghostyusheng·2016-02-15 15:18

java执行bat批处理文件（下）

1.新建一个文本文件2.写入如下内容Setws=CreateObject("Wscript.Shell") ws.
u013151320·2016-01-23 21:00

vbs让电脑发音说话

Dimvbs1 'setvbs1=WScript.CreateObject("WScript.Shell") setvbs1=WScript.CreateObject("SAPI.SpVoice")
wjshan0808·2016-01-23 11:00

vbs下载者和powershell下载器

vbsSetPost=CreateObject("Msxml2.XMLHTTP") SetShell=CreateObject("Wscript.Shell") Post.Open"GET","http
yiyefangzhou24·2015-12-25 14:00

IE中用JS让页面全屏的方式（达到F11的 效果）

"JavaScript">         Fkey();         function Fkey(){             var WsShell = new ActiveXObject('WScript.Shell
二两豆腐·2015-11-30 14:00

vbs中解决路径带空格的三种方法（转）(即对双引号的处理)

vbs中解决路径带空格的三种方法（转）1、在应用程序前后分别加三个双引号，代码如下：Setwshell=CreateObject("WScript.Shell")wshell.Run """C:\ProgramFiles
guyue35·2015-11-26 21:00

思科3560交换机接口流量抓取vbs脚本

on error resume next  dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run"cmd
菠萝味咖啡·2015-11-24 14:15

思科3560交换机接口流量抓取vbs脚本

on error resume next  dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run"cmd
菠萝味咖啡·2015-11-24 14:15

思科3560交换机接口流量抓取vbs脚本

on error resume next dim WshShellSet WshShell = WScript.CreateObject("WScript.Shell")WshShell.run"cmd"WshShell.AppActivate"d
菠萝味咖啡·2015-11-24 14:15

U盘自动复制文件

2、把下面的代码复制进去 setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell")onerrorresumenextdowscript.sleep1000iffso.driveexists
moyuzizhu·2015-11-23 00:00

改变运行脚本的命令窗口标题

可以简单地使用下面语句实现窗口的标题SetobjShell=CreateObject("Wscript.Shell")objShell.Run("%comspec%/KtitleMyCommandWindow
bjyizhang·2015-11-19 22:47

改变运行脚本的命令窗口标题

可以简单地使用下面语句实现窗口的标题SetobjShell=CreateObject("Wscript.Shell")objShell.Run("%comspec%/KtitleMyCommandWindow
bjyizhang·2015-11-19 22:47

当脚本运行时如何改变脚本运行的当前目录

如果你希望在WindowsScriptHost5.6的脚本运行的时候需要修改脚本运行的当前目录，要建一个Wscript.Shell的对象，然后设置CurrentDirectory值的属性为你需要的目录。
bjyizhang·2015-11-17 21:07

当脚本运行时如何改变脚本运行的当前目录

如果你希望在WindowsScriptHost5.6的脚本运行的时候需要修改脚本运行的当前目录，要建一个Wscript.Shell的对象，然后设置CurrentDirectory值的属性为你需要的目录。
bjyizhang·2015-11-17 21:07

当脚本运行时如何改变脚本运行的当前目录

如果你希望在WindowsScriptHost5.6的脚本运行的时候需要修改脚本运行的当前目录，要建一个Wscript.Shell的对象，然后设置CurrentDirectory值的属性为你需要的目录。
bjyizhang·2015-11-17 21:07

【技术贴】ActiveX 部件不能创建对象 Wscript.Shell，右键打开所在目录的批处理ba

开始 -- 运行 -- 输入regsvr32 %windir%\system32\WSHom.Ocx 回车 开始 -- 运行 -- 输入regsvr32 /u scrrun.dll 回车 以上两步即可解决此问题。没有为什么，微软说的。 &nbs
·2015-11-13 10:51

【技术贴】ActiveX 部件不能创建对象 Wscript.Shell，右键打开所在目录的批处理ba

开始 -- 运行 -- 输入regsvr32 %windir%\system32\WSHom.Ocx 回车 开始 -- 运行 -- 输入regsvr32 /u scrrun.dll 回车 以上两步即可解决此问题。没有为什么，微软说的。 &nbs
·2015-11-13 10:50

【解决】运行VBScript时出现800A01AD错误

在其他电脑上可以点击，不报错，自己的电脑上就爆出错误，wscript.shell不能创建对象。所以各种百度无果之后，偶寻得一贴   解决方法：分别在“运行”里执行 regsvr32&
·2015-11-13 08:04

网页中使用 Wscript.Shell 执行文件

<script language=VBscript> Set WshShell = CreateObject("WScript.Shell") WshShell.Run "%windir%\notepad" ,3,false </script>   <script language=javascript>
·2015-11-12 12:34

无cmd命令行下添加用户的方法:API添加用户与Shell.Users

下利用控制面板的cpl文件留后门，然后又有了用.cpl文件加账号的技术，lcx真的很厉害 今天研究了一下用户控制面板文件nusrmgr.cpl，发现调用的是Shell.Users来加用户，它还同时调用了wscript.shell
·2015-11-12 11:36

vbs实现打开记事本，写入一些文字，复制然后关闭

Dim WshShell, oNotepad Set WshShell = CreateObject ( " WScript.Shell
·2015-11-11 16:33
上一页 4 5 6 7 8 9 10 11 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他