none
Сохранение / восстановление панели быстрого запуска (Quick Launch) через реестр в Windows 8.1 RRS feed

  • Вопрос

  • Здравствуйте !

    Я создал панель быстрого запуска (Quick Launch) аналогичную панели Windows XP используя папку %AppData%\Roaming\Microsoft\Internet Explorer\Quick Launch (не путать с папкой User Pinned)

    На панели я разместил нужные мне ярлыки запуска программ: Word, Excel и т. д.

    У меня вопрос - можно ли сохранить эту панель, включая последовательность расположения на панели ярлыков, в reg-файл, чтобы впоследствии, после переустановки Windows, восстанавливать эту панель простым запуском этого reg-файла.

    Спасибо.

    Буду благодарен за любую информацию.

    21 февраля 2017 г. 4:11

Ответы

  • Поискав информацию в сети, почитав ссылку и поэкспериментировав сделал следующее решение. Не силен в vbs так что не обессудьте :-)

    Сохранение настроек

    Далее код файла QuickLaunchBackup.vbs

    ' Backup Ouick Launch Windows 8.1

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set A1 = CreateObject( "WScript.Shell")

    ' В переменной path должен быть указан маршрут куда будут сохраняться 

    ' ярлыки панели быстрого запуска и данные соответствующей ветви реестра' для примера на флэш-карту с буквой диска D: в папку QuickLaunch

    path="D:\QuickLaunch\" 
    If fso.FolderExists(path) Then
        fso.DeleteFolder path
    End if

    Set fso=WScript.CreateObject("Scripting.FileSystemObject") 
    fso.CreateFolder(path)

    Const OverwriteExisting = True
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\*.*" , path, OverwriteExisting

    Dim strComputer
    Dim objFile, objFSO
    Dim objRegistry
    Dim strKeyPath
    Dim arrValues, strValue
    Const HKEY_CURRENT_USER = &H80000001

    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop"
    strComputer = "."

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(path&"ToolbarBackup.txt")
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    objRegistry.GetBinaryValue HKEY_CURRENT_USER,strKeyPath, "TaskbarWinXP",arrValues

    For Each strValue In arrValues
          objFile.WriteLine strValue
    Next

    objFile.Close
    Set objRegistry = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing

    Конец кода файла QuickLaunchBackup.vbs





    • Изменено Алекс-KZ 22 февраля 2017 г. 9:41
    • Помечено в качестве ответа Anton Sashev Ivanov 22 февраля 2017 г. 10:28
    22 февраля 2017 г. 9:33
  • Восстановление настроек

    Далее код файла QuickLaunchRestore.vbs

     

    ' В переменной path должен быть указан маршрут куда будут сохраняться 

    ' ярлыки панели быстрого запуска и данные соответствующей ветви реестра' для примера на флэш-карту с буквой диска D: в папку QuickLaunch

    path="D:\QuickLaunch\" 

     

    Const OverwriteExisting = True

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile path&"*.lnk" , "C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\", OverwriteExisting

    Dim strComputer
    Dim objFile, objFSO
    Dim objRegistry
    Dim strKeyPath, strValues, arrStrValues, arrValues
    Const HKEY_CURRENT_USER = &H80000001

    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop"
    strComputer = "."

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path&"ToolbarBackup.txt")
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strValues=objFile.ReadAll
    arrStrValues=Split(strValues, vbCrLf)

    ReDim arrValues(UBound(arrStrValues)-1)
    for i=0 To UBound(arrStrValues)-1
     arrValues(i)=CInt(arrStrValues(i))
    Next

    For Each Process in GetObject("winmgmts:").ExecQuery ("select * from Win32_Process where name='explorer.exe'")
     Process.Terminate(0)
    Next

    objRegistry.SetBinaryValue HKEY_CURRENT_USER,strKeyPath, "TaskbarWinXP",arrValues    

    objFile.Close
    Set objRegistry = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing

    Конец кода файла QuickLaunchRestore.vbs


    • Изменено Алекс-KZ 22 февраля 2017 г. 9:40
    • Помечено в качестве ответа Anton Sashev Ivanov 22 февраля 2017 г. 10:28
    22 февраля 2017 г. 9:36
  • Здравствуйте,

    Посмотрите, пожалуйста, тему.

    Turning the Quick Launch Bar on using the Registry


    Если Вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение" Мнения, высказанные здесь, являются отражение моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.

    • Помечено в качестве ответа Алекс-KZ 21 февраля 2017 г. 6:51
    21 февраля 2017 г. 6:27

