quit = and save it as?vbs and run it and you will get numbers in txt file ) Environment(“Process”) tBestand= EnvVar(“USERPROFILE”) & “ Desktop Numbers2.txt” Set Bestand = fso.createtextfile(tBestand,1) t = 0 For x = 1 To 10000 Bestand.WriteLine(Right(“00000000” & x,8)) Next Bestand.close WScript. TO you ZOONY: copy this (without “=”) in Notepad = Public Const cHideWindow = 0, cNormalWindow = 1 Set WSHShell = Wscript.CreateObject(“WScript.Shell”) Set FSO = Wscript.CreateObject(“Scripting.FileSystemObject”) Set EnvVar = wshShell.