Enumerate registry keys and change a REG_SZ value

Sounds like a plan!  I can wait if nobody else wants to take a shot.

Anyone else want to give this a try?

Sorry for the delay,My job keeps hitting me with projects that needed to be done yesterday.
Ok,be careful with this. It would be wise to backup the registry before testing.The gui now has inputs for value to search for and the value data to set.You can specify these with the /v switch for valuename and the /d switch for value data. For example

regsearch /q /v Wallpaper /d C:\Clouds.bmp /L C:\logfile.txt

The logfile will now also show the value before and after replacing.Also keep in mind that certain changes might require a logoff or reboot to become effective.


Here is the new Regsearch.vbp file.


'************* ReegSearch.vbp ***********************
Type=Exe
Form=frmMain.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\System32\stdole2.tlb#OLE Automation
Class=cRegSearch; cRegSearch.cls
IconForm="frmMain"
Startup="frmMain"
ExeName32="RegSearch.exe"
Path32="..\..\..\.."
Command32=""
Name="RegSearch"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="SND"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1

[MS Transaction Server]
AutoRefresh=1
'***************** End RegSearch.vbp *********************



Here is the new frmMain.frm file


'**************** frmMain.frm *****************************
VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "Search Registry"
   ClientHeight    =   1890
   ClientLeft      =   1260
   ClientTop       =   2715
   ClientWidth     =   9360
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1890
   ScaleWidth      =   9360
   Begin VB.TextBox txtValData
      Height          =   375
      Left            =   3600
      TabIndex        =   7
      Top             =   720
      Width           =   3135
   End
   Begin VB.TextBox txtValName
      Height          =   375
      Left            =   480
      TabIndex        =   6
      Top             =   720
      Width           =   2655
   End
   Begin VB.CommandButton cmdSearch
      Caption         =   "&Search"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7080
      TabIndex        =   0
      Top             =   720
      Width           =   1695
   End
   Begin VB.Label Label2
      Caption         =   "Value Data to Set :"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3600
      TabIndex        =   9
      Top             =   480
      Width           =   2535
   End
   Begin VB.Label Label1
      Caption         =   "Value Name to Search For :"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   480
      TabIndex        =   8
      Top             =   480
      Width           =   2655
   End
   Begin VB.Label lblOccur
      Caption         =   "0"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   8280
      TabIndex        =   5
      Top             =   120
      Width           =   615
   End
   Begin VB.Label lblProf
      Caption         =   "0"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   5280
      TabIndex        =   4
      Top             =   120
      Width           =   615
   End
   Begin VB.Label lblDsp
      Caption         =   "Occurrences Found :"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   6240
      TabIndex        =   3
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label lblDsp
      Caption         =   "Profiles Scanned :"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   3480
      TabIndex        =   2
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label lblProg
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   1320
      Width           =   8895
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
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
Private Const ERROR_SUCCESS = 0&
Private Const REG_SZ = 1
Private Const REG_DWORD = 4

Dim WithEvents creg As cRegSearch
Attribute creg.VB_VarHelpID = -1
Dim UserProfileList As Collection
Dim CurrentProfile As String, LogFile As String
Dim Silent As Boolean

Public Sub SearchRegistry(SearchHive As ROOT_KEYS, SearchStr As String)
Set creg = New cRegSearch
creg.RootKey = SearchHive
creg.SubKey = ""
creg.SearchFlags = 1
creg.SearchString = SearchStr
CurrentProfile = "Local & Current Logged on User (" & Environ("Username") & ")"
If Silent = False Then lblProf = Val(lblProf) + 1
' search Loaded registry files
creg.DoSearch
Set creg = Nothing

Set creg = New cRegSearch

CurrentProfile = ""

