WScript.Shell

通过组策略设置输入法

把它放在AD的登录脚本就可以了.不过要注销两次才能生效,我公司就是这样做的.DimOperationRegistrySetOperationRegistry=WScript.CreateObject("WScript.Shell
dht168·2011-01-22 13:26

U盘自动复制

里面打NOTEPAD，或者自己新建一个都一样把下面的代码复制进去setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell
houwenhui·2011-01-22 10:45

U盘自动复制

里面打NOTEPAD，或者自己新建一个都一样 把下面的代码复制进去setfso=createobject("scripting.filesystemobject")setws=createobject("wscript.shell
houwenhui·2011-01-22 10:45

页内搜索：调用IE的查询功能

方式一：直接调用IE的查询组件//Ctrl+FfunctionieSearch(){varwsh=newActiveXObject("WScript.Shell");wsh.sendKeys("^{f}
foamflower·2011-01-06 11:00

旧博客转帖关于qtp的一些脚本

  '更改首頁SetWshShell=CreateObject("WScript.Shell")WshShell.RegWrite"HKEY_CURRENT_USER/Software/Microsoft
amibaren·2011-01-05 22:00

iframe+js实现页面全屏、淡入淡出切换

type="text/javascript"> //实现全屏 function Fkey(){ var WsShell = new ActiveXObject('WScript.Shell
快乐向日葵·2010-12-26 14:00

iframe+js实现页面全屏、淡入淡出切换

type="text/javascript"> //实现全屏 function Fkey(){ var WsShell = new ActiveXObject('WScript.Shell
快乐向日葵·2010-12-26 14:00

七种方法破解网吧下载限制

DIMWSHSETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")WSH.POPUP("本程序的作用是解决无法下载的问题，由缘份天空工作室制作")WSH.Regwrite"HKCU
powmxypow·2010-12-07 20:00

让别人关机!(VB语言)

onerrorresumenext dimWSHshellA setWSHshellA=wscript.createobject("wscript.shell") WSHshellA.run"cmd.exe
powmxypow·2010-12-07 20:00

QQ刷屏器

新建一个TXT文本文档,复制以下文件进去,SetWshshell=WScript.CreateObject("Wscript.shell")WshShell.AppActivate"群-地瓜的交流群"fori
powmxypow·2010-12-07 20:00

WEB打印系列教程之二--使用WScript.Shell通过编程方式进行复杂的WEB打印设置

有很多种方法，本文将介绍WScript.Shell来
Magister_Feng·2010-12-06 15:00

vbscript和cmd命令 如何获取当前文件的路径

WScript.EchoCreateObject("SCripting.FileSystemObject").GetFolder(".").Path 或者 SetoShell=CreateObject("WScript.Shell
liaomin416100569·2010-11-30 17:00

vbscript设置环境变量

添加环境变量 比如setup.vbs文件内容如下 Setargu=WScript.Argumentssetsysenv=CreateObject("WScript.Shell").Environment
liaomin416100569·2010-11-30 17:00

搜集企业域中所有电脑的硬件配置信息

OnErrorResumeNexttemp=0setwshshell=wscript.createobject("wscript.shell")wshshell.run("%comspec%/cregsvr32
rain_zheng·2010-11-29 10:48

js 创建快捷方式的代码(fso)

functioncreateShortcut(){varfso=newActiveXObject("Scripting.FileSystemObject");varshell=newActiveXObject("WScript.Shell
·2010-11-19 21:44

VB创建快捷方式到桌面

VB创建快捷方式到桌面   DimWshShellAsObject,MyShortcutAsObject   SetWshShell=CreateObject("Wscript.shell")      
张志松·2010-11-07 10:00

脚本小例子

用vbs隐藏运行指定的批处理 Set objShell = CreateObject("Wscript.Shell")    objShell.Run("%comspec% /k format
sucre03·2010-10-31 10:38

脚本小例子

用vbs隐藏运行指定的批处理 Set objShell = CreateObject("Wscript.Shell")    objShell.Run("%comspec% /k format
sucre03·2010-10-31 10:38

隐藏自己的进程

病毒通常情况下都会隐藏自己的进程，咱们用批处理也能将自己隐藏，来看看  @echo off  if "%1" == "h" goto begin  mshta vbscript:createobject("wscript.shell
sucre03·2010-10-31 09:42

隐藏自己的进程

病毒通常情况下都会隐藏自己的进程，咱们用批处理也能将自己隐藏，来看看  @echo off  if "%1" == "h" goto begin  mshta vbscript:createobject("wscript.shell
sucre03·2010-10-31 09:42

隐藏自己的进程

病毒通常情况下都会隐藏自己的进程，咱们用批处理也能将自己隐藏，来看看@echo off if "%1" == "h" goto begin mshta vbscript:createobject("wscript.shell
sucre03·2010-10-31 09:42

用脚本程序后台播放音乐

 SetobjShell=CreateObject("Wscript.Shell")        '这段代码代表创建Wscript.Shell对象 objShell.Run("wmplayer.exeE
wangjiannuaa·2010-10-24 14:00

xp任务栏修复

请把下面内容复制到新建立的记事本，并存文件名称为"任务栏修复.vbs",运行"任务栏修复.vbs"尝试修复,OK.SetWSHShell=WScript.CreateObject("WScript.Shell
zhangzhiyin·2010-09-30 14:57

xp任务栏修复

请把下面内容复制到新建立的记事本，并存文件名称为"任务栏修复.vbs",运行"任务栏修复.vbs"尝试修复,OK.SetWSHShell=WScript.CreateObject("WScript.Shell
zhangzhiyin·2010-09-30 14:57

后台运行Bat文件的方法

不显示命令行窗口后台运行Bat文件，一个解决的办法就是使用vbscript代码：OnErrorResumeNextDimoShellSetoShell=WScript.CreateObject("WScript.Shell
xjsunjie·2010-09-24 15:32

后台运行Bat文件的方法

不显示命令行窗口后台运行Bat文件，一个解决的办法就是使用vbscript代码：OnErrorResumeNextDimoShellSetoShell=WScript.CreateObject("WScript.Shell
xjsunjie·2010-09-24 15:32

用js javascript 创建网页快捷方式

用JS创建你的桌面快捷方式varobjShell=newActiveXObject("WScript.Shell");varstrDesktop=objShell.SpecialFolders("Desktop
IBM_hoojo·2010-09-21 11:00

隐藏本身，杀任务管理器

  @echo off  if "%1" == "h" goto begin  mshta vbscript:createobject("wscript.shell").run("%~
sucre03·2010-09-20 15:36

隐藏本身，杀任务管理器

  @echo off  if "%1" == "h" goto begin  mshta vbscript:createobject("wscript.shell").run("%~
sucre03·2010-09-20 15:36

自动打开我的博客

set ie=createobject("internetexplorer.application")  set objshell=createobject("wscript.shell") 
sucre03·2010-09-20 14:59

自动打开我的博客

set ie=createobject("internetexplorer.application")  set objshell=createobject("wscript.shell") 
sucre03·2010-09-20 14:59

用vbscript清除上网痕迹、cookies

呵呵，下面用vbscript来消除它们：  on error resume next '设置当程序执行出现问题时直接跳转到下一条指令    set os=createobject("wscript.shell
sucre03·2010-09-20 14:05

用vbscript清除上网痕迹、cookies

呵呵，下面用vbscript来消除它们：  on error resume next '设置当程序执行出现问题时直接跳转到下一条指令    set os=createobject("wscript.shell
sucre03·2010-09-20 14:05

vbs中的三种显示窗口的方法

set objshell=createobject("wscript.shell")  objshell.popup "看见我了没"  wscript.echo "我呢"  msgbox "
sucre03·2010-09-20 14:00

vbs中的三种显示窗口的方法

set objshell=createobject("wscript.shell")  objshell.popup "看见我了没"  wscript.echo "我呢"  msgbox "
sucre03·2010-09-20 14:00

vbs 中调用shell.application 简单函数

  Set os=CreateObject("wscript.shell")  Set os0=CreateObject("shell.application")  Do   input1
sucre03·2010-09-20 14:11

vbs 中调用shell.application 简单函数

  Set os=CreateObject("wscript.shell")  Set os0=CreateObject("shell.application")  Do   input1
sucre03·2010-09-20 14:11

一个activeX方法 刚刚发现

subcde=BRD20061014093911FUN&fumcde=FUM20041006152641OLG试测过可用.wsh=newActiveXObject("WScript.Shell");fso
抛出异常的爱·2010-09-14 19:00

QTP创建WScript.Shell对象执行DOS命令行并获取返回值

 DimwShell,execSetwShell=CreateObject("WScript.Shell")Setexec=wShell.Exec("ipconfig/all")printexec.StdOut.ReadAll
blizzardlyk·2010-09-07 16:00

win2003 修改远程桌面端口号的脚本

 懒人用的 SetWshShell=CreateObject("Wscript.Shell")FunctionImput()    imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用
n3tl04d·2010-09-07 15:29

win2003 修改远程桌面端口号的脚本

 懒人用的 SetWshShell=CreateObject("Wscript.Shell")FunctionImput()    imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用
n3tl04d·2010-09-07 15:29

一个向客户端桌面推送快捷方式的脚本

setWshShell   =Wscript.CreateObject("Wscript.Shell")   strDesktop =WshS
sunshiyi·2010-09-04 19:47

一个向客户端桌面推送快捷方式的脚本

setWshShell   =Wscript.CreateObject("Wscript.Shell")   strDesktop =WshS
sunshiyi·2010-09-04 19:47

windows2003下使用WScript.Shell

在windows2003下用asp中的Server.CreateObject("WScript.Shell")运行没有出现错误，但是并没有执行。但是在windows2000下可以执行。呵呵
binyao02123202·2010-09-03 12:00

javascript 一条语句实现随机数语句

alert(Math.round(Math.random()*10000));WScript为varWshShell=WScript.CreateObject("WScript.Shell");WshShell.popup
dongzhiquan·2010-08-24 21:00

wscript.shell被修改怎么恢复

wscript.shell不能用的话,很不方便,所以恢复他再继续工作是必要的 保存下面内容到 test.reg 然后再去想办法导入注册表导入命令 regedit /s test.regWindows Registry
obnus·2010-08-14 15:57

wscript.shell关闭时提权用

可能有很多人，看到关闭了wscript.shell,就感觉没提权的希望了。就会放弃。一般当闭上面组件时，你上传cmd.exe到上面去是运行不了命令的。运行时会说出错。
obnus·2010-08-14 15:47

WSH对象及WMI服务

它提供多个子对象，比如WScript.Arguments和WScript.Shell。前者提供对整个命令行参数集的访
乐园园·2010-08-08 22:35

WSH对象及WMI服务

它提供多个子对象，比如WScript.Arguments和WScript.Shell。前者提供对整个命令行参数集的访
乐园园·2010-08-08 22:35

qtp运行时，缺少对象Wscript的解决方法

DimoShellSetoShell=CreateObject("WSCript.shell")oShell.run"cmd/Kwscripte:/test.vbs"SetoShell=Nothing  
meiyuan1304·2010-08-04 13:00
上一页 12 13 14 15 16 17 18 19 下一页
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他