Kix et language batch

admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention -
admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention - 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

Afficher la suite

A voir également:

Kix et language batch
Fichier batch - Guide
Batch converter - Télécharger - Photo & Graphisme
Autocad 2010 language pack french download - Forum AutoCAD
Echo off batch ✓ - Forum Autoit / batch
Anno 1404 change language ✓ - Forum Jeux vidéo

4 réponses

Réponse 1 / 4

admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention 16

personne??

Réponse 2 / 4

admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention 16

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

Réponse 3 / 4

admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention 16

si c'est pas possible dite le moi je perdrais pas mon temps à chercher pour rien merci

Réponse 4 / 4

admininfo Messages postés 333 Date d'inscription Statut Membre Dernière intervention 16

bon je sait qu'il y a des truc que je doit faire pointer sur un vbs mais svp aider moi sur le reste

Discussions similaires

MSDOS - Renommer partiellement plusieurs fichiers

Batch installation

Photoshop version française ou pack fr ? ? ?

Faire une attente sous dos (batch)

Script .bat pour renommer des fichiers

Votre réponse

Discussions similaires