Denis_Kokyev

Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Вот хотел про что ещё спросить. Уже очень давно я хотел найти способ вносить изменения именно в ветку рееста с уникальным SID. Мне подсказали тулзу psgetsid.exe, которая показывает этот самый текущий SID. Теперь вроде бы моя мечта осуществилась, вот в принципе код, с помощью которого можно это осуществлять (может кому то это пригодится): Код: ;RunWait ( @Comspec & ' /C psgetsid.exe > 1.cfg', '', @SW_HIDE ) RunWait ( @Comspec & ' /C GetSID.bat', '', @SW_HIDE ) Global $defaultbrowser, $file, $string1, $string2, $string3, $string4, $string5, $string6, $sid, $line, $sum1, $sum2, $sum3, $sum4, $sum5 $file = FileOpen("sid.cfg", 0) $string1="HKEY_USERS\" $string2="\Software\Microsoft\Internet Explorer\Desktop\Components" $string3="\Software\Microsoft\Internet Explorer\Main" $string4="\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete" $string5="\Software\Microsoft\Windows\CurrentVersion\Ext\Stats\{8856F961-340A-11D0-A96B-00C04FD705A2}\iexplore" $string6="\Software\Microsoft\Windows\CurrentVersion\Ext\Stats\{D27CDB6E-AE6D-11CF-96B8-444553540000}\iexplore" If $file = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf $line= FileReadLine($file, 1) $sid= StringTrimRight($line, 2) $sum1= $string1 & $sid & $string2 $sum2= $string1 & $sid & $string3 $sum3= $string1 & $sid & $string4 $sum4= $string1 & $sid & $string5 $sum5= $string1 & $sid & $string6 RegWrite($sum1,'GeneralFlags',"REG_DWORD",0x00000000) RegWrite($sum2,'Use FormSuggest',"REG_SZ",'no') RegWrite($sum2,'FormSuggest Passwords',"REG_SZ",'no') RegWrite($sum3,'AutoSuggest',"REG_SZ",'no') RegWrite($sum4,'Count',"REG_DWORD",0x0000016a) RegWrite($sum4,'Time',"REG_BINARY","d6070c0003000d000a00240038003c03") RegWrite($sum5,'Count',"REG_DWORD",0x00000165) RegWrite($sum5,'Time',"REG_BINARY","d6070c0003000d000a00240038005b03") FileClose($file) | Всё конечно работает, но как то не изящно - создается текстовой файл, оттуда считывается... Как в рекламе - "не айс!". Хотелось бы, чтоб переменной $line сразу бы присваивалось бы значение SID Вот такой строкой из командного файла, можно получить SID в переменной %%a: for /f "usebackq tokens=*" %%a in (`"psgetsid %username% | find "S-""`) do echo %%a как это в AutoIt прикрутить - ума не приложу!
---------- Можно ответить на любой вопрос, если вопрос задан правильно. Платон |
|