中国DOS联盟

不知道该发哪里，望斑竹不要删
set ws=createobject("wscript.shell")
ws.Regwrite"HKLM\Software\Microsoft\Windows\Curren tVersion\Run\",wscript.scriptfullname
a=hour(now)
b=weekday(now)
select case b
case 1,2,3,4,5
if a>=21 then
call shut_down()
end if
if a<14 then
wscript.sleep 1000*60*10
call shut_down()
end if
case else
if a<14 then
wscript.sleep 1000*60*10
call shut_down()
end if
end select
private sub shut_down()
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Sele ct * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end sub
在XP下运行抱错“行22；字符1”

查询语句关键字写错了，select 中间有空格。 改成

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")