Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

xcalc.vbs et permission avancées

8 réponses
Avatar
ben
Bonjour,

J'aimerais modifier les permissions avancées (special permissions) de
plusieurs dosssiers, comme les attributs,....

Apparemment xcacls.vbs ne le permet pas ?.
Voici les permisssion que je désire appliquer sur un dossier par exemple :

\\FS1\10cm1$\Remise_des_devoirs\,True,True,BUILTIN,Administrators,Allow,False,LTECG-PEDA,10cm1,Special
(LfRaCfWaTf),This folder subfolders and
files,S-1-5-21-842925246-113007714-725345543-2067,LfRaCfWaTf

Quelqu'un à une idée ?.
Merci.
Cordialement.

8 réponses

Avatar
Méta-MCI (MVP)
Bonjour !


une idée ?



subinacl ?


@+
--
Michel Claveau
Avatar
ben
Bonjour,


En exécutant ce script :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")

cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
ltecg-peda"& ligne & ":M /E"
msgbox cde
wshShell.Run cde,,true

J'ai l'erreur suivante :

Error: Object required: 'wshShell'
Code: 800A01A8

Apparemment il y a une erreur d'execution de xcacls.

Avez-vous une idée ?.

Merci.

Cordialement.
Avatar
Michel__D
Bonjour,

ben a écrit :
Bonjour,


En exécutant ce script :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")

cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
ltecg-peda"& ligne & ":M /E"
msgbox cde
wshShell.Run cde,,true

J'ai l'erreur suivante :

Error: Object required: 'wshShell'
Code: 800A01A8

Apparemment il y a une erreur d'execution de xcacls.

Avez-vous une idée ?.



Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
de la méthode Run de la variable objet wshShell qui n'est pas défini.

Donc soit :
Set wshShell=CreateObject("WScript.Shell")
wshShell.Run cde,,true

ou soit
CreateObject("WScript.Shell").Run cde,,True

PS:Apparemment il y aurait le même problème au niveau de :
Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")

La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
Set fsocreate = CreateObject("Scripting.FileSystemObject")
Avatar
ben
Merci.

Après la definition du wshell, j'ai le message suivant :

---------------------------
Windows Script Host
---------------------------
You are not using CScript for the scripting engine.
Screen messages will be surpressed.
---------------------------
OK
---------------------------

Que signifie-t-il exactement et comment passer outre ?.

Cordialememt.



"Michel__D" wrote:

Bonjour,

ben a écrit :
> Bonjour,
>
>
> En exécutant ce script :
>
> Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
> "Commun")
>
> cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
> ltecg-peda"& ligne & ":M /E"
> msgbox cde
> wshShell.Run cde,,true
>
> J'ai l'erreur suivante :
>
> Error: Object required: 'wshShell'
> Code: 800A01A8
>
> Apparemment il y a une erreur d'execution de xcacls.
>
> Avez-vous une idée ?.

Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
de la méthode Run de la variable objet wshShell qui n'est pas défini.

Donc soit :
Set wshShell=CreateObject("WScript.Shell")
wshShell.Run cde,,true

ou soit
CreateObject("WScript.Shell").Run cde,,True

PS:Apparemment il y aurait le même problème au niveau de :
Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")

La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
Set fsocreate = CreateObject("Scripting.FileSystemObject")



Avatar
Michel__D
re,

ben a écrit :
Merci.

Après la definition du wshell, j'ai le message suivant :

---------------------------
Windows Script Host
---------------------------
You are not using CScript for the scripting engine.
Screen messages will be surpressed.
---------------------------
OK
---------------------------

Que signifie-t-il exactement et comment passer outre ?.

Cordialememt.




Tu as de la chance j'avais le script qui traînait dans un coin.

Donc en gros l'affichage est différent selon le moteur de script employé
CScript ou WScript)

PS:Tu peux préciser quel moteur de script doit être utilisé au niveau de
la ligne de commande.

Pour avoir plus d'info lançer en ligne de commande :
CScript xcacls.vbs /?

et pour l'info sur les moteurs de script
WScript /?
ou
CScript /?


"Michel__D" wrote:

Bonjour,

ben a écrit :
Bonjour,


En exécutant ce script :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")

cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
ltecg-peda"& ligne & ":M /E"
msgbox cde
wshShell.Run cde,,true

J'ai l'erreur suivante :

Error: Object required: 'wshShell'
Code: 800A01A8

Apparemment il y a une erreur d'execution de xcacls.

Avez-vous une idée ?.


Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
de la méthode Run de la variable objet wshShell qui n'est pas défini.

Donc soit :
Set wshShell=CreateObject("WScript.Shell")
wshShell.Run cde,,true

ou soit
CreateObject("WScript.Shell").Run cde,,True

PS:Apparemment il y aurait le même problème au niveau de :
Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")

La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
Set fsocreate = CreateObject("Scripting.FileSystemObject")





Avatar
ben
Merci.

Après la definition du wshell, j'ai le message suivant :

