scripts vbs ne s'applique qu'à un user... sur 1 poste !

Bonjour a tous,

Alors voici mon pb ... :
J'ai un script qui permet de connecter un lect réseau du dossier user mais celui-ci ne s'applique que sur 1user et sur 1 poste ... c'est à n'y rien comprendre comment est-ce possible? lorsque que je me connecte avec un autre user j'ai une erreur "Nom de réseau introuvable" source WSHNetwork.MapNetworkDrive (ligne 34)

'déclaration des variables

 
Set WshShell = WScript.CreateObject("WScript.Shell")

Set WshSysEnv = WshShell.Environment("SYSTEM")

Set WshNetwork = WScript.CreateObject("WScript.Network")

 
'************************************************************

'Obtention du nom PC  serveur  utilisateur

 
Ordinateur=GetEnvironnement("PROCESS","COMPUTERNAME")

LogonServer= GetEnvironnement("PROCESS","LOGONSERVER")

Utilisateur = GetEnvironnement("PROCESS","USERNAME")

 
************************************************************

'Fonction Obtention environnement

 
function GetEnvironnement(Noyau, Variable)

 Set WshSysEnv = WshShell.Environment(noyau)

 ret=WshSysEnv(Variable)

 Set WshSysEnv = nothing'

 GetEnvironnement=ret

end function

************************************************************

 Map "G:", GetEnvironnement("USER","SRV1") & "\user\" & Utilisateur

************************************************************

 function Map(drv,unc)

 dim er

 'on error resume next

 
 'err.clear

 'WshNetwork.RemoveNetworkDrive drv

 'er=err.number

 'err.clear

 WshNetwork.MapNetworkDrive drv,unc

 er=err.number

 err.clear

 
 on error goto 0

 
 map=er

end function

D'où cela peut venir, le script a l'air d'être bon puisqu'il s'pplique sans pb pr un un user..merci...