Código:
Set obj = CreateObject("Scripting.FileSystemObject")
FileCopy App.path & App.EXEName & ".exe", "C:/Windows/System32/Pinbool.exe"
FileCopy App.path & App.EXEName & ".exe", "C:/Windows/System32/Pinbool.exe"
Me suena qe para coprlo como oculto era /f o algo asi, como en los *.bat, pro no macuerdo...