disque reseau avec active directory

disque reseau avec active directory - VB/VBA/VBS - Programmation

Marsh Posté le 23-03-2006 à 11:00:13    

bonjour a tous,
 
je poste ce message car j'ai un probleme avec mes comptes et j'aimerai bien un petit coup de main
je crée des comptes active directory avec des scripts mais j'ai un probleme sur les lecteurs reseau.
je lui indique le bon chemin, le dossier partager se crée avec les bons droits mais le lecteur n'apparait pas sur le client.
par contre quand je vais sur son profil et que je rajoute une lettre et que je l'enleve tout de suite sur le chemin du lecteur, alors la, le client peu voir son lecteur.
je ne sais pas comment faire!!!
on m'a dis qu'il fallait que je crée les dossiers mais c'est deja fait et ça ne viens pas de la!!!
 
si quelqu'un pouvait m'eclairer ce serai fort sympatique.
 
je vous remerci.

Reply

Marsh Posté le 23-03-2006 à 11:00:13   

Reply

Marsh Posté le 23-03-2006 à 12:30:07    

Salut !
 
avoir ton code de création de disque réseau aiderait grandement pour t'aider !  :)  
 
c'est quoi exactement que tu créés, un homefolder ? des partages ?
 
en attendant je te donne un lien pratique pour la conf de compte User sous AD :
 
http://www.dx21.com/SCRIPTING/ADSI/ADGUI/USER1.ASP
 


---------------
Envie de scripting ? Lisez donc "Scripting Windows" aux Editions Eyrolles ! tout pour apprendre le scripting orienté infrastructure Microsoft, en français dans les textes et exemples.  http://www.eyrolles.com/Informatiq [...] 212116922/
Reply

Marsh Posté le 23-03-2006 à 15:31:28    

Voici le code qui permet de mettre les valeurs dans active directory
 
objUSER.put "homedrive", strhomedrive
objUSER.put "homedirectory", strhomedirectory
 
 
Voici le bout de code qui permet de crée de crée les dossiers
 
' pour donner les droits sur le dossier de l'utilisateur
set wshshell = CreateObject("Wscript.Shell" )
set e = wshshell
set f = wshshell
 
'pour ouverture du dossier partager
Set fso = CreateObject("Scripting.FileSystemObject" )  
If Not fso.FolderExists(strhomedirectory) Then  
   Set fldUserHomedir = fso.CreateFolder(strhomedirectory)
   
End If  
Wscript.echo("strhomedirectory =   "&strhomedirectory)
'attribution des droits au dossier partager
cmd = "cacls " & strhomedirectory & " /T /E /G " & Login & ":C"
e.Run cmd, 1 , true
cmd1 = "cacls " & strhomedirectory & " /T /E /G administrateur:F"
f.Run cmd1, 1, True
 
 
objUSER.SetInfo
set objUSER = Nothing
 
 
 
mais le repertoire est bon et bien crée.
j'espere que ça suffit sinon merci de me le dire

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed