Discussion :

[inco69]

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 :

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
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

[spantemonium]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Network.RemoveNetworkDrive "S:",true,true
Network.RemoveNetworkDrive "U:",true,true
Network.RemoveNetworkDrive "X:",true,true

A placer entre la création de ton instance Network (set network = ...) et le code que tu as posté.