Aide codage scripte

Fermé

admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 - Modifié par admininfo le 10/10/2011 à 19:17
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 - 10 oct. 2011 à 19:17

Bonjour,

voila j'ai un petit soucie je fait mon stage dans une entreprise qui me demande de refaire leurs logon script (mais je ne suis pas développeuse à la base )je m'explique j'ai déja les logon script au format kix (que personne ne connait) que je ne connait pas et on m'a demander de le faire en batch mais après consultation de pages sur le web ça m'a pas l'air adapter enfin je ne sait pas je leurs proposerais bien le power shell qui m'a l'aire plus actuel..... Mais comme je l'ai dit je ne suis pas développeuse et je connait absolument aucun de ses langages je vais voire le power shell dans ma formation mais courants mars seulement (c'est un plus pour mon de le voire en avance mais je ne sait pas si c'est adapter à ce qu'il veulent)

dans tous les cas je voulais savoir quel était le langage le plus facile à remplacer et surtout le plus adapter un remplacement du kix dans le cadres de logon script

kix - batch
ou
kix - power shell

je vous met une partie du fichier pour que vous vous fassiez une idée

en gros faut que je trouve la meilleur solution pour remplacer

; Fonction de test de la présence d'un lecteur réseau
; Si le lecteur n'existe pas, on le monte

Function CheckDevice($device, $share)
CD $device
IF @Error <> 0
USE $device $share
ENDIF
EndFunction

; ---------------------------------------------------------------------------------------------------------
? "Lancement du script de connexion"
Settime "\\.com"

; On vérifie que le script ne s'execute pas sur le serveur Server1
If @WKSTA="Server1"
? "Annulation du script"
Else
; ---------------------------------------------------------------------------------------------------------
; Chargement des lecteurs communs
? "1 - Chargement des lecteurs communs"
? CheckDevice(R:, "\\.com\commun$")

If Ingroup("toto")
? CheckDevice(T:, "\\.com\rh-commun$")
Endif

; ---------------------------------------------------------------------------------------------------------
; Lancement de l'application Inventory
? "2 - Lancement de l'application Inventory"
run "\\.com\commun$\Info\Inventory.exe"

; ---------------------------------------------------------------------------------------------------------
; Chargement des répertoires services
? "3 - Chargement des répertoires services"
If Ingroup("servicerh")
? CheckDevice(S:, "\\.com\rh-ressou$")
Endif

If Ingroup("servicepaie")
? CheckDevice(W:, "\\.com\rh-paie$")
Endif

; ---------------------------------------------------------------------------------------------------------
; Chargement des actions spécifiques
? "4 - Chargement des actions spécifiques"
Run "\\.com\commun$\Info\ittl.bat"

; Configuration de l'écran de veille
run "\\.com\logon$\screensaver\screensaver.bat"

; Configuration du proxy
WriteValue("\\" + @WKSTA + "\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","AutoConfigURL","http://proxy.com/proxy.pac","Reg_SZ")

; Chargement des répertoires propre à l'utilisateur
? "5 - Chargement des répertoires propre à l'utilisateur"

