If Dir(WhS.SpecialFolders("StartUp") & "\destop.lnk") <> "" Then
        Else
        'Dim WshShell As Object 'начало объявлений к созданию ярлыка
        Dim sLinkPath As String
        Dim MyShortcut As Object
        Set WhS = CreateObject("WScript.Shell")
        sLinkPath = WhS.SpecialFolders("StartUp") 'конец объявлений к созданию ярлыка)
        Set MyShortcut = WhS.CreateShortcut(sLinkPath & "\destop.lnk") 'Установка и запись свойств ярлыка
        MyShortcut.TargetPath = WhS.ExpandEnvironmentStrings(WhS.SpecialFolders(16) & "\papka\proga.exe")
        MyShortcut.WorkingDirectory = WhS.ExpandEnvironmentStrings(WhS.SpecialFolders(16) & "\papka")
        MyShortcut.WindowStyle = 4
        MyShortcut.Save
        Set MyShortcut = Nothing
        End If

If SysInfo = "x86" Then
reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga.exe", WhS.SpecialFolders(16) & "\papka\proga.exe"
Else
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\proga.exe", WhS.SpecialFolders(16) & "\papka\proga.exe"
End If

Set WhS = CreateObject("WScript.Shell")
Dim WshProEnv As Object
Set WshProEnv = WhS.Environment("SYSTEM")
Dim SysInfo As String
SysInfo = WshProEnv.Item("PROCESSOR_ARCHITECTURE")
Dim arrByte()   As Byte
Dim reg
Set reg = CreateObject("WScript.Shell")
If SysInfo = "x86" Then
reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\proga.exe", WhS.SpecialFolders(16) & "\papka\proga.exe"
Else
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\proga.exe", WhS.SpecialFolders(16) & "\papka\proga.exe"
End If
Set reg = Nothing