VBS怎么写关机代码？

sincoe 2010-06-16 11:26:11

VBS怎么写关机代码？最好给出实例

...全文

1340 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

as123456789d 2010-06-17

打赏
举报

怎么不行啊

sincoe 2010-06-16

打赏
举报

非常感谢！！试过了可以的

美女她妈 2010-06-16

打赏
举报

经过试验可以关机

asdfa23rdadsdfa 2010-06-16

打赏
举报

参考一楼。。

mcalf 2010-06-16

打赏
举报

楼上正解

美女她妈 2010-06-16

打赏
举报

'VBS关机代码2009-01-13 13:11解除限制的方法是，在运行一遍

set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.CommandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next