Visual Basic :: NT Server Registry/Workstation Registry Access

How Do I Get A List Of The Registry Keys In A Registry Folder
Hi All,

I am trying to get a list of the registry keys in a specific registry folder so that a user can select a profile to use and the settings be loaded from the respective key.

Eg. The folder:

HKEY_CURRENT_USERSoftwareORCFT

contains the following registry keys:

Gareth
James
Rob
Ian

I need to return the name of each of these keys in a listbox in my app called Combo_User_Profile.

I know how to read and write the registry keys but i just cant figure out how to do this so any help would be appreciated. I have googled and searched this forum but cant find anything related.

Thanks,
Gareth

How Can I Read From A Server Registry
Hi, i have an application that savesetting in a server registry when i configure it. I installed the application y other machine, and i need to read from that registry to validate some security items.

Can i do that?

Registry And Terminal Server...
Here's the problem...I have to write an activation app that installs a couple of registry keys on an app server. The program that is being activated is using the GetSetting() function to look for the keys, so they will need to be under HKEY_CURRENT_USERSoftware..., but I need the activation to apply to every user that logs on to the machine.

I found this article on MSDN, http://www.microsoft.com/msj/default...298/newnav.htm
which outlines some steps to take in order to make the settings apply to every user, but it doesn't seem to work for me. Has anyone done something similar to this before?

P.S. - If I could, I would change the app being activated to look under HKEY_LOCAL_MACHINE, but I didn't write it .

Registry And Win2k Advanced Server
All,

I created a registry component about a year or two ago and it has worked fine with win9x, win NT workstation, win NT server, and win 2k pro. Just installed it on Windows 2k Advanced server and it would not work.

The component uses all of the standard API for creating Keys and values, such as "RegCreateKeyEx" and "RegSetValueEx".

Anyone have any suggestions?

Dave S

[Edited by schdp on 11-29-2000 at 10:47 AM]

Reading A Registry Key From The Windows Registry
How do I go about reading the info held in a registry key using VB and input it into a text box?
Thanks,
- Gabe
What are the dangerous of this? If any...

NEWBIe Vs. The Registry - Registry Wins!
hi. i'm new to vb and was tinkering with the registry that tracks exe files with one of the vb program posted on this site and messed up the path. now i can't run any exe file but still have access to my VB program. i've tried using the program here that helps with writing and saving strings to the registry and having a difficult time to get it to work. this is the path in the registry that i messed up on:

HKEY_CLASSES_ROOTexefileshellcommand

the program called to change the default value to add a tracking program. all i wanna do now is change it back to the default which is:

"%1"%*

how can i do this using my vb program? and can it be done easily? i would greatly appreciate any feedbacks and please help me soon before i pull out all my hair!

Writing To Registry And Deleting Registry
Hi Fellow Coders how can i use VB 6 to Write to the Registry and delete from the Registry whats the code i need?

Thanks Tom

Is The A Way To Access The Registry
from asp page using maybe an aciveX?
if yes then which activeX and how or where can i read how to use it?
thanks
peleg

Registry Access Right
Hello,

I want to create a key in the Windows registry that will be readable for everyone and writeable only for administrators and maybe also for some group GROUP. How do I do this?

Thanks

VB, Access, & The Registry
I am trying to use the registry to connect to my Access database which could be anywhere within a network.

Right now I'm just confused and have no idea where to
begin.

Any suggestion at all would be greatly appreciated.....

Registry Access
is there anyway of writing to the registry in windows2000 and NT4 without the user getting a message pop up and with out bing logged on as an admin??

Registry Access
If my program needs to write some values to the registry but registry editing has been disabled is there any way around it? Its the first network I've seen that I can't write to the registry through vb, ussually just regedit is disabled. Any help is appreciated.

VB, Access & Registry
I am trying to use the registry to connect to my Access database which could be anywhere within a network.

Right now I'm just confused and have no idea where to
begin.

Any suggestion at all would be greatly appreciated.....

Registry Access Thru VB
Hi All

