none
Atributos de carpetas RRS feed

Respuestas

  • Aqui tienes como recuperar todos los atributos de una carpeta:

     

    Code Snippet

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colFolders = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Directory WHERE Name = 'c:\\Temp'")
    For Each objFolder in colFolders
        Wscript.Echo "Archive: " & objFolder.Archive
        Wscript.Echo "Caption: " & objFolder.Caption
        Wscript.Echo "Compressed: " & objFolder.Compressed
        Wscript.Echo "Compression method: " & objFolder.CompressionMethod
        Wscript.Echo "Creation date: " & objFolder.CreationDate
        Wscript.Echo "Encrypted: " & objFolder.Encrypted
        Wscript.Echo "Encryption method: " & objFolder.EncryptionMethod
        Wscript.Echo "Hidden: " & objFolder.Hidden
        Wscript.Echo "In use count: " & objFolder.InUseCount
        Wscript.Echo "Last accessed: " & objFolder.LastAccessed
        Wscript.Echo "Last modified: " & objFolder.LastModified
        Wscript.Echo "Name: " & objFolder.Name
        Wscript.Echo "Path: " & objFolder.Path
        Wscript.Echo "Readable: " & objFolder.Readable
        Wscript.Echo "System: " & objFolder.System
        Wscript.Echo "Writeable: " & objFolder.Writeable
    Next

     

     

    http://msdn2.microsoft.com/en-us/library/aa394130(VS.85).aspx

     

     

    Si mal no recuerdo no se puede encriptar de esta forma.

    lunes, 31 de marzo de 2008 21:31
  •  

    Podrias probar con cipher.exe
    martes, 1 de abril de 2008 12:03

Todas las respuestas

  • Aqui tienes como recuperar todos los atributos de una carpeta:

     

    Code Snippet

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colFolders = objWMIService.ExecQuery _
        ("SELECT * FROM Win32_Directory WHERE Name = 'c:\\Temp'")
    For Each objFolder in colFolders
        Wscript.Echo "Archive: " & objFolder.Archive
        Wscript.Echo "Caption: " & objFolder.Caption
        Wscript.Echo "Compressed: " & objFolder.Compressed
        Wscript.Echo "Compression method: " & objFolder.CompressionMethod
        Wscript.Echo "Creation date: " & objFolder.CreationDate
        Wscript.Echo "Encrypted: " & objFolder.Encrypted
        Wscript.Echo "Encryption method: " & objFolder.EncryptionMethod
        Wscript.Echo "Hidden: " & objFolder.Hidden
        Wscript.Echo "In use count: " & objFolder.InUseCount
        Wscript.Echo "Last accessed: " & objFolder.LastAccessed
        Wscript.Echo "Last modified: " & objFolder.LastModified
        Wscript.Echo "Name: " & objFolder.Name
        Wscript.Echo "Path: " & objFolder.Path
        Wscript.Echo "Readable: " & objFolder.Readable
        Wscript.Echo "System: " & objFolder.System
        Wscript.Echo "Writeable: " & objFolder.Writeable
    Next

     

     

    http://msdn2.microsoft.com/en-us/library/aa394130(VS.85).aspx

     

     

    Si mal no recuerdo no se puede encriptar de esta forma.

    lunes, 31 de marzo de 2008 21:31
  • Gracias Pablo, si habia encontrado eso en el Script Center, mi pregunta era mas como modificar esos atributos, porque necesito encriptar la carpeta "Mis documentos" de todos los usuarios en el dominio (+300 usuarios), ahora lo del script es una alternativa que se me ocurrio y sino es posible por este medio, como puedo hacerlo???

     

    de todas formas tengo puesto una pregunta en la seccion de "directorio activo" en el caso que esto se pueda hacer por politica.

    lunes, 31 de marzo de 2008 22:07
  •  

    Podrias probar con cipher.exe
    martes, 1 de abril de 2008 12:03
  • oie
     
    creo una carpeta nueva y al cambiar de nombre me dice q no existe
     
    y en atributos aparece como solo lectura
     
    lo cambio pero cuando le doy en aceptar vuelve a pasar lo mismo
     
    como le puedo hacer?
    domingo, 5 de octubre de 2008 21:44