VBS: Помогите найти глюк

Set oLastError = CreateObject("WbemScripting.SWbemLastError")
WScript.Echo oLastError.getObjectText_(1)

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