获取AD域用户登入信息

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

1:

Dim con
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = o g 7 T 1 w 3 objSysInfo.UserName
Set objUser = GetObject("L7 * w w + * & b 0DAP://" & strUser)

UserName = objUser.sAMAccountName
dis# x 5 ! 8 m U 2playName = objUser.disp 4 w ; playName
telephone = obJ s L . 4jUser.telephon] . yeNumber

Set WshNetwork = WScript@ t * n ~ 4 X O H.CreateObject("WScript.Network")
ComputerID = WshNetwork.ComputerName

Set objArgs = WScript. Argument - /s
connStr = "driver={sql server};Server=" + objArgs(+ * @ | 4 g0) +";Database="+objArgs(1)+";uid="+objArgs(2)+"pwd="+objArgs(3)+";"

set con = wscript.CC 7 m )reateObject("ADODB.Connection")

con.Open connStr
command = # # x"delete from switch_UserLoE ? wgin where ComputerID = 'j P d s l y 2 ~ J" + ComputerID + "' and UserName = '" + UserName + "'"
con.Execute(command)

command = "insert into switch_UserLogin (Userd ` * M @ = 7Name,displayName,Telephone,, H !ComputerID) values ('"
command = command + UserName + "','i G e" + displayName + "','" + teli U ^ 5 I ( [ephone + "','" + ComF | - *puterID +v ( M D 1"')"

con.Execute(command)

con.Close()

2:脚本运行实例

wscript.exe domainserverNETLOGONgetUserInfo.vbs ip db user pw

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