vb.net - example - directoryentry properties

Cómo establecer AccountExpires en VB.NET a través de AD DirectoryEntry

Question

Necesitaba establecer la propiedad accountExpires en AD DirectoryEntry no pudo encontrar una respuesta simple. Encontrado algo de información;

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

Vi algunos artículos con ADS ****. Dll pero no pensé que necesitaba usar este método

 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

Gracias a Brian, parece que la gran cantidad de código que se escribió anteriormente se puede simplificar;

 de.Properties("accountexpires").Value = valueToSet.ToFileTime.ToString

Una función para devolver AccountExpires y otros problemas de LargeEnnte en VB.NET

 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

Ejemplo de uso:

 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

Un método alternativo

Convertir cuentas LDAPExpires a DateTime en C #

Answer 1

Algo como esto configurará el vencimiento de su cuenta en 30 días:

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()

Answer 2

Esto usa DateTimePicker en un formulario, pero debería ser trivial usar cualquier otro formato de fecha.

Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory
Imports System.IO
''Get the user
Dim EntryString As String
EntryString = "LDAP://...."
Dim dirEntry As DirectoryEntry
dirEntry = New DirectoryEntry(EntryString)
Dim dirSearcher As New DirectorySearcher(dirEntry)
dirSearcher.Filter = "(&(objectCategory=Person)(objectClass=user)(SAMAccountName=" & Trim(Form1.AccountNameTB.Text) & "))"
dirSearcher.SearchScope = SearchScope.Subtree
Dim searchResults As SearchResult = dirSearcher.FindOne()
''Set the date
Dim d1 As Date = Form1.AccountExpiresDTP.Value
Dim d2 As New DateTime(d1.Year, d1.Month, d1.Day)
d2 = d2.AddDays(1) ''Add one day so that it matches what is in AD
Dim ft As Long = d2.ToFileTime()
dirEntryResults.Properties("accountExpires").Value = ft.ToString ''You do need to turn it into a string
dirEntryResults.CommitChanges()
dirEntryResults.Close()