Kix et language batch
admininfo
Messages postés
390
Statut
Membre
-
admininfo Messages postés 390 Statut Membre -
admininfo Messages postés 390 Statut Membre -
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
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
-
-
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 -
si c'est pas possible dite le moi je perdrais pas mon temps à chercher pour rien merci
-
bon je sait qu'il y a des truc que je doit faire pointer sur un vbs mais svp aider moi sur le reste
