Autorisations et contrôle d'accès

[mmvik]

Bonjour,
J'ai fait une grosse bourde, j'ai exécuté :

ICACLS "c:" /Setintegritylevel (OI)(CI)Low

Je souhaite supprimer cette restriction (annuler l'action), je cherche sans trouver... avez-vous une solution svp ?

[hackoofr]

Envoyé par mmvik

Bonjour,
J'ai fait une grosse bourde, j'ai exécuté :
ICACLS "c:" /Setintegritylevel (OI)(CI)Low
Je souhaite supprimer cette restriction (annuler l'action), je cherche sans trouver... avez-vous une solution svp ?

est-ce-que tu as consulté le help de cette commande ?

Code :

ICACLS /?

[mmvik]

Oui, mais çà ne m'aide pas vraiment, je suis perdu dans les fonctions, entre /remove ou /reset.

[hackoofr]

Envoyé par mmvik

Oui, mais çà ne m'aide pas vraiment, je suis perdu dans les fonctions, entre /remove ou /reset.

essaye avec /remove

Code :

1
2
3
4
5
/remove[:[g|d]] SID : supprime toutes les occurrences de SID dans la liste de contrôle d'accès. Avec
       :g, toutes les occurrences de droits accordés … ce SID sont
        supprimées. 
Avec
       :d, toutes les occurrences de droits refusés … ce SID sont supprimées

[mmvik]

J'ai fait :

icacls "c:" /removed:d "Nom d'utilisateur windows"

mais çà n'a pas restauré les droits.

[hackoofr]

Envoyé par mmvik

J'ai fait :

icacls "c:" /removed:d "Nom d'utilisateur windows"

mais çà n'a pas restauré les droits.

/remove et non pas removed

[mmvik]

désolé, c'est bien remove que j'ai fait, çà n'a pas rien changé.

[hackoofr]

Envoyé par mmvik

désolé, c'est bien remove que j'ai fait, çà n'a pas rien changé.

voila essaye ce Vbscript:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set WshShellObj = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShellObj.Environment("Process")
nomUser = WshProcessEnv("USERNAME")
Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
Set oCptes = oWMI.ExecQuery(  "Select * From Win32_UserAccount Where Name ='" & nomUser & "'")
For Each oCpte In oCptes
	'Wscript.Echo  oCpte.Name & "  = " & oCpte.SID
	SID = oCpte.SID
Next
msgbox "Le Nom d'utlisateur est : "& NomUSer & Vbcrlf &_
"Le SID est : " & SID,64,"Le Nom d'utlisateur et le SID"
Command = "%COMSPEC% /c icacls c: /remove:d " & qq(NomUSer) & " > Permissions.txt" 'avec redirection dans un fichier pour voir le résultat de la commande
 Result = objShell.Run(Command,0,True)'exécution de la commande sans afficher la console MS-DOS
If Result <> 0 Then
   MsgBox "Permission sur le C: est non fait",16,"Permission sur le C: est non fait"
End If

Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

[mmvik]

Merci hackoofr.

La 1ère boite de dialogue du VBscript indique le nom d'utilisateur et le SID, ok.
Voici la 2ème boite de dialogue


Faut-il que j'exécute ce VBscript en .bat et en ligne de commande ?

[hackoofr]

Envoyé par mmvik

Merci hackoofr.

La 1ère boite de dialogue du VBscript indique le nom d'utilisateur et le SID, ok.
Voici la 2ème boite de dialogue


Faut-il que j'exécute ce VBscript en .bat et en ligne de commande ?

Oui tu as raison parce que j'ai oublié de changer le nom de variable WshShellObj mais essaye-le maintenant en Vbscript Bien sûr :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set WshShellObj = CreateObject("WScript.Shell")
Set WshProcessEnv = WshShellObj.Environment("Process")
nomUser = WshProcessEnv("USERNAME")
Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
Set oCptes = oWMI.ExecQuery(  "Select * From Win32_UserAccount Where Name ='" & nomUser & "'")
For Each oCpte In oCptes
	'Wscript.Echo  oCpte.Name & "  = " & oCpte.SID
	SID = oCpte.SID
Next
msgbox "Le Nom d'utlisateur est : "& NomUSer & Vbcrlf &_
"Le SID est : " & SID,64,"Le Nom d'utlisateur et le SID"
Command = "%COMSPEC% /c icacls c: /remove:d " & qq(NomUSer) & " > Permissions.txt" 'avec redirection dans un fichier pour voir le résultat de la commande
 Result = WshShellObj.Run(Command,0,True)'exécution de la commande sans afficher la console MS-DOS
If Result <> 0 Then
   MsgBox "Permission sur le C: est non fait",16,"Permission sur le C: est non fait"
End If

Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

[mmvik]

Permissions.txt :

fichier trait‚ÿ: c:
1 fichiers correctement trait‚sÿ; ‚chec du traitement de 0 fichiers

Le problème persiste.

[hackoofr]

Envoyé par mmvik

Permissions.txt :
fichier trait‚ÿ: c:
1 fichiers correctement trait‚sÿ; ‚chec du traitement de 0 fichiers
Le problème persiste.

Vous avez quoi comme restrictions ? sur le lecteur C:\ ou bien autre chose ?
Est-ce vous pouvez accéder a votre disque dur ?

[mmvik]

Oui, j'ai accès à C: mais...

- Lorsque j'ouvre un .exe j'ai systématiquement cette boite de dialogue :


- Certains programmes qui ont des paramètres personnalisés ne sont pas pris en compte, par exemple :


- Je ne peux plus afficher les fichiers cachés et fichiers systèmes (lorsque les cases sont décochées)

- Je n'ai plus accès à la corbeille

- Je ne peux plus créer/modifier les fichiers/dossiers dans C:\Program Files et C:\Program Files (x86)

- Il y a sans doute d'autres "restrictions", je n'ai pas tout testé

Ceci est dû à mon erreur dans cmd :
ICACLS "c:" /Setintegritylevel (OI)(CI)Low

Je suis en administrateur, je n'ai qu'un DD (windows est installé dessus).
Je n'ai pas (encore) rebooté depuis cette bourde...

[hackoofr]

Envoyé par mmvik

Oui, j'ai accès à C: mais...
- Lorsque j'ouvre un .exe j'ai systématiquement cette boite de dialogue :


- Certains programmes qui ont des paramètres personnalisés ne sont pas pris en compte, par exemple :


- Je ne peux plus afficher les fichiers cachés et fichiers systèmes (lorsque les cases sont décochées)

- Je n'ai plus accès à la corbeille

- Je ne peux plus créer/modifier les fichiers/dossiers dans C:\Program Files et C:\Program Files (x86)

- Il y a sans doute d'autres "restrictions", je n'ai pas tout testé

Ceci est dû à mon erreur dans cmd :
ICACLS "c:" /Setintegritylevel (OI)(CI)Low
Je suis en administrateur, je n'ai qu'un DD (windows est installé dessus).
Je n'ai pas (encore) rebooté depuis cette bourde...

surtout ne perds pas patience et il faut aller petit à petit moi aussi j'essaye de comprendre tu as voulu faire quoi avec cette commande

Code :

ICACLS "c:" /Setintegritylevel (OI)(CI)Low

[mmvik]

Je souhaitais désactiver toutes les boites de dialogue type "avertissement de sécurité" avant d'exécuter un programme.

J'ai cherché une solution sur des forums...

Code :

1
2
3
ICACLS "%ProgramFiles%" /Setintegritylevel Low
puis
ICACLS "%HOMEDRIVE%" /Setintegritylevel (OI)(CI)Low

En fait, c'est tout l'inverse. Car "Low" attribue "peu" de droits....

Je vais être patient car je n'ai pas le choix...
Merci beaucoup pour ton aide

Peux-tu voir les pièces jointes ?

[hackoofr]

Envoyé par mmvik

Je souhaitais désactiver toutes les boites de dialogue type "avertissement de sécurité" avant d'exécuter un programme.
J'ai cherché une solution sur des forums...

Code :

En fait, c'est tout l'inverse. Car "Low" attribue "peu" de droits....
Je vais être patient car je n'ai pas le choix...
Merci beaucoup pour ton aide

essaye encore ce script VBS :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set WshShellObj = CreateObject("WScript.Shell")
Set WshProcessEnv = WshShellObj.Environment("Process")
nomUser = WshProcessEnv("USERNAME")
Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
Set oCptes = oWMI.ExecQuery(  "Select * From Win32_UserAccount Where Name ='" & nomUser & "'")
For Each oCpte In oCptes
	'Wscript.Echo  oCpte.Name & "  = " & oCpte.SID
	SID = oCpte.SID
Next
msgbox "Le Nom d'utlisateur est : "& NomUSer & Vbcrlf &_
"Le SID est : " & SID,64,"Le Nom d'utlisateur et le SID"
Command = "%COMSPEC% /c icacls %Homedrive% /remove:d " & qq(NomUSer) & " /T > Permissions.txt" 'avec redirection dans un fichier pour voir le résultat de la commande
 Result = WshShellObj.Run(Command,0,True)'exécution de la commande sans afficher la console MS-DOS
If Result <> 0 Then
   MsgBox "Permission sur le C: est non fait",16,"Permission sur le C: est non fait"
End If

Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function

[mmvik]

Puis Permissions.txt :
fichier traité: C:
1 fichiers correctement traité; échec du traitement de 1 fichiers

Résultat : Toujours restreint...

Existe-t-il une fonction pour réinitialiser les permissions ?

[hackoofr]

et ceci en ligne de commande tu l'as essayer ?

Code :

ICACLS "%HOMEDRIVE%" /Setintegritylevel (OI)(CI):High

[mmvik]

non malheureusement...

[hackoofr]

Je ne sais pas si le système te laisse exécuter ce Vbscript pour désactiver le UAC mais il te faut un reboot

Code :

1
2
3
4
5
6
Function DesactiverUAC
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA",0, "REG_DWORD"
end Function
Call DesactiverUAC

sinon on peut le désactiver manuellement si vous êtes sous Win 7:
Panneau de configuration -> Comptes utilisateurs -> Modifier les paramètres de contrôle de compte utilisateur
Descendez le curseur au niveau le plus bas : ne jamais m'avertir.
pour plus d'information visitez cette page de FAQ : http://www.toutwindows.com/win7_uac.shtml#6