Flasher пишет:
А так?
Set objRegistry = _ GetObject("winmgmts:{impersonationLevel=impersonate}\\.\root\default:StdRegProv")
Попробовал. К сожалению не "прокатило", но с мыслью согласен. По идее должно было дать права от того кто запустил.
komr,
1) Всё-таки оставляю за собой право предполагать, что Вы не запустили командную строку с правами администратора.
Я имел в виду это:
2) Переделал скрипт с учётом автоматической проверки прав. К сожалению, сейчас не имею возможности проверить на XP и других системах. Под рукой только Win 10 Pro. И думаю, что наверняка можно проще всё это реализовать.
Option Explicit
Dim objRegistry, strPath, uBinary, strValue01, strValue02
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
If Not IsElevated() Then
RestartElevated()
WScript.Quit
End if
Set objRegistry = _
GetObject("Winmgmts:root\default:StdRegProv")
strPath = "SYSTEM\CurrentControlSet\Control\Keyboard Layout"
uBinary = Array(&H00, &H00, &H00, &H00, &H00, &H00, &H00, &H00, _
&H12, &H00, &H00, &H00, &H00, &H00, &H3B, &H00, _
&H00, &H00, &H3C, &H00, &H00, &H00, &H3D, &H00, _
&H00, &H00, &H3E, &H00, &H00, &H00, &H3F, &H00, _
&H00, &H00, &H40, &H00, &H00, &H00, &H41, &H00, _
&H00, &H00, &H42, &H00, &H00, &H00, &H43, &H00, _
&H00, &H00, &H44, &H00, &H00, &H00, &H57, &H00, _
&H00, &H00, &H58, &H00, &H00, &H00, &H5B, &HE0, _
&H00, &H00, &H38, &H00, &H00, &H00, &H38, &HE0, _
&H00, &H00, &H5C, &HE0, &H00, &H00, &H1D, &HE0, _
&H00, &H00, &H00, &H00)
SetBinaryValue HKEY_LOCAL_MACHINE, strPath, "ScanCode Map", uBinary
strPath = ".DEFAULT\Keyboard Layout\Preload"
strValue01 = "00000409"
strValue02 = "00000419"
SetStringValue HKEY_USERS, strPath, "1", strValue01
SetStringValue HKEY_USERS, strPath, "2", strValue02
Private Sub SetBinaryValue(DefKey, SubKeyName, ValueName, Value)
Dim intRet
intRet = objRegistry.SetBinaryValue(DefKey, SubKeyName, ValueName, Value)
If intRet <> 0 Then
Err.Raise intRet, "Не удалось установить параметр """ & ValueName & """", "SetBinaryValue"
End If
End Sub
'Функция проверки - есть ли у нас повышенные права или нет
Private Function IsElevated()
IsElevated = CreateObject("WScript.Shell").Run("%comspec% /c whoami /all | findstr /I /C:""S-1-16-12288""",0,True) = 0
End Function
'Процедура перезапуска своего же процесса с повышенными правами
Private Sub RestartElevated()
Dim i, strTmp
'Собираем строку параметров запуска на случай если скрипт был запущен с параметрами
For i=0 To WScript.Arguments.Count-1
If InStr(WScript.Arguments(i), " ") > 0 Then
strTmp = strTmp & " """ & WScript.Arguments(i) & """"
Else
strTmp = strTmp & " " & WScript.Arguments(i)
End If
Next
'Запускаем свой же скрипт с повышенными правами
RunElevated WScript.FullName, """" & WScript.ScriptFullName & """" & strTmp, ""
End Sub
'Запуск приложения с повышенными правами
Private Sub RunElevated(strApplication, strArguments, strWorkingDir)
CreateObject("Shell.Application").ShellExecute strApplication, strArguments, strWorkingDir, "runas"
End Sub