- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我需要在AD DirectoryEntry中设置accountExpires属性找不到简单的答案。
找到一些信息;
http://msdn.microsoft.com/en-us/library/system.directoryservices.accountmanagement.userprincipal.aspx
http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/182bfb6a-8b23-4c96-9379-101a4d91241a
http://www.rlmueller.net/AccountExpires.htm
看到一些有关ADS ****。dll的文章,但不认为我需要使用此方法
Dim valueToSet As Date = Now.AddDays(10)
Dim ADSPath As String = "LDAP://cn=..."
Dim de As DirectoryEntry = New DirectoryEntry(ADSPath)
Dim d As TimeSpan = valueToSet.ToUniversalTime - Date.Parse("01/01/1601")
Dim ValueToSetAsString As String = d.Ticks.ToString
' it appears that the ticks value is too large for the value of the directory entry
' converting to a string (18 chars or so) works!
de.Properties("accountexpires").Value = ValueToSetAsString
de.Properties("accountexpires").Value = valueToSet.ToFileTime.ToString
Function ConvertADValueToDateTime(ByVal li As Object) As DateTime
' http://bytes.com/topic/visual-basic-net/answers/512901-lastlogontimestamp
Try
Dim lngHigh = li.HighPart
Dim lngLow = li.LowPart
Dim lastLogon = (lngHigh * 2 ^ 32) - lngLow
Dim returnDateTime As DateTime = DateTime.FromFileTime(lastLogon)
Return returnDateTime
Catch ex As Exception
Return Nothing
End Try
End Function
Dim d As DateTime = ConvertADValueToDateTime(de.Properties("accountexpires").value)
If d = "01/01/1601" Then
' no expiry date
Return Nothing
Else
Return d
End If
最佳答案
这样的事情会使您的帐户在30天后过期:
Dim de As New DirectoryEntry("LDAP://cn=foo,cn=users,dc=contoso,dc=com")
de.Properties["accountExpires"].Value = DateTime.UtcNow.AddDays(30).ToFileTime()
de.CommitChanges()
关于vb.net - 如何通过AD DirectoryEntry在VB.NET中设置AccountExpires,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7680872/
如主题所述。如何为选定的用户帐户额外增加 1 天。 我知道 AD 按 Windows 文件时间计算。有谁知道最简单最少代码写的方法吗? 最佳答案 您可以通过Set-ADUser修改AD用户的accou
我想将 18 位字符串从 LDAP AccountExpires 转换为正常日期时间格式。 129508380000000000 >> 2011 年 5 月 26 日 我使用以下链接获得了上述转换。
我有以下一段代码可以很好地从 AD 输出用户的显示名称和 accountExpires 属性。由于工作中的受限模式,我在命令行上运行它们: $objSearch.findall() | %{" " +
我在基于 spring 的 webapp 中使用 SpringLDAP API 来查询托管在 Windows Server 2012 上的 ActiveDirectory。以下是我的环境详细信息:-J
我是一名优秀的程序员,十分优秀!