Vbs Droits Admin. sur répertoire
sunkaidsr2003
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
sunkaidsr2003 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
sunkaidsr2003 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis à la recherche d'un script qui ajout un compte utilisateur avec des droits full sur l'ensemble des répertoires d'un serveur 2K3.
J'ai déjà créer le script pour la création de l'utilisateur attacher au groupe Administrateur, mais je bloque sur l'affectation à tout les répertoires du serveur
Merci de votre aide
Je suis à la recherche d'un script qui ajout un compte utilisateur avec des droits full sur l'ensemble des répertoires d'un serveur 2K3.
J'ai déjà créer le script pour la création de l'utilisateur attacher au groupe Administrateur, mais je bloque sur l'affectation à tout les répertoires du serveur
Merci de votre aide
A voir également:
- Vbs Droits Admin. sur répertoire
- Vbs windows - Accueil - Optimisation
- Livebox admin - Guide
- Mot de passe admin - Guide
- Mot de passe admin freebox - Forum SQL Server
- Http //easy wifi.config admin - Forum WiFi
2 réponses
Bonjour,
Peux-tu clarifier STP, car par defaut, le groupe administrateurs a tous les droits sur tout le serveur.
De plus la strategie n'est à prioripas la bonne, car tu devrais creer un groupe specifique (si different d'adminstrateurs), affecter les droits au groupe et inserer ton nouvel utilisateur dans ce groupe.
Peux-tu clarifier STP, car par defaut, le groupe administrateurs a tous les droits sur tout le serveur.
De plus la strategie n'est à prioripas la bonne, car tu devrais creer un groupe specifique (si different d'adminstrateurs), affecter les droits au groupe et inserer ton nouvel utilisateur dans ce groupe.
Pour plus d'information le script que je suis en train de modifier.
strComputer = "."
dim Racine
dim nomrep
dim cptstring
Racine = "C:\general"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set wShell = CreateObject("wscript.shell")
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='"& racine &"'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
cptstring = Len(Racine) + 2
For Each objFolder in colSubfolders
nomrep = mid(objFolder.Name,cptstring)
lignedecommande = "C:\WINDOWS\system32\Cacls.exe echo y|"& objFolder.Name &" /T /G " & nomrep & ":F"
wShell.run lignedecommande
Next
strComputer = "."
dim Racine
dim nomrep
dim cptstring
Racine = "C:\general"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set wShell = CreateObject("wscript.shell")
Set colSubfolders = objWMIService.ExecQuery _
("Associators of {Win32_Directory.Name='"& racine &"'} " _
& "Where AssocClass = Win32_Subdirectory " _
& "ResultRole = PartComponent")
cptstring = Len(Racine) + 2
For Each objFolder in colSubfolders
nomrep = mid(objFolder.Name,cptstring)
lignedecommande = "C:\WINDOWS\system32\Cacls.exe echo y|"& objFolder.Name &" /T /G " & nomrep & ":F"
wShell.run lignedecommande
Next
Je vais être un peu + clair, je doit migrer des vm2K3 sur un SAN, mon PB c'est la migration d'une VM-mX transformer en VM-Y sur le SAN et là bien sûre les répertoire de la VM-Y perd tous ses droits, mon but c'est de créer un script qui créer un compte ADMIN pour la VM-Y et l'affecter à tout les répertoires, sur cette dernière partie je suis complètement bloqué :-[
Merci de votre aide