vbs генерирующий TXT

[gtrynox]

файл создаётся только на рабочем столе через имя пользователя(Win10),а оно может быть разным.
Можно ли,это как-то обойти,например создавать файл в той же директории(это само-распаковывающийся),или брать имя учётки?

Set objShell = CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("путь к файлу", True)
Dim fso
dim password
dim password1
password=InputBox("Please Enter Password:","3 - Tries Left")
if password = ("1") then
dim correct
    correct =MsgBox("Correct Password!",64,"correct")
    dim tf   
    tf.Write ("Пример 1")
  end if
if password = ("2") then
    correct =MsgBox("Correct Password!",64,"correct")   
    tf.Write ("Пример 2")
  tf.Close
end if