1500字范文,内容丰富有趣,写作好帮手!
1500字范文 > 显示域用户登录的ip或计算机名 如何在使用PowerShell脚本或者VBS脚本 查看域内正在

显示域用户登录的ip或计算机名 如何在使用PowerShell脚本或者VBS脚本 查看域内正在

时间:2018-08-25 21:24:04

相关推荐

显示域用户登录的ip或计算机名 如何在使用PowerShell脚本或者VBS脚本 查看域内正在

域管理员希望能通过PowerShell或者VBS脚本,查看当前域内正在登录的账号名称、客户端主机名称和客户端主机IP地址。以前看过论坛中的一个帖子是说通过VBS脚本来查看,但是只能看到主机名和登录账号名,但我不知道如何变更脚本代码,把IP地址也显示出来(代码如下)。

' Script for getting current logged user name on Domain

' Author : mwpq

'

strDomainName = InputBox ("Please enter the internal Domain Name:","Script for getting current logged username","yourdomain.local")

arrDomLevels = Split(strDomainName, ".")

strADsPath = "dc=" & Join(arrDomLevels, ",dc=")

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")

Set objCommand = CreateObject("mand")

objConnection.Provider = "ADsDSOObject"

objConnection.Open "Active Directory Provider"'

Set objCOmmand.ActiveConnection = objConnection

mandText = _

"Select Name, Location from 'LDAP://"&strADsPath&"' " _

& "Where objectClass='computer'"

objCommand.Properties("Page Size") = 1000

objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE

Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set of = oFSO.CreateTextFile("LoggedUser.txt", True, True)

Do Until objRecordSet.EOF

On Error Resume Next

sPC = objRecordSet.Fields("Name").Value

of.writeline " "

of.writeline "Machine Name: "&sPC

Set objWMILocator = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & sPC & "\root\cimv2")

If Err = 0 Then

Set col = objWMILocator.ExecQuery _

("Select * from win32_computersystem")

For Each item In col

of.writeline "Logged User: "&item.username

Next

Set col = Nothing

Else

of.writeline "!!! Cant connect to "&sPC&" !!!"

End If

objRecordSet.MoveNext

Loop

of.close

MsgBox "Done! Cheers!"

显示域用户登录的ip或计算机名 如何在使用PowerShell脚本或者VBS脚本 查看域内正在登录的域用户名 主机名和主机IP地址...

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。