none
Bloquera Arquivos em Maquinas cliente RRS feed

  • Pergunta

  • A minha rede é formada por servidores 2003

    e as estações por XP e windows 7.

    COmo eu faço para saber quais computadores tem arquivos MP3 no disco local?

    Como faço para bloquear que os usuarios não salvem no disco local apenas arquivos mp3 ou de musica.?Como o FSRM faz hoje.


    Thiago Cardoso Luiz - MCP W2k3 MCTS http://t-cardoso.blogspot.com/ Caso seja util VOTE e COLOQUE COMO RESPOSTA
    terça-feira, 11 de maio de 2010 19:41
    Moderador

Respostas

  • So completando....

    Vc pode usar script para fazer varredura na unidade C:

     

    dim numeroCont,numeroTamanho,nomeComputador,textoNew

    nomeComputador = "."

    numeroCont = 0

    numeroTamanho = 0

    Const ForAppending = 8

    set objetoFSO = CreateObject("Scripting.FileSystemObject")

    systime = Now()

    textoNew = "check-ext.txt"

    'on error resume next

    set objetoSF = objetoFSO.OpenTextFile (textoNew, ForAppending, True)

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & nomeComputador & "\root\cimv2")

    Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile where drive = 'C:' and extension ='mp3' or extension ='mpg' or extension ='avi' or extension ='wma' or extension ='rmvb' or extension ='mp4' ")

    for each objFile in colFiles

    Set objetoSF2 = objetoFSO.GetFile (objFile.name)

    numeroCont = numeroCont +1

    numeroTamanho = numeroTamanho + cdbl(round(objfile.filesize/1024))

    ArquivoInfo = "Arquivo: " & objfile.name & vbCrLf & "Tamanho :" & cdbl(round(objfile.filesize/1024)) & "Kb" & vbCrLf & "Date last modified:" & objetoSF2.DateLastModified & vbCrLf

    objetoSf.writeline ArquivoInfo

    Next

    objetoSF.writeline ":: Imprime totais ::"

    objetoSF.writeline "Arquivos: " & numeroCont

    objetoSF.writeline "Tamanho: " & numeroTamanho & "Kb"

    objetoSF.writeline ":: Terminou ::"

    objetoSF.close


    David Dellacenta http://daviddellacenta.spaces.live.com || http://www.andersonpatricio.org || http://www.itcentral.com.br || http://lfdias.mvpbrasil.com.br || http://ffazzani.spaces.live.com
    terça-feira, 11 de maio de 2010 20:21

Todas as Respostas

  • Boa tarde,

    Cara, por GPO se você dizer que não pode utilizar o arquivo MP3 ele nao conseguira utilizar.

    Para proibir a gravação, você pode utilizar a solução de segurança, qual antivirus você utiliza?

    terça-feira, 11 de maio de 2010 20:07
  • So completando....

    Vc pode usar script para fazer varredura na unidade C:

     

    dim numeroCont,numeroTamanho,nomeComputador,textoNew

    nomeComputador = "."

    numeroCont = 0

    numeroTamanho = 0

    Const ForAppending = 8

    set objetoFSO = CreateObject("Scripting.FileSystemObject")

    systime = Now()

    textoNew = "check-ext.txt"

    'on error resume next

    set objetoSF = objetoFSO.OpenTextFile (textoNew, ForAppending, True)

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & nomeComputador & "\root\cimv2")

    Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile where drive = 'C:' and extension ='mp3' or extension ='mpg' or extension ='avi' or extension ='wma' or extension ='rmvb' or extension ='mp4' ")

    for each objFile in colFiles

    Set objetoSF2 = objetoFSO.GetFile (objFile.name)

    numeroCont = numeroCont +1

    numeroTamanho = numeroTamanho + cdbl(round(objfile.filesize/1024))

    ArquivoInfo = "Arquivo: " & objfile.name & vbCrLf & "Tamanho :" & cdbl(round(objfile.filesize/1024)) & "Kb" & vbCrLf & "Date last modified:" & objetoSF2.DateLastModified & vbCrLf

    objetoSf.writeline ArquivoInfo

    Next

    objetoSF.writeline ":: Imprime totais ::"

    objetoSF.writeline "Arquivos: " & numeroCont

    objetoSF.writeline "Tamanho: " & numeroTamanho & "Kb"

    objetoSF.writeline ":: Terminou ::"

    objetoSF.close


    David Dellacenta http://daviddellacenta.spaces.live.com || http://www.andersonpatricio.org || http://www.itcentral.com.br || http://lfdias.mvpbrasil.com.br || http://ffazzani.spaces.live.com
    terça-feira, 11 de maio de 2010 20:21
  • para fazer uma varredura não precisaria de um script desses...nao me leve a mal

    Você pode ir no Explorer e localizar a unidade C: e dar um CTRL+F para procurar arquivos em especifico nesta unidade.

    então procure por *.mp3 ou *.wma e assim vai....


    Danilo Peixoto MCP, CSSA (Certified SonicWALL Security Administrator)
    terça-feira, 11 de maio de 2010 20:25
  • Danilo,

     

    Esse script é para fazer varedura pela rede.

    O procedimento que você passou é apenas para procura local.

    Leia os posts com atenção, a finalidade do forum é ajudar, não confundir as informações.

    Abraços,

     

    terça-feira, 11 de maio de 2010 20:32
  • Bom,

    Como o intuito e saber quais maquinas tem certas extensoes de arquivos, vc pode colocar esse script para rodar em todas as maquinas colocar o log para ser salvo em uma pasta compartilhada e depois fazer a anilse evitarar de ir em maquina por maquina!!

    Acredito que o processo seria mais rapido.


    David Dellacenta http://daviddellacenta.spaces.live.com || http://www.andersonpatricio.org || http://www.itcentral.com.br || http://lfdias.mvpbrasil.com.br || http://ffazzani.spaces.live.com
    terça-feira, 11 de maio de 2010 20:33