; *******************************************************
; * SCRIPT PAR DEFAUT *
; *******************************************************
SETCONSOLE(SHOW)
IF INGROUP("GRP_CPTR_GB") <> 0
REDIRECTOUTPUT ("\\STSANSI1\Profils\@USERID\Script.log", 1)
ELSE
REDIRECTOUTPUT ("%USERPROFILE%\Script.log", 1)
ENDIF
$D=@DOMAIN
$S=@LSERVER
$U=@USERID
$version=@DOS
$NbErreur = 0
;***************************************************************************************************************
; Suppression de la valeur CodeBaseSearchPath qui ouvre une connexion sur internet à l'ouverture du client NOTES
; et Suppression de la case à cocher pour l'enregistrement du mot de passe à l'authentification du PROXY
;***************************************************************************************************************
IF $version = "5.0" or $version = "5.1" or $version = "6.1"
DelValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings","CodeBaseSearchPath")
shell "cscript.exe \\G2K8ARB01\netlogon\DisablePasswordCache.VBS"
ELSE
ENDIF
IF INGROUP("GRP_PROXY_NOSCRIPT") <> 0
EXIT
ENDIF
$CITRIX = @WKSTA
IF $CITRIX="G2K3CIT1" OR $CITRIX="G2K3CIT2" OR $CITRIX="G2K3CIT3" OR $CITRIX="G2K3CIT4"
; ajout d'une variable d'environnement pour TERMINAL SERVEUR
; nous déplacerons ensuite DANS LES GROUPES SI BESOIN
; "connaissance du nom de l'utilisateur par terminal serveur"
WriteValue("HKEY_CURRENT_USER\Environment", "TSNAME", "", "REG_SZ")
WriteValue("HKEY_CURRENT_USER\Environment", "TSNAME", "$U", "REG_SZ")
EXIT
ELSE
ENDIF
$SRVNAME = @WKSTA
IF $SRVNAME="V2K3GOUV2" OR $SRVNAME="V2K3CITAPP01" OR $SRVNAME="V2K3CITAPP02" OR $SRVNAME="V2K3CITDC" OR $SRVNAME="G2K8DL01"
EXIT
ELSE
ENDIF
;***********************************************************************
; Récupération de l'heure du domaine
;***********************************************************************
IF $SRVNAME="V2K3CITDK01"
GOTO SKIPTIME
ENDIF
SETTIME "$S"
IF @ERROR = 0
"Récupération de l'heure sur le serveur"
ELSE
"Heure domaine non récupérée : erreur " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
:SKIPTIME
? "Connexion au domaine $D le @MDAYNO/@MONTHNO/@YEAR à @TIME"
? "Serveur d'authentification : $S"
? "Groupe utilisateur : " @PRIMARYGROUP
? "Version de l'OS = "$version
;**********************************************************************
; Paramètres internationnaux
;**********************************************************************
$Row = ReadValue("HKEY_CURRENT_USER\Control Panel\International", "sDecimal")
IF @ERROR <> 0
? "sDecimal erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
IF $Row <> ","
WriteValue("HKEY_CURRENT_USER\Control Panel\International", "sDecimal", ",", "REG_SZ")
IF @ERROR = 0
? " Nouvelle valeur sDecimal : ,"
ELSE
? "Erreur sur écriture clé sDecimal, erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
ENDIF
$Row = ReadValue("HKEY_CURRENT_USER\Control Panel\International", "sThousand")
IF @ERROR <> 0
? "sThousand erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
IF $Row <> " "
WriteValue("HKEY_CURRENT_USER\Control Panel\International", "sThousand", " ", "REG_SZ")
IF @ERROR = 0
? " Nouvelle valeur sThousand : "
ELSE
? "Erreur sur écriture clé sThousand, erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
ENDIF
$Row = ReadValue("HKEY_CURRENT_USER\Control Panel\International", "sMonDecimalSep")
IF @ERROR <> 0
? "sMonDecimalSep erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
IF $Row <> ","
WriteValue("HKEY_CURRENT_USER\Control Panel\International", "sMonDecimalSep", ",", "REG_SZ")
IF @ERROR = 0
? " Nouvelle valeur sMonDecimalSep : ,"
ELSE
? "Erreur sur écriture clé sMonDecimalSep, erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
ENDIF
$Row = ReadValue("HKEY_CURRENT_USER\Control Panel\International", "sMonThousandSep")
IF @ERROR <> 0
? "sMonThousandSep erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
IF $Row <> " "
WriteValue("HKEY_CURRENT_USER\Control Panel\International", "sMonThousandSep", " ", "REG_SZ")
IF @ERROR = 0
? " Nouvelle valeur sMonThousandSep : "
ELSE
? "Erreur sur écriture clé sMonThousandSep, erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
ENDIF
$Row = ReadValue("HKEY_CURRENT_USER\Control Panel\International", "sList")
IF @ERROR <> 0
? "sList erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
IF $Row <> ";"
WriteValue("HKEY_CURRENT_USER\Control Panel\International", "sList", ";", "REG_SZ")
IF @ERROR = 0
? " Nouvelle valeur sList : ;"
ELSE
? "Erreur sur écriture clé sList, erreur : " @ERROR
$NbErreur = $NBErreur + 1
ENDIF
ENDIF
;*********************************************************************
; Groupes
;*********************************************************************
IF $U="pppp"
CALL @SCRIPTDIR\GRPCATIA_PPPP.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPNOBAT") <> 0
CALL @SCRIPTDIR\GRPNOBAT.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPACHATS") <> 0
CALL @SCRIPTDIR\GRPACHATS.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCOMDPC") <> 0
CALL @SCRIPTDIR\GRPCOMDPC.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCOMMERCE") <> 0
CALL @SCRIPTDIR\GRPCOMMERCE.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCOMPTA") <> 0
CALL @SCRIPTDIR\GRPCOMPTA.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPDG") <> 0
CALL @SCRIPTDIR\GRPDG.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPDRH") <> 0
CALL @SCRIPTDIR\GRPDRH.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPETUDES") <> 0
CALL @SCRIPTDIR\GRPETUDES.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPFINANCE") <> 0
CALL @SCRIPTDIR\GRPFINANCE.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPGESTION") <> 0
CALL @SCRIPTDIR\GRPGESTION.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPINFO") <> 0
CALL @SCRIPTDIR\GRPINFO.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCATIA") <> 0
CALL @SCRIPTDIR\GRPCATIA.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPSUPCHAIN") <> 0
CALL @SCRIPTDIR\GRPSUPCHAIN.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRP_BDR") <> 0
CALL @SCRIPTDIR\GRP_BDR.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCER") <> 0
CALL @SCRIPTDIR\GRPCER.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPCH") <> 0
CALL @SCRIPTDIR\GRPCH.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPDL") <> 0
CALL @SCRIPTDIR\GRPDL.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPENTPL") <> 0
CALL @SCRIPTDIR\GRPENTPL.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPES") <> 0
CALL @SCRIPTDIR\GRPES.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPIT") <> 0
CALL @SCRIPTDIR\GRPIT.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPNL") <> 0
CALL @SCRIPTDIR\GRPNL.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPPARIS") <> 0
CALL @SCRIPTDIR\GRPPARIS.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPREPRO") <> 0
CALL @SCRIPTDIR\GRPREPRO.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPPRODDPC") <> 0
CALL @SCRIPTDIR\GRPPRODDPC.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPPRODDPE") <> 0
CALL @SCRIPTDIR\GRPPRODDPE.kix
$Groupe = "OK"
ENDIF
IF INGROUP("GRPPRODDPI") <> 0
CALL @SCRIPTDIR\GRPPRODDPI.kix
$Groupe = "OK"
ENDIF
;*********************************************************************
; Message box
;*********************************************************************
IF $Groupe <> "OK"
? "Pas de fichier script pour le groupe"
MESSAGEBOX("Aucun script n'est associé au groupe : @PRIMARYGROUP,
Contactez l'administrateur du réseau", "Script de lancement", 64)
ELSE
If $NbErreur = 0
MESSAGEBOX ("Bienvenue dans le domaine @DOMAIN, contrôleur local @LSERVER
. . .
Lancement OK",
"Script de lancement", 64)
ELSE
MESSAGEBOX ("Bienvenue dans le domaine @DOMAIN, contrôleur local @LSERVER
. . .
$NbErreur anomalie(s) détectée(s) lors du lancement
Contactez l'administrateur du réseau
. . .",
"Script de lancement", 16)
ENDIF
ENDIF
?
EXIT
