convert vbscript to vb.net

Question

4.00/5 (3 votes)

See more:

I have this script i have been using for windows 7 to get the last logged in user. It works great as a vbscript but when i try and convert it to work in my application i get a number back vice the users name. Please help. below is the script i have been using.

VB

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "127.0.0.1"
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI"
strValueName = "LastLoggedOnUser"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Wscript.Echo "Current LastLoggedOnUser Value: " & strValue

now i have tried converting it and that code is below. All i get is a number 1 not the name. Help would be great.

VB

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "127.0.0.1"

Dim oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

Dim strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI"
Dim strValueName = "LastLoggedOnUser"
Dim strvalue = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strKeyPath, strValueName)
MsgBox("Current LastLoggedOnUser Value: " & strvalue.ToString)

Posted 10-Apr-12 4:59am

Zachary.shupp

Updated 5-Apr-17 19:20pm

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Mario Majčica · Accepted Answer · 2012-04-10T06:05:00

This is probably because you are on x64 machine.

Check out this code.

VB

Imports Microsoft.Win32

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim value As String
        Dim localKey = RegistryKey.OpenBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, RegistryView.Registry64)

        localKey = localKey.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI")

        Dim value64 = localKey.GetValue("LastLoggedOnUser")

        Dim localKey32 = RegistryKey.OpenBaseKey(Microsoft.Win32.RegistryHive.LocalMachine, RegistryView.Registry32)
        localKey32 = localKey32.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI")

        Dim value32 = localKey32.GetValue("LastLoggedOnUser")

        If value64 = Nothing Then
            value = value32
        Else
            value = value64
        End If

        MsgBox(value.ToString())
    End Sub
End Class

EDIT post comments:

for a solution that access the remote machines registry check this:

VB

Dim value As String
       Dim strComputer As String = "Zack-PC"

       Dim localKey = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, strComputer, RegistryView.Registry64)
       localKey = localKey.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI")
       Dim value64 = localKey.GetValue("LastLoggedOnUser")

       Dim localKey32 = RegistryKey.OpenRemoteBaseKey(RegistryHive.LocalMachine, strComputer, RegistryView.Registry32)
       localKey32 = localKey32.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI")
       Dim value32 = localKey32.GetValue("LastLoggedOnUser")

       If value64 = Nothing Then
           value = value32
       Else
           value = value64
       End If

       MsgBox(value.ToString)

Cheers