bsr,
 
j'ai mis en place ce script qui ne tourne pas sur les postes équipés de windows 9x ; ces derniers arrivent systématiquement sur le dernier message : "prendre contact avc votre admin.....". pour info j'utilise les dll suivantes : kx16.dll kx32.dll et kx95.dll. avez vous une idée ???
 
l'objectif étant d'hériter d'un lecteur réseau selon un test d'appartenance à un groupe.
 
 
 
; DECLARATION DES VARIABLES LOCALES
dim $Debug
$Debug=0
 
dim $Retour
dim $Message
dim $Return
dim $Tab
dim $NomServeurStockage
dim $Map
 
; INITIALISATION DES VARIABLES
 
; Pour retour fonction
$Retour=0
 
; Caractères spéciaux
$Return= CHR(10)
$Tab= CHR(9)
 
;Texte à afficher
$Message=""
 
;Définition des serveurs de fichiers
$NomServeurStockageHDD="SERVEUR33HDD"
$NomServeurStockageDPDS="SERVEURDPDS"
$Map="
 
 
 ; Affiche message de bienvenue
 ; Définition du message de bienvenue
 ;$Message= $Return + $Return + $Return
 ;$Message= $Message + " Bienvenue " + $Tab + "..." + $Tab + @FULLNAME + $Tab + $Return
 ;$Message= $Message + "Dans le domaine " + $Tab + "..." + $Tab + @DOMAIN + $Tab + $Return + $Return
 ;$Message= $Message + "Nous sommes le : " + @MDAYNO + "/" + @MONTHNO + "/" + @YEAR + $Tab + $Return
 ;$Message= $Message + "Il est : " + @TIME
 ;$Message= $Message + $Return + $Return + $Return
 ;$Message= $Message + "Ce message disparaîtra en fin d'execution..." + $Return
 
 ;MESSAGEBOX($Message,"Bienvenue",64,6)
 ;FLUSHKB
 ;SetFocus ("Bienvenue" )
 
;Aiguillage espace de stockage suivant le groupe
 
SELECT
 
 ;$NomServeurStockageHDD=SERVEUR33HDD  
 ;$NomServeurStockageDPDS=SERVEURDPDS
 
 
 CASE InGroup ("LOCALDSI" )
 
   USE V: "\\serveur33hdd\dsi" /persistent
   
 
  ;IF (EXIST($Map= 1)
   ;USE V: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur V déjà existant",64,6)
   ;ENDIF
  ;ENDIF
 
 
 
 
 CASE InGroup ("BDPGLO" )
 
   USE V: "\\serveurdpds\bdp" /persistent
 
  ;IF (EXIST($Map= 1)
   ;USE V: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur V déjà existant",64,6)
   ;ENDIF
  ;ENDIF
   
 
 CASE InGroup ("CHER2015" )
 
   USE W: "\\serveur33hdd\cher2015" /persistent
 
  ;IF (EXIST($Map= 1)
   ;USE w: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur w déjà existant",64,6)
   ;ENDIF
  ;ENDIF
 
 CASE InGroup ("TERRITOI" )
 
   USE W: "\\serveur33hdd\territoi" /persistent
 
  ;IF (EXIST($Map= 1)
   ;USE w: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur w déjà existant",64,6)
   ;ENDIF
  ;ENDIF
 
 
 CASE InGroup ("CABINET" )
 
   USE V: "\\serveur33hdd\cabinet" /persistent
 
  ;IF (EXIST($Map= 1)
   ;USE v: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur v déjà existant",64,6)
   ;ENDIF
  ;ENDIF
 
 
 CASE InGroup ("LOCALCOM" )
 
   USE V: "\\serveur33hdd\cabinet" /persistent
 
 ;IF (EXIST($Map= 1)
   ;USE v: $Map /PERSISTENT
   ;IF @ERROR=0 AND $Debug=1
    ;MESSAGEBOX ("Lecteur v déjà existant",64,6)
   ;ENDIF
  ;ENDIF
 
 
 
 
 
 CASE 1  
  MESSAGEBOX ("Prendre contact avec votre administrateur : L'espace de stockage ne peut pas être monté",64,6)
  GOTO FIN
 
 
:FIN
 
ENDSELECT

http://forum.hardware.fr/hardwaref [...] 6894-1.htm
 
Pas de doublon.