On Error resume next
Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objOutFile = fso.CreateTextFile("source.txt")
Set objTextFile = fso.OpenTextFile("list.txt",1)
Set objOutFile = fso.OpenTextFile("source.txt",2)
password = InputBox("Введите пароль:")
Do Until objTextFile.AtEndOfStream
uin = objTextFile.Readline
objOutFile.WriteLine uin & ";" & password
Loop
objTextFile.close
objOutFile.close
msgbox "Generation Complete"