VBScript Création dossier domaine

Version imprimable

02/12/2014, 16h39
sissouuuu

VBScript Création dossier domaine

Bonjour à tous,

J'aimerais faire un script d'ouverture de session qui créer un répertoire qui récupère Nom et prénom de l'utilisateur AD avec dans ce dossier là, un dossier privé et public exemple :

L'utilisateur arnaud durand se logue avec ArnaudD mais mon script récupère bien Arnaud Durand pour le dossier. Car aujourd'hui j'y arrive( a récupérer un nom je n'ai pas fais le reste pour les sous dossiers) mais en récupérant ArnaudD avec username donc ce n'ai pas bon...
Je pense qu'il faut ce connecter au domaine avec le VBS mais je ne sais pas comment!

Je sais pas si j'ai été clair....

Merci d'avance
sylvain

Réponse un peu tardive ... mais ça peut toujours servir ! ;)
Le script ci-dessous récupère un nom d'utilisateur à partir d'un identifiant AD.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Const ADS_SCOPE_SUBTREE = 2
strUserSAMAccountName = InputBox("RECHERCHE D'UTILISATEUR" & vbCrLf & vbCrLf & "Entrer l'identifiant recherché", "TITRE")
If strUserSAMAccountName = "" Then Wscript.Quit
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand = CreateObject("ADODB.Command")
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
objCommand.CommandText = "SELECT Name FROM 'LDAP://" & GetObject("LDAP://RootDSE").Get("DefaultNamingContext") & _
	"' WHERE objectCategory='user' AND sAMAccountName = '" & strUserSAMAccountName & "'"
Set objRecordSet = objCommand.Execute
If Not objRecordSet.EOF Then
	username = objRecordSet.Fields("Name")
	MsgBox username
Else
	MsgBox "Utilisateur <" & strUserSAMAccountName & "> non trouvé"
End If

16/01/2015, 12h15
sissouuuu

Merci pour votre réponse, j'avais trouvé du coup comment faire mais merci.

Par contre j'ai un soucis pour attribuer des droits sur des sous dossier exemple :

Arnaud durand a 2 dossiers - Public et -Prive j'ai utilisé CACLS avec cette commande :

Command = "%COMSPEC% /c Echo o| cacls (chemin) /E /g username:r" mais il n’attribue rien.
J'ai essayé directement en commande dos, il me dit d'utiliser ICACLS mais pareil je ne trouve pas la bonne syntaxe pour : "Prive" acces en contrôle total au USER correspondant et refus a tout le reste même en lecture. et "public" contrôle total pour le USER correspondant et lecture exécution pour le reste des utilisateurs.

Je ne sais pas si j'ai été clair....

Merci d'avance
16/01/2015, 12h35
hackoofr

Citation:

Envoyé par sissouuuu

Merci pour votre réponse, j'avais trouvé du coup comment faire mais merci.

Par contre j'ai un soucis pour attribuer des droits sur des sous dossier exemple :

Arnaud durand a 2 dossiers - Public et -Prive j'ai utilisé CACLS avec cette command :

Command = "%COMSPEC% /c Echo o| cacls (chemin) /E /g username:r" mais il n’attribue rien. J'ai essayé directement en command dos, il me dit d'utiliser ICACLS mais pareil je ne trouve pas la bonne syntaxe pour : "Prive" acces en controle total au USER correspondant et refus a tout le reste meme en lecture. et "public" controle total pour le USER correspondant et lecture exécution pour le reste des utilisateurs.

Je ne sais pas si j'ai été clair....

Merci d'avance

:salut:
un coup d’œil ici