查询Active Directory并返回计算机的OU名称和上次启动时间

时间:2013-11-22 12:47:02

标签: vbscript active-directory ldap

我已经调整了一个查询(最初来自here),以获取特定域的Active Director中计算机的名称和操作系统。

使用此技术是否还有一种方法可以输出计算机所在的名称上次启动/连接到AD STRONG>?感谢。

objCommand.CommandText = _
    "SELECT Name, operatingSystem FROM " & _
    "'LDAP://" & strDomain & "' " & _
    "WHERE objectClass='computer' " & _
    "AND (operatingSystem = 'Windows 2000 Professional' " & _
    "OR operatingSystem = 'Windows XP Professional') " & _
    "ORDER BY Name"

1 个答案:

答案 0 :(得分:2)

将这些添加到您的选择

SELECT Name, operatingSystem, Adspath, lastLogonTimeStamp FROM

然后添加此

Set objDate = objRecordset.Fields("lastLogonTimeStamp").Value
dtmDate = "n/a"
lngHigh = objDate.HighPart
lngLow = objDate.LowPart
If (lngLow < 0) Then
    lngHigh = lngHigh + 1
End If
If (lngHigh = 0) And (lngLow = 0) Then
    dtmDate = "n/a"
Else
    dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) _
    + lngLow)/600000000)/1440
End If

objRecordSet.Fields("Adspath")是专有名称,dtmDate是最后一次登录日期