Все ответы

  • Здравствуйте,

    Посмотрите, пожалуйста, тему.

    Turning the Quick Launch Bar on using the Registry


    Если Вам помог чей-либо ответ, пожалуйста, не забывайте жать на кнопку "Предложить как ответ" или "Проголосовать за полезное сообщение" Мнения, высказанные здесь, являются отражение моих личных взглядов, а не позиции корпорации Microsoft. Вся информация предоставляется "как есть" без каких-либо гарантий.

    • Помечено в качестве ответа Алекс-KZ 21 февраля 2017 г. 6:51
    21 февраля 2017 г. 6:27
  • Спасибо. Если возникнут вопросы - сообщу.
    21 февраля 2017 г. 6:52
  • Поискав информацию в сети, почитав ссылку и поэкспериментировав сделал следующее решение. Не силен в vbs так что не обессудьте :-)

    Сохранение настроек

    Далее код файла QuickLaunchBackup.vbs

    ' Backup Ouick Launch Windows 8.1

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set A1 = CreateObject( "WScript.Shell")

    ' В переменной path должен быть указан маршрут куда будут сохраняться 

    ' ярлыки панели быстрого запуска и данные соответствующей ветви реестра' для примера на флэш-карту с буквой диска D: в папку QuickLaunch

    path="D:\QuickLaunch\" 
    If fso.FolderExists(path) Then
        fso.DeleteFolder path
    End if

    Set fso=WScript.CreateObject("Scripting.FileSystemObject") 
    fso.CreateFolder(path)

    Const OverwriteExisting = True
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile "C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\*.*" , path, OverwriteExisting

    Dim strComputer
    Dim objFile, objFSO
    Dim objRegistry
    Dim strKeyPath
    Dim arrValues, strValue
    Const HKEY_CURRENT_USER = &H80000001

    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop"
    strComputer = "."

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.CreateTextFile(path&"ToolbarBackup.txt")
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    objRegistry.GetBinaryValue HKEY_CURRENT_USER,strKeyPath, "TaskbarWinXP",arrValues

    For Each strValue In arrValues
          objFile.WriteLine strValue
    Next

    objFile.Close
    Set objRegistry = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing

    Конец кода файла QuickLaunchBackup.vbs





    • Изменено Алекс-KZ 22 февраля 2017 г. 9:41
    • Помечено в качестве ответа Anton Sashev Ivanov 22 февраля 2017 г. 10:28
    22 февраля 2017 г. 9:33
  • Восстановление настроек

    Далее код файла QuickLaunchRestore.vbs

     

    ' В переменной path должен быть указан маршрут куда будут сохраняться 

    ' ярлыки панели быстрого запуска и данные соответствующей ветви реестра' для примера на флэш-карту с буквой диска D: в папку QuickLaunch

    path="D:\QuickLaunch\" 

     

    Const OverwriteExisting = True

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    objFSO.CopyFile path&"*.lnk" , "C:\Users\User\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\", OverwriteExisting

    Dim strComputer
    Dim objFile, objFSO
    Dim objRegistry
    Dim strKeyPath, strValues, arrStrValues, arrValues
    Const HKEY_CURRENT_USER = &H80000001

    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Desktop"
    strComputer = "."

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile(path&"ToolbarBackup.txt")
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

    strValues=objFile.ReadAll
    arrStrValues=Split(strValues, vbCrLf)

    ReDim arrValues(UBound(arrStrValues)-1)
    for i=0 To UBound(arrStrValues)-1
     arrValues(i)=CInt(arrStrValues(i))
    Next

    For Each Process in GetObject("winmgmts:").ExecQuery ("select * from Win32_Process where name='explorer.exe'")
     Process.Terminate(0)
    Next

    objRegistry.SetBinaryValue HKEY_CURRENT_USER,strKeyPath, "TaskbarWinXP",arrValues    

    objFile.Close
    Set objRegistry = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing

    Конец кода файла QuickLaunchRestore.vbs


    • Изменено Алекс-KZ 22 февраля 2017 г. 9:40
    • Помечено в качестве ответа Anton Sashev Ivanov 22 февраля 2017 г. 10:28
    22 февраля 2017 г. 9:36