Feedback

VB - Autologon

Veröffentlicht von am 23.12.2006
(6 Bewertungen)
Diese Funktion prüft, ob ein Automatisches Anmelden aktiviert ist.

Die Funktion kann leicht abgewandelt werden, um die entsprechenden Werte in der Registry zu setzen.

Dies würde ich jedoch nicht empfehlen ;-)
Imports Microsoft.Win32.Registry
Imports Microsoft.Win32.RegistryKey

 Function AutoLogonEnabled() As Boolean


        Dim Autologon As Boolean
        Dim AutoAdminLogon As String
        Dim AutoLogOnPassword As String
        Dim AutoLogOnUser As String

        Try
            AutoLogOnUser = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", "")
        Catch ex As Exception
        End Try

        Try
            AutoLogOnPassword = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultPassword", "")
        Catch ex As Exception
            MessageBox.Show("Autologon will fail: No password set", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try


        Try
            AutoAdminLogon = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "AutoAdminLogon", "")

            If AutoAdminLogon = 1 Then
                Autologon = True
            Else
                Autologon = False
            End If
        Catch ex As Exception
        End Try

        Return Autologon

    End Function
Abgelegt unter Autologon.

4 Kommentare zum Snippet

Surrogard schrieb am 27.12.2006:
Gutes snippet, aber klitzekleiner Rechtschreibfehler im Registry-Key
der sollte
"HKEY_LOCAL_MACHINE\..."
heißen.
Volker Steitz schrieb am 27.12.2006:
Danke für den Hinweis,
hab´ den Code entsprechend korrigiert.
Volker Steitz schrieb am 31.12.2006:
Es war leider noch ein Fehle im Reg. Schlüssel.

Es muss selbstverständlich
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows ..... heissen.

Im ursprünglichen Schlüssel war versehentlich

HKEY_LOCAL_MACHINE\Software\CMicrosoft\Windows ... eingetragen.

Das Snippet ist entsprechend korrigiert
wrscheer schrieb am 10.08.2015:
Bei mir werden leider keine Werte zurück geliefert (.Net 4).
Nach ...
Dim sMeinName As String = CStr(My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon", "DefaultUserName", CStr("xxx"))) ... hat sMeinName die Länge 0.
 

Logge dich ein, um hier zu kommentieren!