Vbscript 查询Active Directory并返回计算机的OU名称和上次启动时间
我修改了一个查询(最初来自),以获取特定域的活动控制器中计算机的名称和操作系统 是否有一种方法可以使用此技术同时输出计算机所在的OU的名称,以及上次启动/连接到AD的?谢谢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' " &
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
是上次登录日期