Серый форум — VBScript: Добавление записи в реестр в зависимости от переменной

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Rom5) — Thu, 20 Sep 2012 11:17:02 +0000

Правильнее - скрипт запускать от имени админской у/з.
Конечно, можно и предварительно с командной строки (запущенной от имени администратора) переписать права на ветку - консольная утилита subinacl.exe (на микрософте).

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (alexii) — Thu, 20 Sep 2012 05:50:28 +0000

Бродяга пишет:

В этой ветви реестра "HKEY_LOCAL_MACHINE" нет прав на запись у пользователя.

И не должно быть.

Бродяга пишет:

Теперь новый вопрос, как повысить права у скрипта???

Это не вопрос повышения прав.

Бродяга, в Вашем коде нет 39 строки.

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Thu, 20 Sep 2012 05:37:52 +0000

---------------------------
Windows Script Host
---------------------------
Сценарий: R:\Проекты\VPN\v 1.0\77.vbs
Строка: 39
Символ: 4
Ошибка: Неверная ссылка на корень в разделе реестра "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent\AssumeUDPEncapsulationContextOnSendRule".
Код: 80070005
Источник: WshShell.RegWrite

---------------------------
ОК
---------------------------

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Thu, 20 Sep 2012 05:29:24 +0000

Разобрался наконец!
В этой ветви реестра "HKEY_LOCAL_MACHINE" нет прав на запись у пользователя.

Теперь новый вопрос, как повысить права у скрипта???

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (alexii) — Thu, 20 Sep 2012 05:20:34 +0000

Код на форуме оформляется тэгом «code». Я поправил Ваш пост.

Бродяга пишет:

Говорит что неправильная ветка, хотя ветка 100% правильна

Приведите точное сообщение об ошибке (нажмите Ctrl-C в окне сообщения об ошибке).

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Thu, 20 Sep 2012 04:48:50 +0000

Set Sh = CreateObject("WScript.Shell")
key =  "HKEY_LOCAL_MACHINE\"
Sh.RegWrite key & "SYSTEM\CurrentControlSet\Services\PolicyAgent\", "AssumeUDPEncapsulationContextOnSendRule"
Sh.RegWrite key & "SYSTEM\CurrentControlSet\Services\PolicyAgent\AssumeUDPEncapsulationContextOnSendRule", 00000002, "REG_DWORD"
WScript.Echo Sh.RegRead(key & "SYSTEM\CurrentControlSet\Services\PolicyAgent\")
WScript.Echo Sh.RegRead(key & "SYSTEM\CurrentControlSet\Services\PolicyAgent\AssumeUDPEncapsulationContextOnSendRule")
Sh.RegDelete key & "SYSTEM\CurrentControlSet\Services\PolicyAgent\"

Говорит что неправильная ветка, хотя ветка 100% правильна

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (alexii) — Wed, 19 Sep 2012 15:41:35 +0000

Рассказывайте, как пробуете, приводите Ваш код. Пишите, что не выходит, какие ошибки появляются. И т.п.

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Wed, 19 Sep 2012 12:41:05 +0000

Пробую уже второй день! Нечего не выходит!

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (alexii) — Wed, 19 Sep 2012 12:16:00 +0000

А когда же учиться?

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Wed, 19 Sep 2012 12:04:55 +0000

alexii пишет:

Бродяга пишет:
Мда, помощь!!!!
«Халява, сэр!»

Ты в прошлый раз помог, не откажи и сейчас!

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (alexii) — Wed, 19 Sep 2012 12:01:18 +0000

Бродяга пишет:

Мда, помощь!!!!

«Халява, сэр!»

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Wed, 19 Sep 2012 11:24:45 +0000

Мда, помощь!!!!

Re: VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Rom5) — Wed, 19 Sep 2012 09:51:30 +0000

Бродяга пишет:

Запись в реестр
...

Берете со статьи Рецепты WMI: работа с реестром Windows примеры, тестите отдельно, а потом вставляйте в свои конструкции "case ....".

VBScript: Добавление записи в реестр в зависимости от переменной

null@example.com (Бродяга) — Wed, 19 Sep 2012 07:17:11 +0000

Дробрый день.
Есть такая проблема, есть скрипт VBS который в зависимости от типа ОС запускает установку определённого файла.
Надо в этот скрипт вставить функцию записи в реестр в зависимости от типа ОС.

Сам скрипт:

Option Explicit

Dim strShare
Dim strComputer
Dim objFSO

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim strCommandLine
Dim lngProcessID

strComputer = "."
strShare   = objFSO.GetParentFolderName(WScript.ScriptFullName)

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.InstancesOf("Win32_OperatingSystem")

For Each objSWbemObjectEx In collSWbemObjectSet
    With objSWbemObjectEx
        Select Case .Version
            Case "5.1.2600"             ' Windows XP X86
                strCommandLine = strShare & "\vpn\77\Win_XP\x86\VPN_77.exe"
            Case "5.2.3790"             ' Windows XP X64 (& Windows Server 2003)
                strCommandLine = strShare & "\vpn\77\Win_XP\x86\VPN_77.exe"
            Case "6.1.7600", "6.1.7601" ' Windows 7 (& Windows Server 2008 R2)
                Select Case .OSArchitecture
                    Case "32-bit"       ' X86
                    strCommandLine = strShare & "\vpn\77\Win_XP\x86\VPN_77.exe"
                    Case "64-bit"       ' X64
                    strCommandLine = strShare & "\vpn\77\Win_XP\x86\VPN_77.exe"
                End Select
            Case Else
                ' Nothing to do
        End Select
    End With
Next


If Not IsEmpty(strCommandLine) Then
    If objSWbemServicesEx.Get("Win32_Process").Create("""" & strCommandLine & """", Empty, Nothing, lngProcessID) = 0 Then
    Else
    End If
End If

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0

Запись в реестр для XP

REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\IPSec]
"AssumeUDPEncapsulationContextOnSendRule"=dword:00000002

Запись в реестр для 7

REGEDIT4
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\PolicyAgent]
"AssumeUDPEncapsulationContextOnSendRule"=dword:00000002

Зарание огромное спасибо, т.к. спасли от рутинной работы.