dir="E:Temp"

Set fso=CreateObject("Scripting.FileSystemObject")

cmd="shutdown -s -f -t 60"

Set ws=WScript.CreateObject("WScript.Shell")

Wscript.Echo "emule自动关机脚本已运行……"

count=0

do until count<-1

chksize = fso.GetFolder(dir).Size

If chksize=0 Then

ws.run cmd,0

End If

WScript.Sleep 120000

loop