dúvida no vbs

[Guest Zapdo50]

Sou iniciante em mecher em vbs.

Aqui tá o código que eu peguei:

a = MsgBox("Choose yes or no",4+32, "Pergunta")

if a = vbYes then

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Run "men.vbs"

else

c = MsgBox("You choosed no", , "Huray")

End If

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.Run "men.vbs"

Eu queria que nesse script pra ele abrir ele mesmo seja lá qual for o nome. (porque o nome no arquivo é men.vbs, e no script eu coloquei pra abrir um men.vbs, e se renomear ele pra outro nome, não vai mais abrir.)

Outra coisa que eu queria nesse script, é pra ele não fechar quando for abrir outro. E não abrir um só, abrir varias cópias em pontos randomicos.

c = MsgBox("You choosed no", , "Huray")

Nesse aí, eu queria que ele fechasse todas as cópias