Bonjour tous le monde

petit nouveau dans le monde de l'informatique suite a une reconversion, je cherche une réponse ou une aide.

j'explique mon soucis, nous mettons en place chez plusieurs clients des infra serveurs postes etc...

seul soucis a mon égard, chaque tech. a sa façon de travailler, vous me direz normal, mais nous cherchons le moyen d'uniformiser tous cela, et je suis missionner pour sa.

j'ai trouver plusieurs infos sur le net et dans les KB microsoft mais j'aimerais pousser un peu plus loin.

voici le script en place dans mon infra test

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
On Error Resume Next 
'Déclaration des variables' 
Dim objGroupList, objADObject, strGroup, objUser 
 
Set WshShell = WScript.CreateObject("WScript.Shell") 
Set WshVarEnv = WshShell.Environment("PROCESS") 
strNetBiosDomain = WshVarEnv.Item ("USERDOMAIN") 
strLogonServer = WshShell.ExpandEnvironmentStrings("%Logonserver%") strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%") Set objUser = GetObject("WinNT://" & strNetBiosDomain & "/" _ & strUserName & ",user") 
 
'Condition 1 : Si l'utilisateur appartient à "Groupe-Comptabilité-Siège" 
If IsMember("Groupe-Comptabilité-Siège") Then objNetwork.RemoveNetworkDrive "U:" 
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartageCompta" 
WshShell.run strLogonServer & "netlogon\AuditCompta.vbs" 
End If 
 
'Condition 2 : Si l'utilisateur appartient à "Groupe-Paye-Siège" 
If IsMember("Groupe-Paye-Siège") Then 
objNetwork.RemoveNetworkDrive "U:" 
objNetwork.MapNetworkDrive "U:" , "\\SERVEUR\PartagePaye" objNetwork.RemoveNetworkDrive "V:" 
objNetwork.MapNetworkDrive "V:" , "\\SERVEUR\PartagePointages" 
End If 
'Fin du script' 
WScript.quit
mais j'aimerais mapper les lecteurs perso (profil) mais comment rattacher le %username% a ce script?

d'avance merci de votre retour

Cordialement,

Psykozo51