Listando Estrutura de uma Pasta e suas Subpastas – VBS


Listando a estrutura de um diretório

Aplicação: Pode ser muito útil para fazer um levantamento em Servidores de Arquivos para listar as pastas de uma árvore de um diretório.

Salve como VBS e execute no Prompt O resulado pode ser direcionado para um arquivo .TXT por Exemplo:
CSCRIPT Teste.VBS > Texte.txt Vai ter a lista com a estrurura de pastas, a partir da pasta e diretorio de rede que informou dentro do Script no parâmetro “H:\Pasta_Rede\”

Pode ser um diretório local ou de Rede

Set objFSO = CreateObject("Scripting.FileSystemObject")
'colque o nome da pasta que você quer gerar o relatório, não deixe de usar a \ no final.
objStartFolder = "H:\Pasta_Rede\"

Set objFolder = objFSO.GetFolder(objStartFolder)
'Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
'Wscript.Echo objFile.Name
Next
'Wscript.Echo

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Wscript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
strFile = Subfolder.Path & "\" & objFile.Name 
Set colItems = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_LogicalFileSecuritySetting='" & strFile & "'}" _ 
& " WHERE AssocClass=Win32_LogicalFileOwner ResultRole=Owner")
For Each objItem in colItems
'Wscript.Echo objItem.ReferencedDomainName
Wscript.Echo "Arquivo: " & objFile.Name & " Owner: " & objItem.AccountName
Wscript.Echo 
Next 
Next
Wscript.Echo "------------------------------------------------------------------------------------------------"
Wscript.Echo
ShowSubFolders Subfolder
Next
End Sub
wscript.quit

Abs

Advertisements

About cpdwagner

MCC | MCP | MCDST | MCSA | MCSE | MCTS | MCITP | MCITP-SA | MCITP-EA | ITILF

Posted on 15/06/2012, in Todos os Posts and tagged , , . Bookmark the permalink. Leave a comment.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: