mapping de drive avec MapNetworkDrive

Version imprimable

02/12/2008, 10h47
benkunz

mapping de drive avec MapNetworkDrive

Salut,

j'ai un script qui sur base des groupes auxquels mon user appartient, fait différent mappings. Au premier login apres avoir rajouté un groupe à un user, le drive apparait avec sous le nom "Network Drive" dans l'explorateur. Ensuite je fais un logoff/login et la le drive apparait avec le bon nom de share... J'y comprends rien... si vous avez des idées n'hésitez pas.

merci
02/12/2008, 11h18
pitchalov

salut.

quelles sont les instructions que tu utilise dans ton script?

voici un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
mapDrive "S","\\crpfin3\easibs_data"
 
Function mapDrive(letter,path) ' if the letter is already in use, we first unmount the drive
	'Wscript.Echo "Mounting " & letter & ":" & path
	Set colDrives = wshNetwork.EnumNetworkDrives 
	For i = 0 to colDrives.Count-1 Step 2
		If colDrives.Item(i) =  letter & ":" Then
			objApp.Run "net use " & letter & ": /del"
			'Wscript.Echo "Unmounting busy drive " & letter & ":"
		End If
	Next
	wshNetwork.MapNetworkDrive letter & ":" , path
End Function

02/12/2008, 15h30
pitchalov

Je suppose que ton objApp, c'est un objet Shell c'est ça?

Et ça donne quoi si t'utilises la méthode RemoveNetworkDrive de ton objet wshNetwork pour supprimer la lettre déjà présente?
04/12/2008, 09h09
benkunz

ben j'ai remarqué que dans certains cas RemoveNetworkDrive ne marche pas, alors qu'avec le net use j'arrive toujours a enlever le drive...

mon object objApp est créé comme ca :

Code:

Set objApp = CreateObject("WScript.Shell")
08/12/2008, 11h25
pitchalov

Citation:

Envoyé par benkunz

ben j'ai remarqué que dans certains cas RemoveNetworkDrive ne marche pas, alors qu'avec le net use j'arrive toujours a enlever le drive...

ça c'est bizarre...
Sinon ton code a l'air correct, je vois pas d'où peut venir le problème.

ça le fait sur plusieurs postes ou juste un seul?
Une erreur est générée quand ça arrive?
09/12/2008, 15h57
benkunz

c'est arrivé sur plusieurs postes. et non y'a pas d'erreurs générés, en tout cas je ne vois rien.

Citation:

Envoyé par benkunz

ben j'ai remarqué que dans certains cas RemoveNetworkDrive ne marche pas, alors qu'avec le net use j'arrive toujours a enlever le drive...

mon object objApp est créé comme ca :

Code:

Set objApp = CreateObject("WScript.Shell")

J'ai eu le même problème que toi sur le 'Remove'. Je ne mettais pas le dernier paramètre 'Remove' car optionnel. J'ai alors modifié mon code (voir ci-dessous) et désormais cela fonctionne. En espérant que cela t'aideras.
Code:

1 2 3 4 5 'Création de la liaison Set WSHNetwork = CreateObject("WScript.Network") WSHNetwork.MapNetworkDrive "Z:", "\\IPSERVEUR\DISQUE", True, "USER", "PASSWORD" 'Fermeture de la liaison WSHNetwork.RemoveNetworkDrive "Z:", True, True

16/12/2008, 14h40
spantemonium
Bonjour,

j'avais le meme souci avec :

Code:

objNetwork.RemoveNetworkDrive "S:"

depuis que je lance :

Code:

objNetwork.RemoveNetworkDrive "S:", True, True

ca marche à tous les coups ^^

pour info je me dépannais avec cà :
Code:

1 2 3 4 Set objShell = CreateObject("WScript.Shell") set objExec = objShell.Exec("cmd /c net use * /delete /Y") set objExec = Nothing