Sub UserErstellenAmServer()
 
 
 
 
        o.NativeObject.SetPassword(c_user_Passwort)
        o.CommitChanges()
 
        o.NativeObject.AccountDisabled = False       'Konto wird nicht 
        ' abgeschaltet 
        o.CommitChanges()
 
        If c_Kennwortenderung_erzwingen = "true" Then
            o.NativeObject.PasswordExpired = "true"   '  !!!!das funktioniert 
            ' noch nicht!!!!
            o.CommitChanges()
        End If
 
    End Sub
End Class