Quantcast
Channel: VBForums - ASP, VB Script
Viewing all articles
Browse latest Browse all 699

registry readout W7-64 using VBS-VBA

$
0
0
Since long time I use such type of code to read out the registry of Windows using script in my application:

Code:

Dim myShell

Set myShell = CreateObject("WScript.Shell")

'Processor  name
a1 = myShell.RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString")
'Windows release
b2 = myShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
'Windows Service pack
c3 = myShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CSDVersion")
'Serial number of Windows
d4 = myShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductId")
'Computer name
e5 = myShell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\ComputerName")

Now I face problem updating the values c3 and d4 meanwhile I can read the Others.
The only difference between the past application and this is the operating system Win7 64 bit instead of Win7 32 as previous running machine.
If I'm going to see the registry I can see them and also there is no restriction about authorization of the user.

Is there anyone capable to explaining me the reason of this behaviour?
is there any restriction for Win7 64?

pigroplc

Viewing all articles
Browse latest Browse all 699

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>