tzarak
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
> YikxX >> Так такой скрипт уже у Симпликса в его MassStor.exe есть или вы что-то новое придумали? Кстати, "прервана" пишется с одной Н.
YikxX, а можно, пожалуйста ссылку на его скрипт? Кстати, сравнить скрипты Вы можете сами. Но, предполагаю, что разница будет только в манере написания. Принцип, Вы сами понимаете, наверняка один и тот же. Всего-то требуется отредактировать 5 файликов. А на счет синтаксиса... Ну что Вам тут сказать?! Можно, конечно, начать с того, что слово "молчел" нельзя отнести даже к жаргонизмам, а закончить длиннющей лекцией по ассиметричному дуализму языкового знака Фердинанда Де-Соссюра... Но... это будет, так же как и в Вашем случае, оффтопом. По сему, предлагаю не заостряться на АшиПках и оЧеПятках. 
А насчет паранойи - на десяток честных писарей всегда найдется один с фигой за спиной. И Вы это тоже отлично понимаете. К чему тогда был Ваш вопрос?!
Добавлено:
> YikxX >>REG LOAD/IMPORT/UNLOAD все делают намного проще.
Ниже приведен кусок моего скрипта. Как Вы думаете, YikxX, что он делает? лоад-крейткей-унлоад...
Const HKEY_LOCAL_MACHINE = &H80000002
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
Set objRegExp = CreateObject("VBScript.RegExp") ' Подключаем HIV в реестр для обработки:
ImportHive = ("REG LOAD " & "HKLM\111\ " & """" & FolderName_Souce & """" & "\" & "SETUPREG.HIV")
Set objShell= Createobject ("Wscript.Shell")
ret=objShell.Run (ImportHive, 0, True) '1 - окно будет видимым, True - ожидать завершения, в res будет Errorlevel
Set objShell=Nothing
TempCounter = MovingMassiveCounter_1 - 1
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
While TempCounter >=0
strKeyPath = "111\ControlSet001\Services\" & SCSIDescriptionMassive(TempCounter,2)
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 'Создали вкладку с именем драйвера
strKeyPath = "111\ControlSet001\Services\" & SCSIDescriptionMassive(TempCounter,2) & "\" & "Parameters"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "111\ControlSet001\Services\" & SCSIDescriptionMassive(TempCounter,2) & "\" & "Parameters" & "\" & "PnpInterface"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
strKeyPath = "111\ControlSet001\Services\" & SCSIDescriptionMassive(TempCounter,2) & "\" & "Parameters" & "\" & "PnpInterface"
strValueName = "5"
strValue = "00000001"
oReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
TempCounter = TempCounter -1
Wend
Set objRegExp = CreateObject("VBScript.RegExp") ' Экспортируем реестр в HIV после обработки:
ExportHive = ("REG UNLOAD " & "HKLM\111 ")
Set objShell= Createobject ("Wscript.Shell")
ret=objShell.Run (ExportHive, 0, True) '1 - окно будет видимым, True - ожидать завершения, в res будет Errorlevel
Set objShell=Nothing
Set filesys = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile (Folder & "\" &"SETUPREG.HIV.LOG" ), True |
Ну или модем в конце концов.
