Enlever des mappings

Bonjour,

J'ai crée un script pour mapper 3 disques avec 3 lettres ( S U X ).

Ce que j'aimerai c'est qu'avant de mapper il demappe ces 3 lettres ainsi si les utilisateurs on crée leur propre mapping sur ces lettres, elles sont changé par mon script au démarrage.

Je pense pas que vous avez besoin de mon code mais je vous le met toujours

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
'Pour récupérer le login de la personne
Username= Network.UserName 
 
'Definition du chemin pour S'
Network.MapNetworkDrive "s:", "\\mondomain\fileserver\ICT" 
 
 
'definition du nom du mapping S'
strDrive = "s:\"
strName = "ICT"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(strDrive).Self.Name = strName
 
 
'Definition du chemin pour X'
Network.MapNetworkDrive "x:","\\mondomain\fileserver\ICT\DATAS\SUPPORTCENTER" 
 
'definition du nom du mapping X'
 
strDrive = "x:\"
strName = "SUPPORT CENTER"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(strDrive).Self.Name = strName
 
 
'Definition du chemin pour u avec le login de la personne'
Network.MapNetworkDrive "u:","\\mondomain\fileserver\ICT\users\SUPPORTCENTER\"+username, True  
 
 
'definition du nom du mapping u'
 
strDrive = "u:\"
strName = "USER DIRECTORY"
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(strDrive).Self.Name = strName

Merci