VBS -> bat avec argument - VB/VBA/VBS - Programmation
MarshPosté le 09-04-2010 à 16:16:31
Bonjour
Dans un soucis de praticité je dois lancé un vbs qui parcourt un dossier et récupère le nom des sous-dossiers afin d'associer les droits ntfs correspondant (nom du dossier = login des users). Ce script lance ensuite un vbs afin de travailler sur les acl
Le début du script fonctionne parfaitement, en revanche j'ai quelque soucis pour lancer mon bat (qui fonctionne parfaitement en solitaire)
voici mon vbs, si quelqu'un voit d'ou ça vient:
Dim stRep 'Nom du répertoire à parcourir Dim oFSO,oFld Set oFSO = CreateObject("Scripting.FileSystemObject" ) stRep = "\\icchq.org\FILES\ICC_Common\temporaire_PDF" If oFSO.FolderExists(stRep) Then For each oFld in oFSO.GetFolder(stRep).SubFolders Set Sh = CreateObject("WScript.Shell" ) Sh.Run ("cmd c/ call " & chr(34) & " C:\Program Files\PDFCreator\xcacls\CNUK.cmd" & chr(34) & " " & oFld.Name Set Sh = Nothing Next End If
Marsh Posté le 09-04-2010 à 16:16:31
Bonjour
Dans un soucis de praticité je dois lancé un vbs qui parcourt un dossier et récupère le nom des sous-dossiers afin d'associer les droits ntfs correspondant (nom du dossier = login des users). Ce script lance ensuite un vbs afin de travailler sur les acl
Le début du script fonctionne parfaitement, en revanche j'ai quelque soucis pour lancer mon bat (qui fonctionne parfaitement en solitaire)
voici mon vbs, si quelqu'un voit d'ou ça vient:
Dim stRep 'Nom du répertoire à parcourir
Dim oFSO,oFld
Set oFSO = CreateObject("Scripting.FileSystemObject" )
stRep = "\\icchq.org\FILES\ICC_Common\temporaire_PDF"
If oFSO.FolderExists(stRep) Then
For each oFld in oFSO.GetFolder(stRep).SubFolders
Set Sh = CreateObject("WScript.Shell" )
Sh.Run ("cmd c/ call " & chr(34) & " C:\Program Files\PDFCreator\xcacls\CNUK.cmd" & chr(34) & " " & oFld.Name
Set Sh = Nothing
Next
End If
Merci d'avance à tous !