none
JScript удаление сразу ветви реестра RRS feed

Ответы

  • Можно вот так:

     

    Code Snippet

    On Error Resume Next

     

    Const HKEY_CURRENT_USER = &H80000001

     

    Function DeleteRegistryKey(ByVal strHive, ByVal strKey)
      Dim objReg : Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

      Dim arrSubKeys, strSubKey, intReturnCode, strSubKey

     

      intReturnCode = objReg.EnumKey(strHive, strKey, arrSubKeys)

     

      If intReturnCode = 0 And IsArray(arrSubKeys) Then
        For Each strSubKey In arrSubKeys
          DeleteRegistryKey strHive, strKey & "\" & strSubKey
        Next
      End If

     

      objReg.DeleteKey strHive, strKey
    End Sub

     

    DeleteRegistryKey HKEY_LOCAL_USER, "Software\Key"

     

     

    26 ноября 2008 г. 17:48