Can somebody give me hints/ commands on how to make entries in Windows
Registry and access them programatically thru VB codes.

Thanks

Rajiv Kumar

Kullu - Himachal Pradesh - India

EVb + Registry Access
When we are using the REgsetValueEx in embedded Vb for REG_DWORd value it is not Writing properly. Ie if u write 1 it will shown in pocket PC as 49 and 0 as 48.

Any one can find a solution for this.

Regards,
Satheesh Kumarr C

Registry Access
Hi all,

Is there any way to register a Dll file with VB coding without having administrator priviladges.

Urgent!!

Thanks,

Dulika

How To Access Registry
Hi,
I am a VB developer and I want to know how to access registry values in windows? how to write to the registry?
I want to access name of some application's installed on the user's pc so how to do that using registry? Or any other way to do that?

Also while installing our application how can we make the user to enter his or his company name and how can we access that name in our application?

Can any body help me?

Thanks,
Ashish

Registry Access
Hi
I want to add new value to a key how can i do it via VB6?
I try to do this:

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Const REG_SZ = 1 ' Unicode nul terminated string
Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Sub Command1_Click()
Dim a As Long
Dim str As String
str = "ttttt"
RegSetValueEx HKEY_LOCAL_MACHINE, "Software3MLee", 0, REG_SZ, str, Len(str)
End Sub

But it don't add the value.

Need Design Help For Registry Access
Here is the basic question:

Should we put registry routines in every program to read/write things, or should we create a utility DLL that encapsulates/hides all this stuff?

We have 1 main program and about 15 other OCX, DLL, and utilities. Our configuration variables are now stored in plain-text INI files. We are out-growing them and want to start using the registry.

One design simply creates a set of read/write functions that we insert into every program. This brute-force approach works, but means we have to hard-code all the keys and sub-keys in every program.

The other design is to create a DLL that does the read/write for us and has some public get/set methods like:

Flow = RegUtil.GetSystemValue(3, "MAX_FLOWRATE")

The DLL would examine the string "MAX_FLOWRATE" and decode that it has to add a path like: ...CoNameCurrentConfigFluidics3MAX_FLOWRATE and return the value for this key.

The advantage to this is we can now change the registry structure and only need to change our DLL.

Note: the other concept - all registry values would be strings. This way we dont have to worry about data types.

Any thoughts?

Remote Registry Access
Hello all

I found this code on the Microsoft website I can get it to connect to a remote computer however it will not return the key value it just says can not open key. However if I run it on the local with the local computers name it works I believe it is a privilege issue however I don’t know how it get around this any suggestions .

Code:
Option Explicit
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_SZ As Long = 1
Private Const ERROR_SUCCESS = 0&

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
(ByVal lpMachineName As String, _
ByVal hKey As Long, _
phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal ulOptions As Long, _
ByVal samDesired As Long, _
phkResult As Long) As Long

Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
Alias "RegQueryValueExA" _
(ByVal hKey As Long, _
ByVal lpValueName As String, _
ByVal lpReserved As Long, _
lpType As Long, _
ByVal lpData As String, _
lpcbData As Long) As Long
Private hRemoteReg As Long
Private Sub Form_Load()
Dim lRet As Long

'Connect to the remote registry
lRet = RegConnectRegistry("\Nick", _
HKEY_LOCAL_MACHINE, _
hRemoteReg)

If (lRet = ERROR_SUCCESS) Then
MsgBox "Successfully connected to remote registry"
Else
MsgBox "Error:" & Err.LastDllError
Unload Me
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim lRet As Long
If hRemoteReg <> 0 Then
lRet = RegCloseKey(hRemoteReg)
End If
End Sub
Private Sub Command1_Click()
Dim lRetVal As Long
Dim hKey As Long
Dim sValue As String

