[архив] Нужна помощь в написании BAT | CMD | VBS

amel27 · Отправлено: **08:59, 13-11-2008** | #**439**

Liveofan, тогда на всякий случай функция удаления с подключами на VBS

Код:

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS         = &H80000003

' Внимание! Скрипт удаляет всё "Избранное" Internet Explorer
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\MenuOrder\Favorites"

Call DeleteRegEntry(objReg, HKEY_CURRENT_USER, sPath)

Function DeleteRegEntry(objReg, sHive, strEnumPath)
    Dim subkey, arrSubKeys

    objReg.EnumKey sHive, strEnumPath, arrSubKeys
    If IsArray(arrSubKeys) Then
        For Each subkey In arrSubKeys
            Call DeleteRegEntry(objReg, sHive, strEnumPath &"\"& subkey)
        Next
    End If

    Call objReg.DeleteKey(sHive, strEnumPath)
End Function