emule自动关机脚本

1. dir="E:\Temp"  
2. Set fso=CreateObject("Scripting.FileSystemObject")  
3. cmd="shutdown -s -f -t 60"  
4. Set ws=WScript.CreateObject("WScript.Shell")  
5. Wscript.Echo "emule自动关机脚本已运行……"  
6. count=0  
7. do until count<-1  
8. chksize = fso.GetFolder(dir).Size  
9. If chksize=0 Then  
10. ws.run cmd,0  
11. End If  
12. WScript.Sleep 120000  
13. loop