lRetVal = RegOpenKeyEx(hRemoteReg, _
"HARDWAREDESCRIPTIONSystem", 0, KEY_QUERY_VALUE, hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot open key"
Else
sValue = String(255, " ")
lRetVal = RegQueryValueExString(hKey, _
"SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot query value"
Else
MsgBox sValue
End If
lRetVal = RegCloseKey(hKey)
If lRetVal <> ERROR_SUCCESS Then
MsgBox "Cannot close key"
End If
End If
End Sub

Install/Use OCX Without Registry ACCESS
Hi,

By any chance, can i use a *.ocx / activeX dll file in an exe without having registered into system ?

I mean... can i send the whole bunch of files to end user (who does not have registering rights to registry) and make the exe work with local files without being registered..

The feature i am asking in available in thinstall, but it costs me so much that i cannot spend.. any easy means??

thx

Q : A Way To Prevent Other From Access To Registry Key ?
Is There Any Way To Store Data In Registry
So That No One Can Access It .
Note : I Know How To Ecrypt The Data But What I Want Is A Way
To Hide The Registry To Be Accessible Only By My Program !

Thank You

Best Way To Access Registry? [Resovled]
What is the best way to access the registry? I've always used WScript.Shell, but should I use API to access it?

Thanks,
Sir Loin

Registry Access From Services
hi everyone, i have a program that is ran as a service. from this program i run another program using shell. now, the newly ran program has routines that would get data from the registry but it doesnt seem to be able to access the registry i prefer to run my app from a service so that it cannot be closed in the processes tab. is this really how its suppose to be? pls help...

Monitor Registry Access
I know how to use API functions to access/modify the registry, but is there a way to scan the registry for keys/values being accessed/modified at a specific time by other programs? How can you monitor the Windows Registry in VB?

Registry Access:98 2000
based on a code give to me, i added some things to my app 2 make it access the registry(the system is running win98)(access the user name,company and some other information) but after compilation, the app could not get similar information on a win2000 OS!
how will i make the codes access the same info irrespective of the windows the system is running(be it 95,98 ,ME, 2000 or XP)?
or is the path to same type of information in the registry for these OS different?

Access Windows Registry?
how i can access the windows registry with VB codes such as getting to know the current user information etc

Blocking Access To The Registry
I want to prevent the user from doing anything in the registry. I have a timer program running, every second, in the background that shuts down regedit.exe. Will this suffice? Can a shifty-eyed weasel with time on his hands work around this?

Access To Disabled Registry?
Can my application still read from and write to the user's registry even if his/her registry is disabled by admin?

Thanks,

Remote Registry Access
Hello all

I found this code on the Microsoft website I can get it to connect to a remote computer however it will not return the key value it just says can not open key. However if I run it on the local with the local computers name it works I believe it is a privilege issue however I don’t know how it get around this any suggestions .

Option Explicit
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003

Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_ALL_ACCESS = &H3F

Private Const REG_SZ As Long = 1
Private Const ERROR_SUCCESS = 0&

Private Declare Function RegConnectRegistry Lib "advapi32.dll" _
Alias "RegConnectRegistryA" _
    (ByVal lpMachineName As String, _
     ByVal hKey As Long, _
     phkResult As Long) As Long

Private Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal hKey As Long) As Long

Private Declare Function RegOpenKeyEx Lib "advapi32.dll" _
Alias "RegOpenKeyExA" _
    (ByVal hKey As Long, _
     ByVal lpSubKey As String, _
     ByVal ulOptions As Long, _
     ByVal samDesired As Long, _
     phkResult As Long) As Long

Private Declare Function RegQueryValueExString Lib "advapi32.dll" _
Alias "RegQueryValueExA" _
    (ByVal hKey As Long, _
     ByVal lpValueName As String, _
     ByVal lpReserved As Long, _
     lpType As Long, _
     ByVal lpData As String, _
     lpcbData As Long) As Long
Private hRemoteReg As Long
Private Sub Form_Load()
    Dim lRet As Long

    'Connect to the remote registry
    lRet = RegConnectRegistry("\Nick", _
                              HKEY_LOCAL_MACHINE, _
                              hRemoteReg)

    If (lRet = ERROR_SUCCESS) Then
        MsgBox "Successfully connected to remote registry"
    Else
        MsgBox "Error:" & Err.LastDllError
        Unload Me
        Exit Sub
    End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Dim lRet As Long
    If hRemoteReg <> 0 Then
        lRet = RegCloseKey(hRemoteReg)
    End If
End Sub
Private Sub Command1_Click()
    Dim lRetVal As Long
    Dim hKey As Long
    Dim sValue As String

    lRetVal = RegOpenKeyEx(hRemoteReg, _
        "HARDWAREDESCRIPTIONSystem", 0, KEY_QUERY_VALUE, hKey)
    If lRetVal <> ERROR_SUCCESS Then
        MsgBox "Cannot open key"
    Else
        sValue = String(255, " ")
        lRetVal = RegQueryValueExString(hKey, _
            "SystemBIOSVersion", 0&, REG_SZ, sValue, 255)
        If lRetVal <> ERROR_SUCCESS Then
            MsgBox "Cannot query value"
        Else
            MsgBox sValue
        End If
        lRetVal = RegCloseKey(hKey)
        If lRetVal <> ERROR_SUCCESS Then
            MsgBox "Cannot close key"
        End If
    End If
End Sub

Registry Access, All Users, All OS
Is it possible to read the registry with a VB program for all users (maybe even guests?) on all Windows Operating systems?

The OS should see this access to the registry as a system access and not as a user access, right?

SaveSetting and GetSetting does not seem to work this way. And with another API call it seems to fail on some OS's. Does anyone have experience with this and hopefully a solution?

Thanx in advance

Duvadesa.

Registry Access Priviledges
I need to obtain Read access or Enumerate_Subkeys access to the System node under HKEY_LOCAL_MACHINE of the registry. I have no problem doing this on 98' however NT and 2000 seem to have security restriction on this node. I can open this node through Regedit on 2000 but not programmatically. Could someone help me please. I have attempted to open the node with RegOpenKeyEx and RegCreateKey. Help someone is going to beat me!

Add Access Rights In Registry
PLEASE, PLEASE, PLEASE !!!!!!!!

I'm looking for how add or modify access rights to a key in the registry.

Sample : I'd like add the right 'All access' to the key 'HKEY_LOCAL_MACHINESECURITY' for a user...

How can i do ???????

Registry Access Object Library Help
Hi all, i need to find what version of access objects library is installed on the local machine.How could i go about this?

Help much appriated

Registry Access (savesettings, Getsettings)
Hello all,

The little program I'm working on right now needs to have some kind of serial protection. Basically what I'm doing is based on the username there is a specific serial no. that is gererated (using Vignere algorithm --> not really sure of another way to generate a unique serial no. based on the username) --> Open to suggestions on this too.

In any case the question I really need help with is how safe is it to simply store the username and serial no. using the savesettings option. Or is it really necessary (for security or any other reason) to be using the advapi32.dll functions to be doing registry access. --> I'm not to familar with how to use these, so if it's okay to use the savesettings and getsettings options I would rather use that, unless it is encourged not to use that for my purposes.

Thanks.

Requested Registry Access Is Not Allowed.
Hi All,
Is someone can help me to solve this problem. I am using VB6 and trying to display a report using Crystal Report. But, it comes up with an error message as "Requested registry access is not allowed." . I can't understand and I dont know how to locate/solve this problem. Can you help me out. I would appreciate any feedback from you.
Thank in advance.
Tram88

Registry Security Access Rights
I wrote a program that blocks the users computer to the bare minimum, just a desktop with word and the internet,I just change values on the registry from 0 to 1.
There's only one problem, when I try to run the app I get a registry security error, and the only way around it is to change the user's rights to admin.
Is there a way to read and write to the registry without having admin rights?

My program works on both 2000 and XP.

Windows Service + Registry Access
hi everyone... i hope you could help me on this. I'm writing an application and it is set to run as a service. I used VAServices.dll and NTSvc.ocx. it's working perfectly fine now. my problem is that when my app is running as a service, it can't read/write from the registry savesetting and getsetting won't work. i even downloaded a registry class but still it fails. does this mean that services can't modify the registry??? or maybe i need special previleges that can be set thru APIs before my application be granted read/write access to the registry??? vb gurus please help...

Registry Access Restrictions In Win2k
If you have a program on Windows 2000 that uses and modifies the registry, will it be able to do so when logged on as a common or guest user?

Thanks.

Remote Access Key In The Registry For Windows NT 4.0
Does anybody know which key in the registry for Windows NT 4.0 indicates the connection to the Internet using dial-up networking. In Windows 98/95, there is a key, called remoteaccess, to show whether connect to the internet or not.

(Simple) Registry Access Woes
Howdy.

I'm trying to pull a value from the registry.
I've never done any registry messing from VB before, so I'm at a loss as to why this is not working ;

Code:
Option Explicit
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As Any) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const RET_SUCCESS = 0&
Private Const ERROR_MORE_DATA = 234

