ad域服务器信息怎么获取,获取AD域用户登入信息

获取AD用户登入信息

详细记录AD域用户登入过哪些终端电脑

1：

Dim con

Set objSysInfo = CreateObject("ADSystemInfo")

strUser = objSysInfo.UserName

Set objUser = GetObject("LDAP://" & strUser)

UserName = objUser.sAMAccountName

displayName = objUser.displayName

telephone = objUser.telephoneNumber

Set WshNetwork = WScript.CreateObject("WScript.Network")

ComputerID = WshNetwork.ComputerName

Set objArgs = WScript. Arguments

connStr = "driver={sql server};Server=" + objArgs(0) +";Database="+objArgs(1)+";uid="+objArgs(2)+"pwd="+objArgs(3)+";"

set con = wscript.CreateObject("ADODB.Connection")

con.Open connStr

command = "delete from switch_UserLogin where ComputerID = '"  + ComputerID +  "' and UserName = '" + UserName + "'"

con.Execute(command)

command = "insert into switch_UserLogin (UserName,displayName,Telephone,ComputerID) values ('"

command = command + UserName + "','" + displayName  + "','"  + telephone + "','" + ComputerID +"')"

con.Execute(command)

con.Close()

2：脚本运行实例

wscript.exe \domainserver\NETLOGON\getUserInfo.vbs ip db user pw

3：通过AD域服务器发布用户登入脚本