Mappage réseaux sous 2003 à l aide d'une GPO

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Mappage réseaux sous 2003 à l aide d'une GPO

whyata

Bonjour,

Quelle est selon vous la façon la plus simple et plus sure pour mettre en place des gpo de mappage réseau, sachant que pratiquement chaque UO à des lecteurs différents.
J'ai un serveur 2003 avec AD.
je souhaiterai utiliser les GPO pour automatiser le mappage de lecteur réseau à l'ouverture de session.
Je souhaiterai à l'aide d'une GPO faire que les utilisateurs de telles UO est accès à un certain nombre de lecteurs lorsqu ils se logent (K,L,M), et que d'autres utilisateurs d'une autres UO est accès à d'autres lecteurs lorsqu ils se logent.(L,M,O).
Je souhaiterai faire la meme chose pour les imprimantes aussi.

Si c'est un script je souhaiterai que ce soit un seul, générique.

Voici le code que j ai trouve qui devrait m'aider mais je ne m'y connais pas en vbs

Code :

Dim WshShell
Dim objNet
Dim objRootDSE
Dim Tab
Dim DN
Dim i
Dim strComputer
DN = ""
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set objNet = WScript.CreateObject("WScript.Network" )' create network object for vars
Set objRootDSE = GetObject("LDAP://rootDSE" )' bind to the rootDSE for portability
strADsConfPath = "LDAP://" & objRootDSE.Get("configurationNamingContext" )' bind to configuration to get Domain Controllers later
strRootDSE = objRootDSE.Get("defaultNamingContext" )' bind to the defaultContext for portability
strUserName = UCase(objNet.UserName)' pull user name from environment variable
Tab = Split(GetDNUser(strUserName,"person" ),"," )
For i=1 to UBound(Tab)
If i = Ubound(Tab) Then
DN = DN + Tab(i)
Else
DN = DN + Tab(i) + ","
End If
Next
'MsgBox DN
Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection" )
Set objCommand = CreateObject("ADODB.Command" )
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name, unCName, ManagedBy from " _
& "'LDAP://"&DN&"' where objectClass='volume'"
objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
'Wscript.Echo "Share Name: " & objRecordSet.Fields("Name" ).Value
msgbox objRecordSet.Fields("Name" ).Value
msgbox objRecordSet.Fields("uNCName" ).Value
Dim oNet
Set oNet = CreateObject("Wscript.Network" )
oNet.MapNetworkDrive objRecordSet.Fields("Name" ).Value, objRecordSet.Fields("uNCName" ).Value
objRecordSet.MoveNext
Loop
Function GetDNUser(param1,param2)
Set objDSE = GetObject("LDAP://rootDSE" )
ON ERROR RESUME NEXT
Set objConnection = CreateObject("ADODB.Connection" )
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command" )
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT distinguishedName, Sn " & "FROM 'LDAP://" & objDSE.Get("defaultNamingContext" ) & "' " & "WHERE objectCategory='" & param2 & "' AND sAMAccountName='" & param1 & "' " & "ORDER BY sAMAccountName"
Set objRecordSet = objCommand.Execute
GetDNUser = objRecordSet.Fields("distinguishedName" )
objConnection.Close
if err.number <> 0 then
msgbox "ERREUR: le nom renseigné n'existe pas dans l'AD.",16,Wscript.ScriptName & " " & version
ERR.CLEAR
wscript.quit
end if
End Function
MsgBox "Mappage effectué"

Message édité par whyata le 07-01-2009 à 15:32:22

Publicité

tuxerman12

Un login script avec la commande net use , ça ne correspond pas à ce que tu veux faire ?

net use Z: \\serveur\partage

whyata

ben en fait je veux un seul et unique script a appliqué pour toutes mes OU et les net use qu'on utilise déjà fonctionne de manière aléatoire alors qu'avec ce script j'ai mes lecteurs mappés mais j ai déférent message d'erreur qui apparaissent à l'ouverture de session et qui me dérange

( windows script host):
Script: \\chemin de mon script
Line:36
Char:1
Error: Either BOF or EOF is true, or the current record has been deleted.request operation requires a current record.
Code: 800A0BCD
Source: ADODB.Recordest

windows script host):
Script: \\chemin de mon script
Line: 41
Char:1
Error: the local device name is already in use
Code: 80070055
Source: WSHNetwork.MapNetworkDrive

Line:51
Column:3
Error: (null)
code: 80004005
Source: (null)

on m'a conseillé de rajouter ceci mais je ne sais pas où le meme vu que c est pas moi qui est créé le script et que je ne m y connais pas en vbs

On error resume next
oNet.RemoveNetworkDrive objRecordSet.Fields("Name" ).Value
On error goto 0
Set oNet = nothing

FORUM HardWare.fr

Systèmes & Réseaux Pro

Réseaux

Mappage réseaux sous 2003 à l aide d'une GPO

Sujets relatifs
besoin d'aide pour réalisation réseau d'entreprise	Superviser les flux réseaux entre switchs
Monter un serveur mail en interne avec windows serveur 2003	[Serveur 2003] Obtenir une liste "Qui vérrouille quel fichier ?"
FTP IIS 6.0 Win Serveur 2003 R2	Quota Windows 2003 server
création réseaux de 10 postes	Restauration Exchange 2003
(win server 2003.) // question sur droits accès
Plus de sujets relatifs à : Mappage réseaux sous 2003 à l aide d'une GPO

Page générée en 0.072 secondes