Как сделать чтобы vbs копировал сам себя?

[FullCrazy]

Мне нужно чтобы vbs копировал себя в указанную мной директорию, Но при условии того что я не знаю в какой дериктории лежит данный vbs у запускающего его юзера!
Как такое осуществить???? :)

[POS_troi]

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile ".\script.vbs" , ".\newCopyScript.vbs", OverwriteExisting


Так не?

[FullCrazy]

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile ".\script.vbs" , ".\newCopyScript.vbs", OverwriteExisting


Так не?
Я же говорю что не знаю в какой директории находится вбска у человека который её будет запускать!

[POS_troi]

ну вообщето ".\" указывает на текущую директорию

Ща Боб рассудит =)

[SpangeBoB]

Как копировать выше,путь к сприкту:
Wscript.Echo Wscript.ScriptFullName