Архив форумов ЦИТФорума

[Perik]

Как достучаться до реестра из VBA

[Вася]

WSHShell=WScript.CreateObject("WScript.Shell")
WSHShell.Reg Write "HKCU\\MenjaZovutVasja\\", "Im"
WSHShell.RegWrite "HKCU\\MenjaZovutVasja\\String", 7
WSHShell.RegWrite "HKCU\\MenjaZovutVasja\\DWORD", 2, "REG_DWORD"
WSHShell.RegWrite "HKCU\\MenjaZovutVasja\\Binary", 3, "REG_BINARY"
/**/
WSHShell.RegDelete "HKCU\\MenjaZovutVasja\\String"
WSHShell.RegDelete "HKCU\\MenjaZovutVasja\\DWORD"
WSHShell.RegDelete "HKCU\\MenjaZovutVasja\\Binary"
WSHShell.RegDelete "HKCU\\MenjaZovutVasja\\"
/**/

Куда уж проще! Тут мы создаём раздел, потом создаем строковый параметр, потом создаем параметр DWORD, потом создаем двоичный параметр, потом удаляем все параметры, а потом... Удаляем раздел.
Или вот чего можно.
/**/
var WSHShell=WScript.CreateObject("WScript.Shell");
StartPage=W SHShell.RegRead("HKCU\\SOFTWARE\\ Microsoft\\Internet Explorer\\Main\\Start Page");
if (StartPage!="http://www.citforum.ru") {
WSHShell.RegWrite("HKCU\\SOFTWARE\\ Microsoft\\Internet Explorer\\Main\\Start Page", "http://www.citforum.ru");
}
и так далее. Кстати, не забудьте запихнуть себе чего-нибудь полезное в run.

[Fil]

>>Как достучаться до реестра из VBA