; Repertoire User
? CheckDevice(U:, @HOMESHR)
? CheckDevice(V:, "\\.com\"+ @USERID +"$")

; Chargement des répertoires propre à l'utilisateur
? "5 - Chargement des répertoires propre à l'utilisateur"

; Repertoire User
? CheckDevice(U:, @HOMESHR)
? CheckDevice(V:, "\\.com\"+ @USERID +"$")

; Génération du fichier log_connexion.html
? "6 - Génération du fichier log_connexion.html"

; Chemin du fichier log.html
$Log = "C:\log_connexion.html"

; Test de la présence d'un fichier Log.html
If Exist($Log)
; Si le fichier existe, on le supprime
Del $Log
EndIf

; Calcul du temps restant de validité du mot de passe
$TMDP = @MAXPWAGE - @PWAGE

; Initialisation d'une variable d'incrémentation
$Var = 0

; Ecriture dans le fichier
If Redirectoutput($Log) = 0
? '<html>'
? '<head>'
? '<title>Log de connexion</title>'
? '</head>'
? '<body>'
? '<h1 align="center">Log de connexion</h1>'
? '<p align="center"><i>Ce fichier à été généré le' @date + " à " + @time +'</i></p>'
? '<hr align="center" width="500" size="2"><br>'
; Bouton de reconnexion
? '<h3 align="center"><i>Pour relancer le script de connexion veuillez <a href= "file:///\\.comlogon$\logon-rh.cmd">cliquer ici</a> !<br>Puis cliquer sur Exécuter.</i></h3>'
; Fin de la fonction de reconnexion
? '<table border="5" align="center" width="99%">'
? '<tr>'
? '<td align="left" valign="top" width="30%" >'
? '<ul>'
? '<li>'
? '<h2>Informations sur la machine</h2>'
? '</li>'
? '<p><span style="color:red">Nom de la machine : '@WKSTA'</span></p>'
? '<ul>'
? '<li>'
? '<h3>Hardware</h3>'
? '</li>'
? '</ul>'
? '<p>Nom du processeur : '@CPU'<br>Fréquence du processeur : '@MHZ ' Mhz<br></p>'
? '<ul>'
? '<li>'
? '<h3>Software</h3>'
? '</li>'
? '</ul>'
? '<p>Système d éxploitation : '@PRODUCTTYPE'<br>Service pack : '@CSD'<br>Version de NT : '@DOS'<br>Langue du système : '@SYSLANG'
<br>Langue session utilisateur : '@USERLANG'</p>'
? '</ul>'
? '</td>'
? '<td align="left" valign="top" width="30%">'
? '<ul>'
? '<li>'
? '<h2>Informations réseau</h2>'
? '</li>'
? '<p>Adresse MAC : '@ADDRESS'<br>Adresse IP : '@IPADDRESS0'<br>Domaine : '@DOMAIN' <br><br><span style="color:red">Nom du script : '@ScriptName'<span></p>'
? '</ul>'
? '</td>'
? '<td align="left" valign="top" width="30%">'
? '<ul>'
? '<li>'
? '<h2>Informations utilisateur</h2>'
? '</li>'
? '<p>Utilisateur : '@FULLNAME'<br>ID Utilisateur : '@USERID'<br>Répertoire utilisateur : '@HOMEDIR'<br>Privilège : '@PRIV'<br>Centre de coût : '@COMMENT'</p>'
? '<p><span style="color:red">Validité de votre mot de passe : '$TMDP' Jour(s)</span></p>'
? '</ul>'
? '</td>'
? '</tr>'
? '</table>'
? '<br>'
? '<table border="5" align="center" width="99%">'
? '<tr>'
? '<td align="left" valign="top" width="30%">'
? '<ul>'
? '<li>'
? '<h2> Groupes globaux de '@USERID'</h2>'
? '</li>'
DO
$Group = ENUMGROUP($Var)
? '<nobr>'$Group'</nobr><br>'
$Var = $Var + 1
UNTIL Len($Group) = 0
; Mise à zero de la variable d'incrémentation
$Var = 0
? '</ul>'
? '</td>'
? '<td align="left" valign="top" width="30%">'
? '<ul>'
? '<li>'
? '<h2>Groupes locaux de '@USERID'</h2>'
? '</li>'
DO
$Group = ENUMLOCALGROUP($Var, @Domain)
? '<nobr>'$Group'</nobr><br>'
$Var = $Var + 1
UNTIL Len($Group) = 0
? '</ul>'
? '</td>'
? '<td align="left" valign="top" width="30%">'
? '<ul>'
? '<li>'
? '<h2>Imprimantes</h2>'
? '</li>'
IF (@INWIN = 1)
; Pour Windows XP
$Imprimante = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices"
$Var = 0
:Loop0
$Group = ENUMVALUE($Imprimante, $Var)
If @ERROR = 0
? '<nobr>'$Group'</nobr><br>'
$Var = $Var + 1
goto Loop0
Endif
ELSE
; Si l'OS n'est pas Windows XP
'<p>Fonction non supportée !</p>'
ENDIF
? '</ul>'
? '</td>'
? '</tr>'
? '</table>'
? '</body>'
? '</html>'
EndIf

A voir également:

Aide codage scripte
Codage ascii - Guide
Codage binaire - Guide
Application codage - Guide
Fichier word illisible codage - Guide
Comment enlever codage word - Forum Word

2 réponses

Réponse 1 / 2

admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
10 oct. 2011 à 15:50

up svp c'est assez urgents que me conseillez vous?

Réponse 2 / 2

admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
10 oct. 2011 à 19:17

svp personne n'a d'idee

Discussions similaires

controleur de codage/décodage PCI

Codage de texte

huffman

Pilote controleur de codage/décodage PCI manquant

[codage] Comment enregistrer un texte

Discussions similaires

Newsletters