For Each Pr in GetObject("winmgmts:").ExecQuery("Select * from Win32_Process Where Name='regedit.exe -m'")
	Pr.Terminate
Next
With CreateObject("WScript.Shell")
	.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey",_
	"HKEY_CURRENT_USER\Software\KMPlayer\KMP2.0\LastPosition","REG_SZ" : .Run "regedit -m"
End With

For Each Pr in GetObject("winmgmts:").ExecQuery("Select * from Win32_Process Where Name='regedit.exe -m'")
	Pr.Terminate
Next
OpenKey = Inputbox("   ВВЕДИТЕ АДРЕС РАЗДЕЛА РЕЕСТРА" & chr(10) & "   !!! Там будьте предельно осторожны !!!")
With CreateObject("WScript.Shell")
	If OpenKey = 1 Then .RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey",_
	OpenKey, "REG_SZ" : .Run "regedit -m"
End With

' Поставляемая часть {

Class classObjects
    Public WSShell
    Public RegExp

    Private Sub Class_Initialize
        Set WSShell = WScript.CreateObject("Wscript.Shell")
        Set RegExp = CreateObject("VBScript.RegExp")
    End Sub

End Class

Function RegJump(Objects, Key, WaitForReturn)
    Objects.RegExp.Pattern = "^HKLM\\"
    Key = Objects.RegExp.Replace(Key, "HKEY_LOCAL_MACHINE\")
    
    Objects.RegExp.Pattern = "^HKCU\\"
    Key = Objects.RegExp.Replace(Key, "HKEY_CURRENT_USER\")
    
    Objects.RegExp.Pattern = "^HKCR\\"
    Key = Objects.RegExp.Replace(Key, "HKEY_CLASSES_ROOT\")
    
    Objects.RegExp.Pattern = "^HKU\\"
    Key = Objects.RegExp.Replace(Key, "HKEY_USERS\")

    Objects.RegExp.Pattern = "^HCC\\"
    Key = Objects.RegExp.Replace(Key, "HKEY_CURRENT_CONFIG\")

    Objects.RegExp.Pattern = "\\\\"
    Key = Objects.RegExp.Replace(Key, "\")
    
    LastKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Lastkey"
    LastValue = Objects.WSShell.RegRead(LastKey)
    
    Objects.RegExp.Pattern = "\\.+"
    HostName = Objects.RegExp.Replace(LastValue, "")
    Key = HostName & "\" & Key
    
    Call Objects.WSShell.RegWrite(LastKey, Key, "REG_SZ")
    RegJump = Objects.WSShell.Run("regedit /m", 1, WaitForReturn)
End Function

' } Поставляемая часть

' Пример {

Sub Main()
    Set Objects = New classObjects
    
    'Чтение первого параметра
    Key = ""
    Set Arguments = WScript.Arguments
    If Arguments.Count > 0 Then
        Key = Arguments(0)
    End If
    If Key = "" Then
        Call MsgBox("Example:" & vbCrLf & WScript.ScriptName & " HKCU\Software\Microsoft", , "Parameter 1 is required")
        Exit Sub
    End If
    
    Call RegJump(Objects, Key, True)
End Sub

Call Main()

' } Пример