Cuestión : Los permisos activos de la caja del directorio cambiaron

El

Something ha cambiado.  Normalmente cuando necesito conceder permisos completos de la caja en una caja a otro usuario, es tan simple como la apertura de la caja con los usuarios y las computadoras de directorio activos, abriendo la lengüeta de la seguridad y agregando al usuario y comprobando permite en el acceso completo de la caja.  Ese permiso está no más allí.  Veo todas las clases de otras que no recuerde ser allí en el pasado: ¿el informattion
etc.

What del information
Write del information
Read de la tela del information
Write de la tela del
Read RTCPropertySet
Write RTCPropertySet
Read ha cambiado?  ¿Cómo consigo el permiso “acceso completo de la caja” trasero?  He intentado abrir a usuarios del ANUNCIO en reguladores múltiples del dominio así como en mi sitio de trabajo.   Todo el same. class= del

Respuesta : Los permisos activos de la caja del directorio cambiaron

Intentar esto:
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:
36:
37:
38:
39:
40:
41:
42:
43:

Sub ShowColumnInfo ()
 
Amortiguar el doc. como documento
Amortiguar i como número entero
Amortiguar el Sec como sección
Amortiguar el str como secuencia, strColBk como secuencia
 
    Fijar doc. = ActiveDocument
     
     
    Para cada Sec en el doc. Secciones
        i = i + 1
        Si (CInt (CountWordPhrase (i, doc.)) > 0) Entonces
            strColBk = CountWordPhrase (i, doc.)
            str = str y vbCrLf y “sección: ” y i y “columnas” y Sec.PageSetup.TextColumns.Count y “-” y “ColumnBreaks (” y strColBk y "),”
        Terminar si
    Después
 
    Rotura Info de la columna de MsgBox “: ” y str, vbInformation, “rotura Info de la columna por la sección”
     
 
Submarino del extremo
 
Función privada CountWordPhrase (SecId como número entero, myDoc como documento) como secuencia
 
X dévil como secuencia
Y dévil como número entero
 
    En el curriculum vitae del error recomendado  después 'no realmente pero problemas puede suceder en hallazgos
 
    x = “^n”  'texto de la rotura de la columna
    
    myDoc.Sections (SecId). Range.Select
    Con Selection.Find
        Hacer mientras que. Ejecutar (FindText: =x, delantero: =True, formato: =True, _
           MatchWholeWord: el =True) = verdad
           y = y + 1
        Lazo
    Extremo con
 
    CountWordPhrase = CStr (y)
 
Función del final
Otras soluciones  
 
programming4us programming4us