如何在64位注册表上写？

Question

好吧，我想在

上创建一个注册表项

“HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ WINLOGON \”，我有这段代码：

    Sub RegKeySave(ByVal i_RegKey As String,
           ByVal i_Value As String,
  Optional i_Type As String = "REG_SZ")
    Dim myWS As Object

    'access Windows scripting
    myWS = CreateObject("WScript.Shell")
    'write registry key
    myWS.RegWrite(i_RegKey, i_Value, i_Type)

End Sub

在HKEY_LOCAL_MACHINE \ SOFTWARE \ WOW6432Node \ Microsoft \ Windows NT \ CurrentVersion \ WINLOGON上创建的问题。有人可以帮助我。