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

Vbscript 查询Active Directory并返回计算机的OU名称和上次启动时间,vbscript,active-directory,ldap,Vbscript,Active Directory,Ldap,我修改了一个查询(最初来自),以获取特定域的活动控制器中计算机的名称和操作系统 是否有一种方法可以使用此技术同时输出计算机所在的OU的名称,以及上次启动/连接到AD的?谢谢 objCommand.CommandText = _ "SELECT Name, operatingSystem FROM " & _ "'LDAP://" & strDomain & "' " & _ "WHERE objectClass='computer' " &

我修改了一个查询(最初来自),以获取特定域的活动控制器中计算机的名称和操作系统

是否有一种方法可以使用此技术同时输出计算机所在的OU的名称,以及上次启动/连接到AD的?谢谢

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

将这些添加到您的选择中

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
Set objDate=objRecordset.Fields(“lastLogonTimeStamp”).Value
dtmDate=“不适用”
lngHigh=objDate.HighPart
lngLow=objDate.LowPart
如果(lngLow<0),则
lngHigh=lngHigh+1
如果结束
如果(lngHigh=0)和(lngLow=0),则
dtmDate=“不适用”
其他的
dtmDate=#1/1/1601#+((高*(2^32))_
+lngLow)/600000000)/1440
如果结束
objRecordSet.Fields(“Adspath”)
是可分辨名称,
dtmDate
是上次登录日期