Я пытаюсь обновить юридическую подпись на наших компьютерах, используя VBScript. До сих пор я был в состоянии читать значения, но я не могу заставить его писать какие-либо значения. Я не получаю ошибку, когда запускаю скрипт, он просто ничего не меняет. Я делаю это впервые, и у меня ограниченный опыт; Любое понимание будет оценено:

Dim objShell
Dim strMessage, strWelcome, strWinLogon

' Set the string values
strWelcome = "legalnoticecaption"
strMessage = "did this work"
strWinLogon = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\"

' Create the Shell object
Set wshShell = CreateObject("WScript.Shell")

'Display string Values
Wscript.Echo "key to update: " & strWelcome
Wscript.Echo "key value to enter: " & strMessage
Wscript.Echo "Existing key value: " & wshShell.RegRead(strWinLogon & strWelcome)


' the crucial command in this script - rewrite the registry
wshShell.RegWrite strWinLogon & strWelcome, strMessage, "REG_SZ"

' Did it work?
Wscript.Echo "new key value: " & wshShell.RegRead(strWinLogon & strWelcome)

set wshShell = Nothing

ПРИМЕЧАНИЕ: это тестовые значения на данный момент.