Sujet Précédent Sujet Suivant

Kix et language batch

Fermé
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 - 27 oct. 2011 à 11:01
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 - 28 oct. 2011 à 09:01
Bonjour,

je cherche quelqu'un qui pourrais m'aider à convertir un fichier kix en bath je n'y connait rien en programmation j'ai bien essayer de voire sur internet mais après une semaine de galère je baisse les bras pouvez vous m'aidez svp un immense merci à celui ou celle qui m'aideras parce que là avec ses code je suis mais pommer de chez pommer





4 réponses

Réponse 1 / 4
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
27 oct. 2011 à 13:06
personne??
0
Réponse 2 / 4
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
27 oct. 2011 à 13:09
voila le scripte des fois que







; 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
0
Réponse 3 / 4
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
27 oct. 2011 à 14:00
si c'est pas possible dite le moi je perdrais pas mon temps à chercher pour rien merci
0
Réponse 4 / 4
admininfo Messages postés 333 Date d'inscription lundi 27 juillet 2009 Statut Membre Dernière intervention 1 avril 2014 16
28 oct. 2011 à 09:01
bon je sait qu'il y a des truc que je doit faire pointer sur un vbs mais svp aider moi sur le reste
0

Discussions similaires

Photoshop version française ou pack fr ? ? ?
marsyl19 -
marsyl19 -

7 réponses
Faire une attente sous dos (batch)
mathhieu -
CharlesDelo -

48 réponses
Problème avec DLL : VB6FR.DLL
jack44101 -
NBE2023 -

5 réponses
echo off qu'est ce que c'est ?
lea -
miiforlong -

7 réponses
Mettre Winamp en français
goungoulou2 -
fmq -

8 réponses