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
