none
Passagem de parâmetros RRS feed

  • Pergunta

  • Tenho dois scripts.

     

    O primeiro lista as pastas de um determinado local

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder("\\Teste\c$\Arquivos")
      Set colSubfolders = objFolder.Subfolders

    For Each objSubfolder in colSubfolders
          Wscript.Echo objSubfolder.Path
      Next

     

    O segundo é o xcacls.vbs que lista as permissões de determinada pasta ou arquivo.

     

    Como fazer para o xcacls.vbs receber os caminhos listados pelo primeiro script???

    quarta-feira, 23 de maio de 2007 19:42

Respostas

  • Usa que eu acabei de fazer:

    Nem precisa da segunda linha. 

    Code Snippet

    Set objShell = CreateObject("Wscript.Shell")
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      strPath = "C:\temp\"

    objShell.Run "cmd.exe /c cscript.exe D:\RUNAS\scripts\xcacls.vbs " & strPath & " /s /t > C:\temp\log.txt"

    wscript.quit

     

     

     

    Code Snippet

    Segue o log gerado!

     

    Microsoft (R) Windows Script Host VersÆo 5.6
    Copyright (C) 1996-2001 Microsoft Corporation. Todos os direitos reservados.

    Starting XCACLS.VBS (Version: 5.2) Script at 25/5/2007 08:59:31

    Startup directory:
    "D:\RUNAS\scripts"

    Arguments Used:
     Filename = "C:\temp\"
     /S (All Sub Directories under current directory)
     /T (Traverse Directories)

     

    **************************************************************************
    Directory: C:\Temp

    Permissions:
    Type     Username                                    Permissions                  Inheritance                       

    Allowed  BUILTIN\Administradores                     Full Control                 This Folder, Subfolders and Files 
    Allowed  \PROPRIETµRIO CRIADOR                       Full Control                 Subfolders and Files only         
    Allowed  AUTORIDADE NT\SYSTEM                        Full Control                 This Folder, Subfolders and Files 
    Allowed  BUILTIN\Usu rios                            Modify                       This Folder, Subfolders and Files 

    No Auditing set

    Owner: BUILTIN\Administradores
    **************************************************************************


    Operation Complete
    Elapsed Time: 0,609375 seconds.

    Ending Script at 25/5/2007 08:59:32

     

     

    Boa sorte cara

     

    sexta-feira, 25 de maio de 2007 12:04

Todas as Respostas

  • Acho que vc pode usar assim :

    Usei um artigo do Vinicius como base:

    http://www.microsoft.com/brasil/technet/Colunas/ViniciusCanto/Criandoscripts_p3.mspx

     

     

    Set objShell = CreateObject("Wscript.Shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder("\\Teste\c$\Arquivos")
      Set colSubfolders = objFolder.Subfolders

     

    For Each objSubfolder in colSubfolders
        objShell.Run "cmd.exe /c cscript.exe xacls.vbs + parâmetros " & objSubfolder.Path
        Wscript.run  &   Next

     

    Abraço.

    'testa primeiro em um outro ambiente!!!

    'abraço.

    'ps.: leia o artigo do link também...

    quinta-feira, 24 de maio de 2007 10:59
  • Romeu valeu pela ajuda. Mas minha dúvida é como passar o parâmetro.

     

    Nessa linha

     

      objShell.Run "cmd.exe /c cscript.exe xacls.vbs + parâmetros " & objSubfolder.Path

    é como passar o " parâmetros".

     

    Mais uma vez obrigado.

     

     Romeu Malacarne Avancini wrote:

    Acho que vc pode usar assim :

    Usei um artigo do Vinicius como base:

    http://www.microsoft.com/brasil/technet/Colunas/ViniciusCanto/Criandoscripts_p3.mspx

     

     

    Set objShell = CreateObject("Wscript.Shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder("\\Teste\c$\Arquivos")
      Set colSubfolders = objFolder.Subfolders

     

    For Each objSubfolder in colSubfolders
        objShell.Run "cmd.exe /c cscript.exe xacls.vbs + parâmetros " & objSubfolder.Path
        Wscript.run  &   Next

     

    Abraço.

    'testa primeiro em um outro ambiente!!!

    'abraço.

    'ps.: leia o artigo do link também...

    quinta-feira, 24 de maio de 2007 12:58
  • Usa que eu acabei de fazer:

    Nem precisa da segunda linha. 

    Code Snippet

    Set objShell = CreateObject("Wscript.Shell")
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      strPath = "C:\temp\"

    objShell.Run "cmd.exe /c cscript.exe D:\RUNAS\scripts\xcacls.vbs " & strPath & " /s /t > C:\temp\log.txt"

    wscript.quit

     

     

     

    Code Snippet

    Segue o log gerado!

     

    Microsoft (R) Windows Script Host VersÆo 5.6
    Copyright (C) 1996-2001 Microsoft Corporation. Todos os direitos reservados.

    Starting XCACLS.VBS (Version: 5.2) Script at 25/5/2007 08:59:31

    Startup directory:
    "D:\RUNAS\scripts"

    Arguments Used:
     Filename = "C:\temp\"
     /S (All Sub Directories under current directory)
     /T (Traverse Directories)

     

    **************************************************************************
    Directory: C:\Temp

    Permissions:
    Type     Username                                    Permissions                  Inheritance                       

    Allowed  BUILTIN\Administradores                     Full Control                 This Folder, Subfolders and Files 
    Allowed  \PROPRIETµRIO CRIADOR                       Full Control                 Subfolders and Files only         
    Allowed  AUTORIDADE NT\SYSTEM                        Full Control                 This Folder, Subfolders and Files 
    Allowed  BUILTIN\Usu rios                            Modify                       This Folder, Subfolders and Files 

    No Auditing set

    Owner: BUILTIN\Administradores
    **************************************************************************


    Operation Complete
    Elapsed Time: 0,609375 seconds.

    Ending Script at 25/5/2007 08:59:32

     

     

    Boa sorte cara

     

    sexta-feira, 25 de maio de 2007 12:04