Frage : Aktive Verzeichnisbriefkasten Erlaubnis änderte

Austausch 2003/Windows-Server

Something hat geändert.  Normalerweise, wenn ich volle Briefkastenerlaubnis auf einem Briefkasten einem anderen Benutzer bewilligen muss, ist es so einfach, wie das Öffnen des Briefkastens mit aktiven den Verzeichnis-Benutzern und Computern, den Sicherheitsvorsprung öffnend und den Benutzer addierend und überprüfend auf vollem Briefkasten-Zugang lassen.  Diese Erlaubnis ist nicht mehr dort.  Ich sehe alle Arten von anderen, die ich mich nicht erinnere, dort in der Vergangenheit zu sein:
Read RTCPropertySet
Write RTCPropertySet
Read Netz information
Write Netz information
Read hat allgemeines information
Write allgemeines informattion
etc.

What geändert?  Wie erhalte ich die Erlaubnis „vollen Briefkasten-Zugang“ rückseitig?  Ich habe versucht, ANZEIGE Benutzer auf mehrfachen Gebietssteuerpulten sowie auf meinem Arbeitsplatz zu öffnen.   Das ganzes same.

Antwort : Aktive Verzeichnisbriefkasten Erlaubnis änderte

Dieses versuchen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:

Sub ShowColumnInfo ()
 
Doc. als Dokument verdunkeln
I als ganze Zahl verdunkeln
Sek als Abschnitt verdunkeln
Str als Schnur, strColBk verdunkeln als Schnur
 
    Einstellen Doc. = ActiveDocument
     
     
    Für jede sek in Doc. Abschnitte
        I = i + 1
        Wenn (CInt (CountWordPhrase (i, Doc.)) > 0) Dann
            strColBk = CountWordPhrase (i, Doc.)
            str = str u. vbCrLf u. „Abschnitt: “ u. i u. „Spalten“ u. Sec.PageSetup.TextColumns.Count u. „-“ u. „ColumnBreaks (“ u. strColBk u. "),“
        Beenden wenn
    Zunächst
 
    MsgBox „Spalten-Bruch-Info: “ u. str, vbInformation, „Spaltenbruchinfo pro Abschnitt“
     
 
Enden-Unterseeboot
 
Private Funktion CountWordPhrase (SecId als ganze Zahl, myDoc als Dokument) als Schnur
 
Schwaches x als Schnur
Schwaches y als ganze Zahl
 
    Auf der Störungs-Zusammenfassung zunächst  'nicht wirklich empfohlen aber den Problemen kann auf Entdeckungen geschehen
 
    x = „^n“  'Spaltenbruchtext
    
    myDoc.Sections (SecId). Range.Select
    Mit Selection.Find
        Tun während. Durchführen (FindText: =x, Vorwärts: =True, Format: =True, _
           MatchWholeWord: =True) = ausrichten en
           y = y + 1
        Schleife
    Ende mit
 
    CountWordPhrase = CStr (y)
 
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us