Private Const REG_SZ = 1
Private Const SYNCIT = &H100000
Private Const KEY_QUERY_VALUE = &H1
Private Const KEY_SET_VALUE = &H2
Private Const KEY_CREATE_SUB_KEY = &H4
Private Const KEY_ENUMERATE_SUB_KEYS = &H8
Private Const KEY_NOTIFY = &H10
Private Const KEY_CREATE_LINK = &H20
Private Const KEY_TOTAL_ACCESS = ((KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCIT))

Public Function RegGetSetting(ByVal Section As String, ByVal strKeyName As String, ByRef bExist As Boolean) As String
Dim lngRet As Long
Dim hKey As Long
Dim nType As Long
Dim nBytes As Long
Dim strgroupname As String * 256
Dim lBytes As Long
lBytes = 24

' Open key
lngRet = RegOpenKeyEx(HKEY_CLASSES_ROOT, Section, 0&, KEY_TOTAL_ACCESS, hKey)
If lngRet = RET_SUCCESS Then
' Using hKey - read for strKeyName
lngRet = RegQueryValueEx(hKey, strKeyName, 0&, REG_SZ, ByVal strgroupname, lBytes)
RegGetSetting = Left(strgroupname, lBytes - 1)
bExist = True
Else
bExist = False
End If
End Function

