Discussion :

[benkunz]

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

[pitchalov]

salut.

quelles sont les instructions que tu utilise dans ton script?

[benkunz]

voici un exemple

Code :

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

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

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

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

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

Set objApp = CreateObject("WScript.Shell")

[pitchalov]

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?

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

[vmpsg]

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 :

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

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 :

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

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

[spantemonium]

Bonjour,

j'avais le meme souci avec :

Code :

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

objNetwork.RemoveNetworkDrive "S:"

depuis que je lance :

Code :

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

objNetwork.RemoveNetworkDrive "S:", True, True

ca marche à tous les coups ^^


pour info je me dépannais avec cà :

Code :

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

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