none
Добавление в реестр значений из reg файла RRS feed

  • Вопрос

  • Здравствуйте. Помогите пожалуйста со скриптом.

    Есть такой скрипт:

    Const HKEY_CURRENT_USER = &H80000001

    sComputer = "."
    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _
    & sComputer & "\root\default:StdRegProv")

    sPath = "Software\Microsoft\Office\15.0\Outlook"
    DeleteRegistryKey HKEY_CURRENT_USER, sPath

    Sub DeleteRegistryKey(ByVal sHive, ByVal sKey)
    Dim aSubKeys, sSubKey, iRC
    On Error Resume Next
    iRC = oReg.EnumKey(sHive, sKey, aSubKeys)
    If iRC = 0 And IsArray(aSubKeys) Then
    For Each sSubKey In aSubKeys
    If Err.Number <> 0 Then
    Err.Clear
    Exit Sub
    End If
    DeleteRegistryKey sHive, sKey & "\" & sSubKey
    Next
    End If
    oReg.DeleteKey sHive, sKey
    End Sub

    который удаляет соответствующий раздел реестра, включая подразделы.

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

    Буду очень признателен за помощь!

    25 октября 2012 г. 9:54

Ответы

Все ответы