Kix et language batch

Fermé
Signaler
Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
-
Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
-
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

Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
16
personne??
Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
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
Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
16
si c'est pas possible dite le moi je perdrais pas mon temps à chercher pour rien merci
Messages postés
333
Date d'inscription
lundi 27 juillet 2009
Statut
Membre
Dernière intervention
1 avril 2014
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