程序代码：
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