列出当前登陆的用户信息

最新推荐文章于 2021-08-06 06:50:34 发布

wizfair

最新推荐文章于 2021-08-06 06:50:34 发布

阅读量895

点赞数

CC 4.0 BY-SA版权

分类专栏： Script 文章标签： domain user server

本文链接：https://blog.youkuaiyun.com/wizfair/article/details/741153

Script 专栏收录该内容

14 篇文章

订阅专栏

Option Explicit
On Error Resume Next
Dim objShell

Dim regLogonUserName, LogonUserName
Dim regExchangeLogonDomain, ExchangeLogonDomain
Dim regGPServer, GPServer
Dim regUserHome, UserHome
Dim regHomePath, HomePath
Dim regLogonServer, LogonServer
Dim regUserDNSDomain, UserDNSDomain

regLogonUserName =            "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Logon User Name"
regExchangeLogonDomain =    "HKEY_CURRENT_USER/Software/Microsoft/Exchange/LogonDomain"
regGPServer =                "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Group Policy/History/DCName"
regUserHome =                "HKEY_CURRENT_USER/Volatile Environment/HomeShare"
regHomePath =                "HKEY_CURRENT_USER/Volatile Environment/HomePath"
regLogonServer =            "HKEY_CURRENT_USER/Volatile Environment/LOGONSERVER"
regUserDNSDomain =            "HKEY_CURRENT_USER/Volatile Environment/USERDNSDOMAIN"

Set objShell = CreateObject("WScript.Shell")
LogonUserName = objShell.RegRead(regLogonUserName)
ExchangeLogonDomain = objShell.RegRead(regExchangeLogonDomain)
GPServer = objShell.RegRead(regGPServer)
UserHome = objShell.RegRead(regUserHome)
HomePath = objShell.RegRead(regHomePath)
LogonServer = objShell.RegRead(regLogonServer)
UserDNSDomain = objShell.RegRead(regUserDNSDomain)

WScript.Echo LogonUserName & " is currently Logged on"
WScript.Echo ExchangeLogonDomain & " is the current logon domain"
WScript.Echo GPServer & " is the current Group Policy Server"
WScript.Echo UserHome & " is the user's HomeShare directory"
WScript.Echo HomePath & " is the user's HomePath directory"
WScript.Echo LogonServer & " is the current logon server"
WScript.Echo UserDNSdomain & " is the current DNS domain"