Option ExplicitPrivate Sub Command1_Click() Dim Reg As Object Set Reg = CreateObject("Wscript.Shell") MsgBox Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Defaultusername") MsgBox Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName") End Sub
查查看,基本是这样的。
Dim Reg As Object
Set Reg = CreateObject("Wscript.Shell")
MsgBox Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Defaultusername")
MsgBox Reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\DefaultDomainName")
End Sub