dim fso,f1,f2,f3,f4,i,str
set fso=createobject("scripting.filesystemobject")
f1=fso.CreateTextFile("8899.txt")
f2=fso.CreateTextFile("8806.txt")
f3=fso.CreateTextFile("8835.txt")
f4=fso.CreateTextFile("8869.txt")
for i = 1 to 999
str="000" & i
str=right(str,3)
f1.writeline("8899" & str)
f2.writeline("8806" & str)
f3.writeline("8835" & str)
f4.writeline("8869" & str)
next
f1.close
f2.close
f3.close
f4.close
set fso=nothing