---------------------------
Windows Script Host
---------------------------
You are not using CScript for the scripting engine.
Screen messages will be surpressed.
---------------------------
OK
---------------------------

Que signifie-t-il exactement et comment passer outre ?.

Cordialememt.


"Michel__D" wrote:

Bonjour,

ben a écrit :
> Bonjour,
>
>
> En exécutant ce script :
>
> Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
> "Commun")
>
> cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
> ltecg-peda"& ligne & ":M /E"
> msgbox cde
> wshShell.Run cde,,true
>
> J'ai l'erreur suivante :
>
> Error: Object required: 'wshShell'
> Code: 800A01A8
>
> Apparemment il y a une erreur d'execution de xcacls.
>
> Avez-vous une idée ?.

Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
de la méthode Run de la variable objet wshShell qui n'est pas défini.

Donc soit :
Set wshShell=CreateObject("WScript.Shell")
wshShell.Run cde,,true

ou soit
CreateObject("WScript.Shell").Run cde,,True

PS:Apparemment il y aurait le même problème au niveau de :
Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")

La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
Set fsocreate = CreateObject("Scripting.FileSystemObject")



Avatar
ben
Bonjour,

Avez-vous une idée sur l'erreur de configuration des permissions speciales
ntfs :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")
cde = "xcacls.vbs " & "Y:Classes"& ligne & "" & "Commun""
/t /e /g ltecg-pedaadministrators:F ltecg-pedaprofesseurs:M ltecg-peda"&
ligne & ":XLR"
'cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun""
/P ltecg-peda"& ligne & ":M /E" 'valable'
msgbox cde
Set wshShell = WScript.CreateObject("Wscript.Shell")
'definition wshShell.run pour lancer xcacls.vbs
wshShell.Run cde,,true
'xcacls.vbs c:tout /t/g "totoadmins du domaine":f
"toto:aldurant":f /s

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Remise_des_devoirs")
cde = "xcacls.vbs " & "Y:Classes" & ligne & "" &
"Remise_des_devoirs"" /t /e /g ltecg-pedaadministrators:F /g
ltecg-pedaprofesseurs:Spec:618495AB /g ltecg-peda"& ligne & ":Spec:61829"
msgbox cde
wshShell.Run cde,,true

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")
cde = "xcacls.vbs " & "Y:Classes"& ligne & "" & "Commun""
/t /e /g ltecg-pedaadministrators:F ltecg-pedaprofesseurs:M ltecg-peda"&
ligne & ":XLR"
'cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun""
/P ltecg-peda"& ligne & ":M /E" 'valable'
msgbox cde
Set wshShell = WScript.CreateObject("Wscript.Shell")
'definition wshShell.run pour lancer xcacls.vbs
wshShell.Run cde,,true
'xcacls.vbs c:tout /t/g "totoadmins du domaine":f
"toto:aldurant":f /s

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Remise_des_devoirs")
cde = "xcacls.vbs " & "Y:Classes" & ligne & "" &
"Remise_des_devoirs"" /t /e /g ltecg-pedaadministrators:F /g
ltecg-pedaprofesseurs:Spec:618495AB /g ltecg-peda"& ligne & ":Spec:61829"
msgbox cde
wshShell.Run cde,,true

Merci.
Cordialement.

"Michel__D" wrote:

re,

ben a écrit :
> Merci.
>
> Après la definition du wshell, j'ai le message suivant :
>
> ---------------------------
> Windows Script Host
> ---------------------------
> You are not using CScript for the scripting engine.
> Screen messages will be surpressed.
> ---------------------------
> OK
> ---------------------------
>
> Que signifie-t-il exactement et comment passer outre ?.
>
> Cordialememt.


Tu as de la chance j'avais le script qui traînait dans un coin.

Donc en gros l'affichage est différent selon le moteur de script employé
CScript ou WScript)

PS:Tu peux préciser quel moteur de script doit être utilisé au niveau de
la ligne de commande.

Pour avoir plus d'info lançer en ligne de commande :
CScript xcacls.vbs /?

et pour l'info sur les moteurs de script
WScript /?
ou
CScript /?


> "Michel__D" wrote:
>
>> Bonjour,
>>
>> ben a écrit :
>>> Bonjour,
>>>
>>>
>>> En exécutant ce script :
>>>
>>> Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
>>> "Commun")
>>>
>>> cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
>>> ltecg-peda"& ligne & ":M /E"
>>> msgbox cde
>>> wshShell.Run cde,,true
>>>
>>> J'ai l'erreur suivante :
>>>
>>> Error: Object required: 'wshShell'
>>> Code: 800A01A8
>>>
>>> Apparemment il y a une erreur d'execution de xcacls.
>>>
>>> Avez-vous une idée ?.
>> Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
>> de la méthode Run de la variable objet wshShell qui n'est pas défini.
>>
>> Donc soit :
>> Set wshShell=CreateObject("WScript.Shell")
>> wshShell.Run cde,,true
>>
>> ou soit
>> CreateObject("WScript.Shell").Run cde,,True
>>
>> PS:Apparemment il y aurait le même problème au niveau de :
>> Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")
>>
>> La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
>> Set fsocreate = CreateObject("Scripting.FileSystemObject")
>>



