| Вопрос: VBScript создать REG_BINARY в реестре | Добавлено: 10.08.04 05:43 |
Автор вопроса:  AVIV
|
|
Как можно создать бинарное значение в реестре REG_BINARY используя Windows Management Instrumentation (WMI) Registry Provider.
Гвоздь в том, что такое длинное значение не воспринимается. Вот часть .reg файла: [HKEY_LOCAL_MACHINE\SYSTEM\ScaleType\DataType] "Data"=hex:01,f6,99,b0,57,5c,13,80,18,6f,f3,fc,68,83,8e,bf,ca,4a,9c,5e,cc,f9,\ 8e,7c,31,72,ae,28,31,5e,99,0b,9f,a4,89,61,fc,0c,e3,47,50,e3,06,08,f0,55,2b,\ 80,b3,d4,c0,a8,15,36,27,f0,5f,8e,f7,b0,f5,b0,4b,db PS Заносить значение в реестр с помощью подлива этого .reg файла не интересно. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 10.08.04 11:28 |
|
Я знаю писать в реестр можно так
Dim ws Set ws=CreateObject("WScript.Shell" 
ws.RegWrite "Куда пишем","Че пишем" Set ws=Noting |
||
|
Номер ответа: 2 Автор ответа: AVIV Вопросов: 1 Ответов: 1 |
Профиль | | #2 | Добавлено: 11.08.04 03:35 |
|
Ура! Нашли в MSDN решение.
Вот Script: Const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv"
strKeyPath = "SYSTEM\EditType\DataType" strValueName = "  ata"
iValues = Array(&H01,&Hf6,&H99,&Hb0,&H57,&H5c,&H13,&H80,&H18,&H6f,&Hf3,&Hfc,&H68,&H83,&H8e,&Hbf,&Hca,&H4a,&H9c,&H5e,&Hcc,&Hf9,&H8e,&H7c,&H31,&H72,&Hae,&H28,&H31,&H5e,&H99,&H0b,&H9f,&Ha4,&H89,&H61,&Hfc,&H0c,&He3,&H47,&H50,&He3,&H06,&H08,&Hf0,&H55,&H2b,&H80,&Hb3,&Hd4,&Hc0,&Ha8,&H15,&H36,&H27,&Hf0,&H5f,&H8e,&Hf7,&Hb0,&Hf5,&Hb0,&H4b,&Hdb) oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, strValueName,iValues Спасибо откликнувшимся! |
||
Страница: 1 |