مشکل در کار با ریجستری در ویندوز 32 و 64 بیت

[R2du-soft]

سلام دوستان ، متاسفانه بیشتر روش های کار با رجيستری ناقص هستن ، یعنی اینطور که بعضی ها روی ویندوز های 32 بیت عمل میکنه و روی 64 بیت عمل نمیکنه و بلعکس.
این کد روی هر دو ویندوز 64 و 32 عمل میکنه:


Dim ObReg As Object
Dim StrKeyAdress As String
Dim StrValueType As String
Dim StrValue As String




Private Sub Command1_Click()
Set ObReg = CreateObject("wscript.shell")
StrValue = "00000000"
StrValueType = "REG_DWORD"
StrKeyAdress = "HKEY_LOCAL_MACHINE\SOFTWARE\1\NoFolderOptions"
ObReg.RegWrite StrKeyAdress, StrValue, StrValueType
End Sub


اما من یک مشکل اساسی دارم باهاش،اونم اینه که
این کد روی ویندوز 32 بیت کلید رجیستری رو در مسیر:
HKEY_LOCAL_MACHINE\SOFTWARE\1\
و در ویندوز 64 بیت کلید رو در
HKEY_LOCAL_MACHINE\Wow6432Node\1\
میسازه.
من میخوام کلیدم در مسیری که خودم تعیین کردم در هر دو ویندوز ساخته بشه یعنی:
HKEY_LOCAL_MACHINE\SOFTWARE\1\
باید چیکار کنم؟
تمام روش ها رو تست کردم تماما یا مشکل داشتن و یا همینطور که گفتم بودن.
با توابع api هم عینا همین مشکل رو دارم!

[R2du-soft]

دوستان کسی روشی نمیدونه که در ویندوز 64 بیت در مسیر HKEY_LOCAL_MACHINE\SOFTWARE\1\ یک کلید ساخت؟
من از هر روشی میرم در مسیر HKEY_LOCAL_MACHINE\Wow6432Node\1\ میسازه! یعنی یه Wow6432Node اضافه میره!
راهنمایی میخوام عزیزان