Passagem de parâmetros

Todas as Respostas

• 

  

  0

  Entrar para Votar

  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

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  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

  Responder

  |

  Citação
• 

  

  0

  Entrar para Votar

  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

  Responder

  |

  Citação