Private Sub Form_Load()
Dim SubKey As String
Dim bExist As Boolean

SubKey = ".exe"

MsgBox RegGetSetting(SubKey, "Content Type", bExist)
End Sub

I borrowed the code from somwhere and modified it.
I'm trying to get the value of "HKEY_CLASSES_ROOT.exeContent Type".

Any help appreciated

Win2k .. Registry Access Problems
Hi

hmm i upgraded to Win2k and now find a bunch up my programs that accessed the registry just can't anymore. I dont' really know if the Win2k API is the same/similar to Win9x but it has me kinda stuck.. well here is the code i'm using

MODULE

Code:
Public Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long

Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long

Public Declare Function RegQueryValueEx Lib "advapi32.dll" _
Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, lpData _
As Any, lpcbData As Long) As Long

Public Const KEY_QUERY_VALUE = &H1
Public Const HKEY_USERS = &H80000003
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const REG_SZ = 1
Public Const REG_BINARY = 3 '
Public Const REG_DWORD = 4 '
Public Const ERROR_SUCCESS = 0&

REGISTRY ACCESS BIT

Code:
Dim hKey As Long
Dim subkey As String
Dim userkeyname As String
Dim datatype As Long
Dim slength As Long
Dim retval As Long
Dim username As String

subkey = "Identities"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_READ, hKey)
If retval <> 0 Then
Debug.Print "ERROR: Unable to open registry key!"
Exit Sub
End If

userkeyname = Space(255)
slength = 255

retval = RegQueryValueEx(hKey, "Default User ID", 0, datatype, ByVal userkeyname, slength)

If datatype = REG_SZ Then

Call TrimChr0(userkeyname)
EmailPath = "C:WindowsApplication DataIdentities" & userkeyname & "MicrosoftOutlook Express"
Else

MsgBox "Data not in string format. Unable to interpret data."
End If

thanks for any input :-)