Expire Password
Hej .. Jeg kan simpelthen ikke finde ud af hvordan man får sat den "User must change password at next logon" parameter på brugere.Jeg har oprettet alle brugerne, og nu vil jeg force dem alle til at skifte password næste gang de logger på.
Jeg har følgende:
------------------
UserID="username"
PDC = "servername"
On Error Resume Next
Set UserObj = GetObject("WinNT://" & PDC & "/" & UserID)
UserObj.Put "userAccountControl",16
UserObj.SetInfo
If err.number = 0 Then
Status = "Change Was Successful"
Else
Status = "Change Failed"
End if 'error
MsgBox Status
-------------------
Det virker ikke, er der en der kan give en hånd, det ville være meget værdsat.
