为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功！！在线等！！

ziqing 2003-12-18 09:33:49

为什么在我的机器上set WshShell=Server.CreateObject("WScript.Shell")创建不成功！是不是还要在操作系统上加上什么文件呀！！！不好意思，刚学ASP让大家见笑！！！

...全文

291 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

doface 2004-01-13

打赏
举报

Set WshNetwork = WScript.CreateObject("WScript.Network")

lions911 2003-12-18

打赏
举报

IIS好象默认是可以的

ziqing 2003-12-18

打赏
举报

有结果，谢谢楼上的提醒！！！

wlz000 2003-12-18

打赏
举报

我在我的机器上试，正常

你在“运行”中输入WScript，有结果吗？

ziqing 2003-12-18

打赏
举报

TO楼上！！那是一个创建一注册表的对象？！！！

wlz000 2003-12-18

打赏
举报

注册那个组件了吗？

ziqing 2003-12-18

打赏
举报

没有人回答吗？？自己UP！！！

online 2003-12-18

打赏
举报

需要安装wscript这个程序

Dim WshShell, QQPath, QQselect QQPath="G:\腾讯QQ\QQ.exe" Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run QQPath WScript.Sleep 2000 WshShell.AppActivate "Q登录" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "59619752" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "HAPPY808" WScript.Sleep 200 WshShell.SendKeys "{ENTER}"

createobject大全 createobject大全 createobject大全

on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c "" dim a do while a = inputbox msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) + chr(13) + dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + ""

dim name set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 60",0 ,true name = inputbox("请输入您的名字:","名称") if name="名字+密码"then set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -a",0 ,true msgbox name,,"欢迎人见人爱的主人" else dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true end if

VBS脚本经典代码收集,一些常用的VBS代码搜集以及整理、方便复用

ASP

28,409

社区成员

356,971

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章