8 replies to this topic

[kingvandal]

What I want to do is have regkey.getvalue put the contents of a specified registry key into a text file. I would love to see the code below work but it fails at the " >> ". Any help or kick me in the right direction as to how the regkey.getvalue can put the contents of reg key into a text file.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		System.Diagnostics.Process.Start("reg.exe query hklm\HARDWARE\DESCRIPTION\System /v SystemBiosVersion >> TEST.txt")
		Dim streamtodisplay As StreamReader
		streamtodisplay = New StreamReader("TEST.txt")
		TextBox1.Text = streamtodisplay.ReadToEnd
		streamtodisplay.Close()
		TextBox1.Select(0, 0)
	End Sub

thank

[phase]

There is a registry key class in .NET you could use.

Here is a C# example. http://www.c-sharpco...manregistry.asp

I know the post is kinda old but if you still haven't got it working I have some VB.net code I could send you that does what your wanting.

Phase

[kingvandal]

I did get it working, But I do have a similar problem with the Registry.LocalMachine.GetSubKeyNames

I tryed and found a few examples of how it works but I just don't really understand how to use the code. I am still learning vb so some stuff is still greek to me. Like below is a example I found on a forum and I understand the majority of it but the stuff highlighted in blue I don't understand.

Sub InstalledSoft()
Dim Key As RegistryKey = Registry.LocalMachine.OpenSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", False)
Dim SubKeyNames() As String = Key.GetSubKeyNames()
Dim Index As Integer
Dim SubKey As RegistryKey

For Index = 0 To Key.SubKeyCount - 1

SubKey = Registry.LocalMachine.OpenSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\" _
+ SubKeyNames(Index), False)

If Not SubKey.GetValue("DisplayName", "") Is "" Then
softwaredisp.text += CType(SubKey.GetValue("DisplayName", ""), String)
softwaredisp.text += CType(SubKey.GetValue("DisplayVersion", ""), String)
End If
Next

End Sub

Isn't there a way to just output the subkeynames to a text box without getting fancy about it? I am still learning so I really don't care right now if it is pretty code or not. I just want it to work.
Somthing small like:

Dim TEST As RegistryKey = Registry.LocalMachine
TEST = TEST.OpenSubKey("HARDWARE\\DESCRIPTION\\System")
Dim BIOS As Object = TEST.GetValue("SYSTEMBIOSVersion")
TextBox1.Text = ("BIOS IS: " + BIOS & vbCrLf)

Any ideas/help on where I am stuck?

Thanks

-kv

[bonarez]

You can use windows scripting host from within vb, at least it works in vb6 (that I know of)

Dim WshShell, bKey 
Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY" 
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ" 
bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\") 
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader") 
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader" 
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\" 
WshShell.RegDelete "HKCU\Software\ACME\"

copied this piece of code from script56.chm, which used to be freely downloadable from ms website Windows Scripting. Off course this is the vbscript version, it will prolly need some changes..

the correct way to do it would be the piece of code you showed here, it's not that difficult, it just itterates the subkeys and puts them in a textbox one by one. but wsh is probably easier

[phase]

I looked at some code I had and I pretty much get key values the way your example does. So I hope that I can just explain what’s going on here instead of trying to give you another code segment. If this is over simplified don't take it personally. Hopefully someone can read it and see what’s going too.


First we load up all the subkey names into a string array with the following:

Dim SubKeyNames() As String = Key.GetSubKeyNames()

If you step through the code and do a "quickwatch" on SubKeyNames you will see all the names listed.

Now the next step confused me a little but I see what’s going on.

For Index = 0 To Key.SubKeyCount - 1

Key.SubKeyCount() gets a number that is the sum of the total number of subkeys. The confusing thing is why they didn't use SubKeyNames.Length here which has the same value in it.
The point of this line of code is to set how many time we are going to loop. we do
Key.SubKeyCount - 1 because we are starting at zero and not 1.

This line gets a singe value from a single key.
SubKey = Registry.LocalMachine.OpenSubKey _
("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\" _
+ SubKeyNames(Index), False)

We use SubKeyNames(Index) to get a value from the list we filled a few lines before this where Index is our current location in the loop. Outside of knowing what subkey name you are fishing for this works just fine.

Now we check to see if the found the key we are looking for and if so display it on the screen.
If Not SubKey.GetValue("DisplayName", "") Is "" Then
softwaredisp.text += CType(SubKey.GetValue("DisplayName", ""), String)
softwaredisp.text += CType(SubKey.GetValue("DisplayVersion", ""), String)


OK now to what you are actually looking for.

Dim TEST As RegistryKey = Registry.LocalMachine
TEST = TEST.OpenSubKey("HARDWARE\\DESCRIPTION\\System")
Dim BIOS As Object = TEST.GetValue("SYSTEMBIOSVersion")
TextBox1.Text = ("BIOS IS: " + BIOS & vbCrLf)

Your problem is that BIOS has 3 values in it because there are multiple values in the key field.
Use:

TextBox1.Text = ("BIOS IS: " + BIOS(x) & vbCrLf) where x is the value you want from within BIOS. If you do a quickwatch on BIOS in Debug mode you should see three values and their index. Just put the index in the place of x and I think you will be in business.

[kingvandal]

Thanks for explaining that

("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\"

The "\" specifies how far down you drill in the subkey right?

[phase]

This is just building a string(concatinating two strings together) that the function OpenSubKey can understand.

"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" + "\"

gives you this.

"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"

what the code is doing is building a string that would look like:
"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\DisplayName"

[kingvandal]

Alright I think I got it now. Thanks for the help

[phase]

Post here again or PM me if you need anything else.