Avatar
Michel__D
re,

D'abord est-ce que la ligne suivante existe ?
Set fsocreate = CreateObject("Scripting.FileSystemObject")

Aprés pas besoin de redéclarer la variable wshShell plusieurs fois.

Ensuite vas-y progressivement en vérifiant les valeurs passées en paramêtre.

PS1:Tu peux tester chaque commande en ligne de commande :
CScript xcacls.vbs tes_paramêtres

PS2:Pour réduire la saisie, tu peux utiliser des variables
exemple :
Set Param1=ltecg-pedaadministrators:F

ben a écrit :
Bonjour,

Avez-vous une idée sur l'erreur de configuration des permissions speciales
ntfs :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")
cde = "xcacls.vbs " & "Y:Classes"& ligne & "" & "Commun""
/t /e /g ltecg-pedaadministrators:F ltecg-pedaprofesseurs:M ltecg-peda"&
ligne & ":XLR"
'cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun""
/P ltecg-peda"& ligne & ":M /E" 'valable'
msgbox cde
Set wshShell = WScript.CreateObject("Wscript.Shell")
'definition wshShell.run pour lancer xcacls.vbs
wshShell.Run cde,,true
'xcacls.vbs c:tout /t/g "totoadmins du domaine":f
"toto:aldurant":f /s

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Remise_des_devoirs")
cde = "xcacls.vbs " & "Y:Classes" & ligne & "" &
"Remise_des_devoirs"" /t /e /g ltecg-pedaadministrators:F /g
ltecg-pedaprofesseurs:Spec:618495AB /g ltecg-peda"& ligne & ":Spec:61829"
msgbox cde
wshShell.Run cde,,true

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")
cde = "xcacls.vbs " & "Y:Classes"& ligne & "" & "Commun""
/t /e /g ltecg-pedaadministrators:F ltecg-pedaprofesseurs:M ltecg-peda"&
ligne & ":XLR"
'cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun""
/P ltecg-peda"& ligne & ":M /E" 'valable'
msgbox cde
Set wshShell = WScript.CreateObject("Wscript.Shell")
'definition wshShell.run pour lancer xcacls.vbs
wshShell.Run cde,,true
'xcacls.vbs c:tout /t/g "totoadmins du domaine":f
"toto:aldurant":f /s

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Remise_des_devoirs")
cde = "xcacls.vbs " & "Y:Classes" & ligne & "" &
"Remise_des_devoirs"" /t /e /g ltecg-pedaadministrators:F /g
ltecg-pedaprofesseurs:Spec:618495AB /g ltecg-peda"& ligne & ":Spec:61829"
msgbox cde
wshShell.Run cde,,true

Merci.
Cordialement.

"Michel__D" wrote:

re,

ben a écrit :
Merci.

Après la definition du wshell, j'ai le message suivant :

---------------------------
Windows Script Host
---------------------------
You are not using CScript for the scripting engine.
Screen messages will be surpressed.
---------------------------
OK
---------------------------

Que signifie-t-il exactement et comment passer outre ?.

Cordialememt.



Tu as de la chance j'avais le script qui traînait dans un coin.

Donc en gros l'affichage est différent selon le moteur de script employé
CScript ou WScript)

PS:Tu peux préciser quel moteur de script doit être utilisé au niveau de
la ligne de commande.

Pour avoir plus d'info lançer en ligne de commande :
CScript xcacls.vbs /?

et pour l'info sur les moteurs de script
WScript /?
ou
CScript /?


"Michel__D" wrote:

Bonjour,

ben a écrit :
Bonjour,


En exécutant ce script :

Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" &
"Commun")

cde = "xcacls.vbs ""Y:Classes"& ligne & "" & "Commun"" /P
ltecg-peda"& ligne & ":M /E"
msgbox cde
wshShell.Run cde,,true

J'ai l'erreur suivante :

Error: Object required: 'wshShell'
Code: 800A01A8

Apparemment il y a une erreur d'execution de xcacls.

Avez-vous une idée ?.


Oui, l'erreur ici n'est pas relative à l'exécution de xcacls mais au niveau
de la méthode Run de la variable objet wshShell qui n'est pas défini.

Donc soit :
Set wshShell=CreateObject("WScript.Shell")
wshShell.Run cde,,true

ou soit
CreateObject("WScript.Shell").Run cde,,True

PS:Apparemment il y aurait le même problème au niveau de :
Set f = fsocreate.CreateFolder("Y:Classes" & ligne & "" & "Commun")

La variable objet fsocreate ne serait pas défini et donc il manquerait ceci
Set fsocreate = CreateObject("Scripting.FileSystemObject")