2014-09-10 2 views
3

У меня есть VBScript, который запускает REG-файл (я это сделать так, чтобы пользователь не могу видеть это работает)сценариев с использованием auturn

Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "regedit /s C:\Users\John\Desktop\OpenPorts.reg" ,1 ,True 
Set WshShell = Nothing 

, который затем запускает файл .reg ниже

Windows Registry Editor Version 5.00 
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR] 
"Start" == dword:00000003 

Можно ли объединить этот процесс в 1 VBScript, который внесет изменения без использования .reg-файла?

ответ

1

Это должно работать:

Dim WshShell 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\services\USBSTOR\Start", 3, "REG_DWORD" 
+0

Дает мне ошибку. Линия: 3 Char: 1 Ошибка: недопустимый корень в разделе реестра «HKLM \ SYSTEM | CurrentControlSet \ services \ USBSTOR \ Start». Код: 80070005 Источник: WshShell.RegWrite – Katler

+0

Хорошо, получилось, это проблема с правом доступа. На данный момент у меня нет решения. Но если вы можете запустить свой скрипт как администратор, он должен работать. Интересный вопрос в любом случае, я посмотрю на него. Если я найду способ получить права на скрипт, я отправлю сюда. Как часто, это не так тривиально, как выглядит сначала :) Прости, что теперь я не могу сделать лучше. – Jesus

+0

Я нашел [это] (http://www.winhelponline.com/articles/185/1/VBScripts-and-UAC-elevation.html) Я протестировал «метод 1», и это сработало для меня. Я надеюсь, что это будет для вас :) – Jesus

0

Это должно быть возможно, i'v никогда не проверял, но говорит, что это MSDN нормально, так что :) Вот некоторые документ с небольшим количеством образца: http://msdn.microsoft.com/en-us/library/yfdfhz1b%28v=vs.84%29.aspx

+0

Я проверил это, но не помогло. Как я уже сказал, я новичок в написании сценариев, поэтому не думаю, что я сделал это правильно. Также кажется, что это создать ключ реестра, прочитать его или удалить, чтобы он не изменил его значение. – Katler

Смежные вопросы