asked on
Imports Microsoft.Win32
Public Class Form1
Public Sub RegValues()
Dim oReg As RegistryKey
oReg = Registry.LocalMachine.OpenSubKey("Software", True)
oReg = oReg.OpenSubKey("Microsoft\Windows NT\CurrentVersion\Winlogon")
oReg.SetValue("AutoAdminLogon", 1)
oReg.Close()
End Sub
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strValueName = "AutoAdminLogon"
strValue = 1
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue