none
Listar arquivos de usuários de rede RRS feed

  • Pergunta

  • Boa tarde!

    Gostaria de saber se é possível através de um script ou aplicativo listar os MB que cada usuário ocupa em um determinado diretório, pois estamos implementando quotas de disco e gostariamos de avaliar quanto cada usuário possui atualmente de arquivos!!


    Luis Bissani Infraestrutura de TI
    terça-feira, 23 de agosto de 2011 19:40

Respostas

  • Veja se lhe ajuda colocado em MB.
    

    Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
    colDiskQuotas.Initialize "C:\", True
     
    For Each objUser in colDiskQuotas
     Valor = objUser.QuotaUsed
     valor2 = 1048576
     divisao = Valor / 1048576
     Wscript.Echo "Logon name: " & objUser.LogonName
     Wscript.Echo "Quota used: " & divisao & "MB" 
    Next
    

    Abraços

     

     

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:15
    terça-feira, 30 de agosto de 2011 18:20

Todas as Respostas

  • Se os dados do usuários estiverem em uma pasta unica dá para saber pelo windirstat, mas se você quiser saber todos os arquivos espalhados por um driver... terei que pesquisar tambem...

    Abraços

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    terça-feira, 23 de agosto de 2011 19:58
  • Na verdade este windirstat lista o que o Windows lista, eu queria uma ferramenta que dissesse quandos MB um usuário tem em determinado diretório entende, para provisionar uma quota de disco correta!!
    Luis Bissani Infraestrutura de TI
    terça-feira, 23 de agosto de 2011 20:33
  • Ola Luis,

    Você deve ativar a quota do driver sem colocar nenhuma restrição, após rode o script a baixo.

    ' List Disk Space by User on the Local Computer
    
    
    Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
    colDiskQuotas.Initialize "C:\", True
     
    For Each objUser in colDiskQuotas
      Wscript.Echo "Logon name: " & objUser.LogonName
      Wscript.Echo "Quota used: " & objUser.QuotaUsed
    Next
    

    Espero lhe ajudar.

    Abraços


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    terça-feira, 23 de agosto de 2011 23:57
  • Interessante, porém ele mostra o espaço em bytes ao que parece, tem como mostrar em MB?

    Estou testando também pelos reports do FSRM, tem algo lá que faz isto!!

     

    Obrigado.


    Luis Bissani Infraestrutura de TI
    sábado, 27 de agosto de 2011 19:38
  • Bom dia Luis,

    Para converter Bytes em Megabytes, basta dividir o valor por 1048576 ou dividir por 1024 para transformar em Kbytes e depois mais uma vez por 1024 para transformar em Megabyte.

    Pelo que pude ver o FSRM é mais para controle de formato de documento e não para contorle de disco,

    http://support.microsoft.com/kb/926092/pt-br

     

    Veja se lhe ajuda.

     

    Abraços.

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    segunda-feira, 29 de agosto de 2011 11:38
  • Ok, preciso de algo bem automatizado..Tem tantos usuários que transformar as unidades de tamanho está fora de questão.

    Mas vamos ver o que conseguimos com o FSRM.

     

     

     

     


    Luis Bissani Infraestrutura de TI
    terça-feira, 30 de agosto de 2011 01:22
  • Veja se lhe ajuda colocado em MB.
    

    Set colDiskQuotas = CreateObject("Microsoft.DiskQuota.1")
    colDiskQuotas.Initialize "C:\", True
     
    For Each objUser in colDiskQuotas
     Valor = objUser.QuotaUsed
     valor2 = 1048576
     divisao = Valor / 1048576
     Wscript.Echo "Logon name: " & objUser.LogonName
     Wscript.Echo "Quota used: " & divisao & "MB" 
    Next
    

    Abraços

     

     

     


    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta Richard Juhasz quinta-feira, 1 de setembro de 2011 20:15
    terça-feira, 30 de agosto de 2011 18:20