[ejik_off]

Проверьте, есть ли данная запись в реестре. »

Такой записи нет

Вот это условие пропускается

Код:

 If Not oFSO.FolderExists(strDestinationPath) Then
            oFSO.CreateFolder(strDestinationPath)

            return = WshShell.Run("xcopy " & chr(34) & strSourcePath & "*" & chr(34) & " "  & chr(34) & strDestinationPath & chr(34) & " /I /E /H /Y")

            set oShellLink = WshShell.CreateShortcut(strDesktop & "\Miranda IM.lnk")

            oShellLink.TargetPath = strDestinationPath & "miranda32.exe"
            oShellLink.IconLocation = strDestinationPath & "miranda32.exe, 0"
            oShellLink.Description = "Miranda IM"
            oShellLink.Save()

            If Not oFSO.FileExists(strAllUsersPrograms & "\Miranda IM.lnk") Then
	       wscript.echo strDesktop & "\Miranda IM.lnk", strAllUsersPrograms & "\Miranda IM.lnk"
               oFSO.CopyFile strDesktop & "\Miranda IM.lnk", strAllUsersPrograms & "\Miranda IM.lnk"
            End If

            If oFSO.FileExists(strAllUsersStartup & "\Miranda IM.lnk") Then
               oFSO.DeleteFile strAllUsersStartup & "\Miranda IM.lnk"
            End If

            If Not oFSO.FileExists(strWindows & "\krb5.ini") Then
               oFSO.CopyFile strCurrentDir & "\krb5.ini", strWindows & "\krb5.ini"
            End If

            If InStr(strWindowsVer, "Windows XP") > 1 Then
               WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\AllowTGTSessionKey", 1, "REG_DWORD"
            Else
               WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos\Parameters\AllowTGTSessionKey", 1, "REG_DWORD"
            End If

            WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Miranda", strDestinationPath & "miranda32.exe", "REG_SZ"
         Else

После Else поставил

Код:

WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Miranda", strDestinationPath & "miranda32.exe", "REG_SZ"

Вышла ошибка, код ошибки 80070005, сдается мне что пользователь не может в эту ветку писать.