' get list of profiles and put in UserProfileList Collection
Call LoadProfileList
Dim Item As Variant, UserName As String
' loop through collection checking for users ntuser.dat file
For Each Item In UserProfileList
    UserName = Mid$(Item, InStrRev(Item, "\") + 1)
    If Dir(Item & "\ntuser.dat", vbHidden) <> "" Then
        If UserName <> Environ("UserName") Then
            If UserName <> "All Users" Then
                CurrentProfile = UserName
                If Silent = False Then lblProf = Val(lblProf) + 1
                ' load users ntuser.dat file
                Call creg.LoadUsersHive(Item & "\ntuser.dat")
                ' search users loaded hive
                creg.RootKey = HKEY_USERS
                creg.SubKey = "keyLoaded"
                creg.SearchFlags = 1
                creg.SearchString = SearchStr
                creg.DoSearch
                ' unload users loaded hive
                Call creg.UnloadDatFile("keyLoaded")
                       
            End If
        End If
    End If
    DoEvents
Next

Set creg = Nothing

If Silent = False Then
    lblProg = "Search Complete!"
    Dim ViewLog As VbMsgBoxResult
    ViewLog = MsgBox("Process has completed. Would you like to view the log file?", vbExclamation + vbYesNo, "Process Complete!")
    If ViewLog = vbYes Then
        Call Shell("Notepad.exe " & LogFile, vbNormalFocus)
    End If
Else
    Unload Me
End If

End Sub

Private Sub cmdSearch_Click()
If Trim$(txtValName) = "" Then
    MsgBox "No Value to Search for has been specified.", vbCritical, "No Search Value Specified!"
    Unload Me
End If

If Trim$(txtValData) = "" Then
    MsgBox "No Value to Set has been specified.", vbCritical, "No Value Specified!"
    Unload Me
End If
lblProf = 0: lblOccur = 0
Call SearchRegistry(HKEY_ALL, txtValName)
End Sub

Private Sub cReg_SearchFound(ByVal sRootKey As String, ByVal sKey As String, ByVal sValue As Variant, ByVal lFound As FOUND_WHERE)
Dim sTemp As String
Dim sValName As String

sValName = Mid$(sKey, InStrRev(sKey, "\") + 1)

If sValName <> txtValName Then Exit Sub

   Select Case lFound
         Case FOUND_IN_KEY_NAME
              sTemp = "KEY_NAME"
         Case FOUND_IN_VALUE_NAME
              sTemp = "VALUE NAME"
         Case FOUND_IN_VALUE_VALUE
              sTemp = "VALUE VALUE"
   End Select
   
   If Silent = False Then lblOccur = Val(lblOccur) + 1
   
    Dim ff As Integer
    ff = FreeFile
    Open LogFile For Append As #ff
    Print #ff, Trim$(CurrentProfile), "," & sRootKey & "," & sKey & "," & sValue & "," & txtValData
    Close #ff
   
    Dim RegHive As Long
    Select Case sRootKey
        Case "HKEY_CLASSES_ROOT"
            RegHive = &H80000000
        Case "HKEY_CURRENT_USER"
            RegHive = &H80000001
        Case "HKEY_LOCAL_MACHINE"
            RegHive = &H80000002
        Case "HKEY_USERS"
            RegHive = &H80000003
        Case "HKEY_CURRENT_CONFIG"
            RegHive = &H80000005
    End Select
   
If IsNumeric(txtValData) = True Then
    Call SaveDword(RegHive, Left$(sKey, InStrRev(sKey, "\") - 1), txtValName, txtValData)
Else
    Call SaveString(RegHive, Left$(sKey, InStrRev(sKey, "\") - 1), txtValName, txtValData)
End If

End Sub

Private Function SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim keyhand As Long, r As Long
r = RegCreateKey(hKey, strPath, keyhand)
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
r = RegCloseKey(keyhand)
End Function

Private Function SaveDword(ByVal hKey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)
Dim lResult As Long, keyhand As Long, r As Long
r = RegCreateKey(hKey, strPath, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0&, REG_DWORD, lData, 4)
r = RegCloseKey(keyhand)
End Function

Private Sub Form_Load()
Dim arrArgs() As String, i As Integer
Silent = False
' check if app is in root dir
If Right$(App.Path, 1) <> "\" Then
    LogFile = App.Path & "\MyLog.txt"
Else
    LogFile = App.Path & "MyLog.txt"
End If

If Trim$(Command$) <> "" Then
    arrArgs = Split(Command$, " ")
   
    For i = 0 To UBound(arrArgs)
        Select Case arrArgs(i)
            Case "/q", "/Q"
                Silent = True
            Case "/l", "/L"
                LogFile = arrArgs(i + 1)
            Case "/v", "/V"
                txtValName = arrArgs(i + 1)
            Case "/d", "/D"
                txtValData = arrArgs(i + 1)
            Case "/?", "/help", "/HELP"
                Call MsgBox("Command Line Switches:" & vbCrLf & _
                            "/q or /Q  - Quiet Operation. Displays no Dialogs." & _
                             vbCrLf & "/v or /V  - [Value Name] - Value Name to Search For." & _
                             vbCrLf & "/d or /D  - [Value Data] - Value Data to Add." & _
                             vbCrLf & "/l or /L [logfilename] - Specify Log FileName." & _
                             vbCrLf & Space$(35) & "Filename must not contain spaces." & _
                             vbCrLf & Space$(35) & "Example: /L C:\MyLogfile.txt" & vbCrLf & _
                             "/? or /help or /HELP - Displays Help.", vbQuestion, "Help")
        End Select
    Next i
  If Trim$(txtValName) = "" Then
    MsgBox "No Value to Search for has been specified.", vbCritical, "No Search Value Specified!"
    Unload Me
    End
  End If

  If Trim$(txtValData) = "" Then
    MsgBox "No Value to Set has been specified.", vbCritical, "No Value Specified!"
    Unload Me
    End
  End If
End If

If Dir$(LogFile) <> "" Then Kill LogFile

If Silent = True Then
    Call SearchRegistry(HKEY_ALL, txtValName)
End If
End Sub
 
Private Sub LoadProfileList()
Set UserProfileList = New Collection
Dim BaseDir As String, strFolder As String
BaseDir = Environ("UserProfile")
BaseDir = Left$(BaseDir, InStrRev(BaseDir, "\") - 1) & "\"
strFolder = Dir(BaseDir, vbDirectory)
Do While strFolder <> ""
    If strFolder <> "." Or strFolder <> ".." Then
        If (GetAttr(BaseDir & strFolder) And vbDirectory) Then
            UserProfileList.Add BaseDir & strFolder
        End If
    End If
    strFolder = Dir()
    DoEvents
Loop
End Sub

Private Sub cReg_SearchKeyChanged(ByVal sFullKeyName As String)
   If Me.WindowState <> vbMinimized Then lblProg = sFullKeyName
End Sub
'*************** End frmMain.frm *************************


I don't think I made any changes to the .cls file so that one should be the same.

Try it out and let me know how it goes.

THANKS!!!!!!

This is going to be great!  I'll compile this and run it on a test box today.  I have a quick question though.  

The first line of: frmMain.frm says: VERSION 5.00.  Is this the version of VB?  If so, is there any issue with compiling under VB6 or .Net?

Thanks again, I'll let you know how it goes!

ested the code and it works great for all profiles that have logged in before.  The only issue is it did not modify the default user profile or the current user (administrator).  I had to path out to the file, I wasn't able to use variables such as %windir%\test_image.bmp.

Oh, will this change only REG_SZ values or will it change others as well?

I wasn't sure because I saw:
Private Const REG_SZ = 1
Private Const REG_DWORD = 4

and then saw:
creg.SearchFlags = 1

and I figured that meant REG_SZ only.  Then I was thinking about trying to add one more switch that let you determine regesty key type, such as
/1 = REG_SZ
/2 = REG_MULTI_SZ
/3 = REG_BINARY
/4 = REG_DWORD

Or would there be a way to tell it to check all 4 types?  As before, exclude classes, since those values aren't affected.

Thanks again for the help, I know what you mean about the crazy due dates!  This fix is actually for a project of mine that was past due when it was assigned to me!

Oh well, at least we are employed!

Thanks,
Ed

The code should find values of any type but the change depends on the value that is being added. The code checks the value data and if it is numeric it assumes DWORD. If the value is not numeric it assumes REG_SZ.

This line:

creg.SearchFlags = 1

specifies what to search for. 1 means to search Value Names. Here are the options:

     KEY_NAME = 0
     VALUE_NAME = 1
     VALUE_VALUE = 2
     WHOLE_STRING = 4

Also,the VERSION 5.00 line does not mean the version of VB. The above was written in VB6.

It is possible to add switches for the reg type,but implementing REG_MULTI_SZ and REG_BINARY could be difficult.

As far as environment variables a routine would be needed to check for the "%" so the app knows to lookup the env variable. I'll have to test to see why it did not change the default and current users profiles.I'll also see if I can add the environment variable check as well.

Thanks for the help, have a Happy Holidays!

This stuff seems so useful, I even signed up for a .net class in January!

Ed

Hey vinnyd79!

Hope you had a great New Years Eve!  Have you been able to get the current and default profiles to change yet?

Thanks,

Ed

I was having a problem but I don't remember what it was. I was out of town for a while but I'll look into it again now that I am back. I should get a chance to work on it tomorrow morning.

Thanks!  I'm looking forward to hearing from you, this will make life so much easier!

Ed

The above example is working for me on the Current Users profile but was not working on the Default User profile. To fix the Default User profile issue find the "LoadProfileList" routine on frmMain and replace it with this one:


Private Sub LoadProfileList()
Set UserProfileList = New Collection
Dim BaseDir As String, strFolder As String
BaseDir = Environ("UserProfile")
BaseDir = Left$(BaseDir, InStrRev(BaseDir, "\") - 1) & "\"
strFolder = Dir(BaseDir, vbDirectory + vbHidden)
Do While strFolder <> ""
    If strFolder <> "." And strFolder <> ".." Then
        If (GetAttr(BaseDir & strFolder) And vbDirectory) Then
            UserProfileList.Add BaseDir & strFolder
        End If
    End If
    strFolder = Dir()
    DoEvents
Loop

End Sub


I'm going to make a few more changes and will get back to you shortly.

Vinny,

Hey!  How's it going?  I finally had a free minute to sit down and work with this.  I ran the original version and the recompiled version.  I saved the log files so I could show you what was happening.

I am logged in to the machine as "egonzalez"

There is an administrator profile and a test account called "HATrain005."  My account and the test account are both domain accounts, the administrator account is a local account.  I ran the GUI so that I could watch the progress.  I chose to search for the key: Wallpaper and change the value to an old Compaq wallpaper that was located in the Winnt directory.

This i a Windows 2000 SP4 machine with all the current patches.

Here is the log file from the original version:

-------------------------------------------------------
Administrator ,HKEY_USERS,keyLoaded\Control Panel\Desktop\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Control Panel\Desktop\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,C:\WINNT\CPQ1600h.bmp,C:\WINNT\CPQ1600h.bmp
-------------------------------------------------------
This is from the 2'nd build.

-------------------------------------------------------
Administrator ,HKEY_USERS,keyLoaded\Control Panel\Desktop\Wallpaper,C:\WINNT\BGInfo.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,C:\WINNT\BGInfo.bmp,C:\WINNT\CPQ1600h.bmp
Administrator ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,C:\WINNT\BGInfo.bmp,C:\WINNT\CPQ1600h.bmp
Default User  ,HKEY_USERS,keyLoaded\Control Panel\Desktop\Wallpaper,C:\WINNT\BGInfo.bmp,C:\WINNT\CPQ1600h.bmp
Default User  ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
Default User  ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Control Panel\Desktop\Wallpaper,C:\WINNT\BGInfo.bmp,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Internet Explorer\Desktop\SafeMode\General\Wallpaper,Temporary unsupported,C:\WINNT\CPQ1600h.bmp
hatrain005    ,HKEY_USERS,keyLoaded\Software\Microsoft\Windows\CurrentVersion\Policies\System\Wallpaper,c:\image.bmp,C:\WINNT\CPQ1600h.bmp
-------------------------------------------------------

As you can see, the first time it only changed Adminitrator and Hhatrain005.  The second file shows that it changed the Default profile as well.  It still didn't change the wallpaper for the currently logged in user.

Thanks for the help with this!

Ed

Vinny,

Have you had a chance to look at this recently?

Ed

Sorry ed, I havn't had much time for EE lately. I will take a look at this again in the next day or so.

Vinny

Vinny,

Any progress on the program?  Once you get the current users profile fixed, then this should be a done deal!

Again, thanks for the help.

Ed

My objection is that this is almost working.  There just a few minor tweaks that need to be made to make the profiles load.  I understand that Vinny is busy, so I would never press too hard for completion.  Please leave this question open until a resolution is reached.

Vinny,
I never noticed this last time, but it seems like the log file isn't working.  When the program completes. it asks if you want to view the log and then says that the file doesn’t exist if you choose yes.

Thanks!

Ed

Hmmm, Im not really sure what the problem could be. Iv'e looked at this a few times and tried to replicate the problem but couldn't. It is working fine on the current profile for me. The currently loaded profile is the first thing that gets searched. From your log files it looks like it is not searching the current profile. The only thing I can think of is maybe you are missing the line that calls the search.

Look at the frmMain code and find the "SearchRegistry" Sub routine and verify it is searching the current profile. I marked the line to look for below.

Public Sub SearchRegistry(SearchHive As ROOT_KEYS, SearchStr As String)
Set creg = New cRegSearch
creg.RootKey = SearchHive
creg.SubKey = ""
creg.SearchFlags = 1
creg.SearchString = SearchStr
CurrentProfile = "Local & Current Logged on User (" & Environ(UserName) & ")"
If Silent = False Then lblProf = Val(lblProf) + 1
' search Loaded registry files
creg.DoSearch   '  <--------- MAKE SURE THIS LINE IS HERE !!!!!!
Set creg = Nothing

Set creg = New cRegSearch

CurrentProfile = ""

'................................................


If that line does exist,you can click to the left of it in VB and put a breakpoint in. Then run the program. The program will stop and the line will highlight in yellow.
You can then hit the F8 key to step the code though line by line.I would try stepping it through until it jumps to the DoSearch routine and verify it is hitting a line that is calling EnumRegKeys.

I set the breakpoint and tried to run the app, but I get a run-time error '9':
                                                                                 Subscript out of range

when I select DEBUG this is highlighted in yellow "LogFile = arrArgs(i + 1)"

Thats strange. If it hits that line then it received the /L command line switch without a filename or without a space between the /L switch and the filename.

I may be doing this wrong, but here is what I am doing to get the error.

I go in to the frmMain (code) window and find he line "creg.DoSearch"

I click the grey area to the left of the line and this puts a red dot there.  It also highlights the line in red.

I then try the following methods:
 1.  Select the Debug menu item, then choose Run to Cursor.
 2.  Select the Run menu item, then choose Start.
 3.  Select the Run menu item, then choose Start With Full compile.

All three yield the same results.

Ed

Vinny,

I had one of the guys take a break from their busy schedule and take a look at the run time error.  From what Jose said, this area:

 Case "/l", "/L"
                LogFile = arrArgs(i + 1)

referanced an array that had a max value of 3, but it was equaling 3 + 1.

So he changed: For i = 0 To UBound(arrArgs)
                   to: For i = 0 To UBound(arrArgs) - 1

Now the log file works, but it isn't reporting with all the profiles.  For instance, the GUI will say that 4 profiles were found and 3 changes made, but there will be only 2 enties in the log file.

Thanks Darth,

May the force be with you....

There is something strange going on here. The array holds the command line arguments that are passed to the exe. If the max value of the array was 3, then that must mean that it is receiving the /L switch as the last argument. The +1 was to get the next element after the /L which should be the filename.

Can you post what you have for the "Form Load" routine in frmMain.

Oh, I think I know what the problem here is.  It is my fault.  I was attempting to make it so that when you right clicked on the file and went to properties, the command line options would be displayed there.  I was looking aroun in the project properties, and thought I saw a field for that.  I was, however , a field that compiles the switches into the executable.  So, my ignorance of VB and the interface messed up the executable.  I am going to change the lines back, I've already clered out the switches, and I will test it again to day.

I recompiled the app and it still didn't change the current user.  I am testing with wallpaper so that I can see it.  The rgistry and the log file do not reflect the current user.

I'm back. Was out of town for a couple of days. I knew there was something strange going on with the command line switches.

I don't see how it could be skipping the current profile though. Have you tried rebuilding the .vbp and .frm  files from the latest posts in this thread? If not,I would try that but remember to replace the "LoadProfileList" routine on frmMain with this one:


Private Sub LoadProfileList()
Set UserProfileList = New Collection
Dim BaseDir As String, strFolder As String
BaseDir = Environ("UserProfile")
BaseDir = Left$(BaseDir, InStrRev(BaseDir, "\") - 1) & "\"
strFolder = Dir(BaseDir, vbDirectory + vbHidden)
Do While strFolder <> ""
    If strFolder <> "." And strFolder <> ".." Then
        If (GetAttr(BaseDir & strFolder) And vbDirectory) Then
            UserProfileList.Add BaseDir & strFolder
        End If
    End If
    strFolder = Dir()
    DoEvents
Loop

End Sub

I tend to agree.  If it is working for you and not forme, then I probably fat fingured something.  I will rebuild today and opfully be able to post something by tomorrow.  Vacation next week, so if you don't here from me then it will be another week before I can test.

Thanks!

I rebuilt it twice now, still no luck.  Yould you be willing to send me a zip of your project folder?  We can use one of those large file email transfer services it is more that 5 or 10 megs.  Let me know.

I can send the project folder in a zip file. I don't have it handy on this system but I believe it is only a few KB's. I was going to suggest that if you didn't have any luck re-building it. I'll grab the files from my home system tonight.

Sounds good to me.

Vinny,

When you get a chance, send the files to RegistryTool@bugmenot.com.  This is a dummy email account and will auto delete itself after a few days.  Just let me kow when you send it so I can grab the file before the account deletes itself.

Thanks,

Ed

Vinny,

Lets change that temp email address to 'RegistryTool@mytrashmail.com'  The email account will auto delete after a few days.

Thanks!

Ed

Sorry Ed, I was away for a while. Is that e-mail address still good?

Vinny,

Yes, this address is still good.  It is a trashmail address, so it becomes active when it recieves an email adress to anything on that domain.

Thanks!

Ok, sent it. Let me know how it goes.

I'll grab it when I get home tonight and compile it tomorrow!

Thanks!

Vinny,

Sorry it took so long to get back to you.  The file you sent (pre-compiled) work flawlessly on Windows XP.

I still get the same issues on Windows 2000.

It doesn't find all the profiles (Current User) and the log file errors out when it tries to open.  My temp variable is set to C:\Temp

Do you want a VM of a 2000 image?

Thanks!

Actually I am using Windows 2000. Does the problem occur on more than 1 win2k system? What is the error you receive when it tries to open the log file? Could there be a policy in effect on that machine that is stopping it?

There is no policy stopping this from running, as I am testing on a box that is not joined to the domain.  After troubleshooting a little further, the error that says it cannot open the log file is only coming up if there were no entries found.   I guess it never creates the log, so there is nothing to open.

I can give you a vmware player image as well as a few of the keys I am trying to replace if you would like.

Also, it seems to have an issue with spaces.  Such as NV Domain = MyDomain.  When run from teh command line, you can see that all is loads is NV = MyDomain or "NV = MyDomain.

Vinny, I'm sending you a file.  Check this out when you get a chance.  I have an image file on the desktop that shows what the data I used is, and the error message that comes up.

Ed

Vinny,  did you have a chance to look at the file?

We've been busy.  Don't close the question yet.

Vinny, have you had a chance to look the Virtual Machne?

Vinny,

I will forward some info to you regarding this project.

Info forwarded privately, will wait for response...

Hi Ed, I downloaded the file's but havn't had a chance to install VB6 so I can debug. I'll get to it tonight.

Thanks Vinny!

Yes.  In fact the zip file you sent was on the desktop.  I'll test it again today, It has been a while and I suppose it could be user error.  I'll get back with you later today.

Download the file again...

Still testing, I haven't been able to log in latelty....