Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Interraction Base de Registre
Auteur Message
Répondre en citant
Message Interraction Base de Registre 
Voilà, Je me suis remis au Batch après un long moment épuisant que la vie a à nous offrir Wink
Du coup j'ai quelques problèmes et j'aimerais que l'on m'aide un temps soit peu.
Je me suis dit qu'il me valait mieux de prendre un peu de recul pour ne pas me prendre la tête et de la cogné sur mon moniteur Mort de Rire
Bref, je suis sur que mon code (Loin d'être fini) peux être raccourcis.

Hum.., il y'a aussi le fait que le batch créé un compte Administrateur pour mon Assistant, car c'est sa première éxécution.
Pour sa j'aime l'idé d'utiliser le Registre, donc j'ai créé une valeur REG_SZ nommé Admin avec un mot de passe généré aléatoirement dans une clef BlackProject (Le nom de mon batch).
Mais à la connection d'utilisateur de mon assistant, je veux que si c'est Admin qui se connect, il doit entré le même mot de passe que celui qui est dans le registre.
Rassurez-vous le mot de passe est donner dans un fichier externe. Bon pour l'instant sa sert a rien d'intégrer le registre si un fichier externe a le mot de passe, mais plus tard ce dernier serra supprimer.

J'ai essayer avec
Code:

For /F "Tokens=3*" %%a In ('Reg Query HKEY_LOCAL_MACHINE\SOFTWARE\BlackProject\Admin ^| findstr Admin') do (
     Set AdminPassWord=%%a
     Echo Le mot de passe pour Admin est %AdminPassWord%.
     Pause >Nul
)

C'est sur que sa va afficher le mot de passe mais ce n'est que pour tester s'il vas effectivement retrouver le mot de passe.

Mais sa me dit que La clef n'est pas trouvé, alors que je vais dans la clef HKEY_LOCAL_MACHINE\SOFTWARE\BlackProject et la valeur Admin et son mot de passe est bien la.
Vous pouvez m'aider, s'il vous plaît?
Merci Wink
Code:

@Echo Off

:Maj
Set HomeFolder=%cd%
Set UpdatesFolder=%HomeFolder%\Updates
Set Hote=olympe.in
Set Identifiant=fredhy
Set Motdepasse=**********
If Exist "%temp%\info.bp" Del "%temp%\info.bp" >Nul
If Not Exist "%UpdatesFolder%" MkDir "%UpdatesFolder%" >Nul

Echo RP.0.1>%HomeFolder%\Release.log
Echo Verifiction de mises a jour..
Ping -n 3 -w 10 178.32.167.242 >Nul
if %ErrorLevel% NEQ 0 Goto :NetFail
Echo open %Hote%>%temp%\info.bp
Echo user %Identifiant%>>%temp%\info.bp
Echo %Motdepasse%>>%temp%\info.bp
Echo hash>>%temp%\info.bp
Echo ascii>>%temp%\info.bp
Echo cd BlackProject>>%temp%\info.bp
Echo lcd %UpdatesFolder%>>%temp%\info.bp
Echo get Release.log>>%temp%\info.bp
Echo bye>>%temp%\info.bp
ftp -n -s:%temp%\info.bp >Nul
Del %temp%\info.bp >Nul

@FC /L /N "%UpdatesFolder%\Release.log" "%HomeFolder%\Release.log" >Nul
If %ErrorLevel% EQU 1 (Goto :Telechargement) Else (
  Echo.
  Echo Aucune mise a jour est actuellement disponnible.
  Echo.
  Pause
  Goto :BlackProject )

:Telechargement
If Not Exist "%UpdatesFolder%\Download" MkDir "%UpdatesFolder%\Download" >Nul
Del %UpdatesFolder%\LastRelease.log
Echo.
Echo Une mise a jour est disponnible. Souhaitez-vous la telecharger? Oui/Non
Echo.
Set /P YN=
If /I "%YN%" EQU "o" (
  Echo Le temps de téléchargement est d'environ 3 a 5 minutes.
  Echo open %Hote%>%temp%\info.bp
  Echo user %Identifiant%>>%temp%\info.bp
  Echo %Motdepasse%>>%temp%\info.bp
  Echo bin>>%temp%\info.bp
  Echo cd BlackProject>>%temp%\info.bp
  Echo lcd %UpdatesFolder%\Download>>%temp%\info.bp
  Echo get BlackProject.exe>>%temp%\info.bp
  Echo bye>>%temp%\info.bp
  ftp -i -n -s:%temp%\info.bp
  Pause
  Del %temp%\info.bp >Nul
  Echo.
  echo La mise a jour s'est termine avec succès.
  Move %UpdatesFolder%\Download\BlackProject.exe %HomeFolder%
  Pause
  Start %HomeFolder%\BlackProject.exe
  Goto :Eof )
If /I "%YN%" EQU "n" Goto :BlackProject

:BlackProject
Cls
Title Black Project ^| Fr‚d‚ric Henry
Color 02
Set time=%time:~0,2%:%time:~3,2%:%time:~6,2%
Set MYFILES=%cd%
Echo %MYFILES%
Set CP=%MYFILES%\bg.exe Print
Set PassWord=
Set i=0

:Splash
%MYFILES%\bg.exe Cursor 0
Cls
%CP% "\201\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205"
%CP% "\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205"
%CP% "\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\187"
%CP% "\186                                                            " & %CP% 04 "Black Project     " & %CP% 02 "\186"
%CP% "\186                                                          " & %CP% 04 "by Fr\130d\130ric Henry   " & %CP% 02 "\186"
%CP% "\186                                                          -----------------   \186"
%CP% "\186                                                              " & %CP% 04 "Build: RP1      " & %CP% 02 "\186"
%CP% "\186                                                          " & %CP% 04 "Released: 13/06/03  " & %CP% 02 "\186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186                                 " & %CP% 0A "Release Pack 1" & %CP% 02 "                               \186"
%CP% "\186                           " & %CP% 0A "B L A C K   P R O J E C T" & %CP% 02 "                          \186"
%CP% "\186                         " & %CP% 0A "-----------------------------" & %CP% 02 "                        \186"
%CP% "\186                           " & %CP% 0A "A new Home entertainment." & %CP% 02 "                          \186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186                                                                              \186"
%CP% "\186     " & %CP% 04 "Black Project" & %CP% 02 "                                                            \186"
%CP% "\186   " & %CP% 04 "by Fr\130d\130ric Henry" & %CP% 02 "                                                          \186"
%CP% "\186   -----------------                                                          \186"
%CP% "\186      " & %CP% 04 "Build: RP1" & %CP% 02 "                                                              \186"
%CP% "\186  " & %CP% 04 "Released: 13/06/03" & %CP% 02 "     " & %CP% 0A "Made in Qu\130bec, for the world" & %CP% 02 "                        \186"
%CP% "\200\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205"
%CP% "\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205"
%CP% "\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\205\188"
%MYFILES%\bg.exe mouse >Nul

:New
Color 0A
Cls
Echo.
REG query "HKEY_LOCAL_MACHINE\SOFTWARE\BlackProject" >Nul
If %ERRORLEVEL% EQU 1 (
  Echo #%date% - %time%#>>%userprofile%\info.log
  REG Add "HKEY_LOCAL_MACHINE\SOFTWARE\BlackProject" /F >Nul
  Echo #Création du compte Administrateur..>>%userprofile%\info.log
  Set Pass=True
  Goto :PassGen
  :RegPass
  Set Pass=
  REG Add "HKEY_LOCAL_MACHINE\SOFTWARE\BlackProject" /V "Admin" /T REG_SZ /D "%PassWord%" /F >Nul
  Echo #Mot de passe Administrateur:%PassWord%>>%userprofile%\info.log
  Echo. >>%userprofile%\info.log
  Echo.
  Echo V‚rifi‚ le fichier info.log g‚n‚r‚ dans votre Dossier Personnel
  Echo  - %userprofile%.
  Echo Le mot de passe par d‚faut est g‚n‚r‚ al‚atoirement, mais vous pourez le changer plus tard.
  Echo.
  Echo Appuyez sur une touche afin de poursuivre ..
  Pause >Nul )
 
:DataBase
Cls
Title Black Project ^| DataBase
Color 0A
Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.
Set /P Login=Login :
Echo.
Set /P PassWord=Password :
Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.

:Main
%MYFILES%\bg.exe Cursor 100
Cls
Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.&Echo.
Pause >Nul
Goto :Eof

:PassGen
Set /a Rand=%Random%%%63
Set /a i=%i%+"1"
If "%Rand%" EQU "0" Set PassWord=%PassWord%a
If "%Rand%" EQU "1" Set PassWord=%PassWord%b
If "%Rand%" EQU "2" Set PassWord=%PassWord%c
If "%Rand%" EQU "3" Set PassWord=%PassWord%d
If "%Rand%" EQU "4" Set PassWord=%PassWord%e
If "%Rand%" EQU "5" Set PassWord=%PassWord%f
If "%Rand%" EQU "6" Set PassWord=%PassWord%g
If "%Rand%" EQU "7" Set PassWord=%PassWord%h
If "%Rand%" EQU "8" Set PassWord=%PassWord%i
If "%Rand%" EQU "9" Set PassWord=%PassWord%j
If "%Rand%" EQU "10" Set PassWord=%PassWord%k
If "%Rand%" EQU "11" Set PassWord=%PassWord%l
If "%Rand%" EQU "12" Set PassWord=%PassWord%m
If "%Rand%" EQU "13" Set PassWord=%PassWord%n
If "%Rand%" EQU "14" Set PassWord=%PassWord%o
If "%Rand%" EQU "15" Set PassWord=%PassWord%p
If "%Rand%" EQU "16" Set PassWord=%PassWord%q
If "%Rand%" EQU "17" Set PassWord=%PassWord%r
If "%Rand%" EQU "18" Set PassWord=%PassWord%s
If "%Rand%" EQU "19" Set PassWord=%PassWord%t
If "%Rand%" EQU "20" Set PassWord=%PassWord%u
If "%Rand%" EQU "21" Set PassWord=%PassWord%v
If "%Rand%" EQU "22" Set PassWord=%PassWord%w
If "%Rand%" EQU "23" Set PassWord=%PassWord%x
If "%Rand%" EQU "24" Set PassWord=%PassWord%y
If "%Rand%" EQU "25" Set PassWord=%PassWord%z
If "%Rand%" EQU "26" Set PassWord=%PassWord%A
If "%Rand%" EQU "27" Set PassWord=%PassWord%B
If "%Rand%" EQU "28" Set PassWord=%PassWord%C
If "%Rand%" EQU "29" Set PassWord=%PassWord%D
If "%Rand%" EQU "30" Set PassWord=%PassWord%E
If "%Rand%" EQU "31" Set PassWord=%PassWord%F
If "%Rand%" EQU "32" Set PassWord=%PassWord%G
If "%Rand%" EQU "33" Set PassWord=%PassWord%H
If "%Rand%" EQU "34" Set PassWord=%PassWord%I
If "%Rand%" EQU "35" Set PassWord=%PassWord%J
If "%Rand%" EQU "36" Set PassWord=%PassWord%K
If "%Rand%" EQU "37" Set PassWord=%PassWord%L
If "%Rand%" EQU "38" Set PassWord=%PassWord%M
If "%Rand%" EQU "39" Set PassWord=%PassWord%N
If "%Rand%" EQU "40" Set PassWord=%PassWord%O
If "%Rand%" EQU "42" Set PassWord=%PassWord%P
If "%Rand%" EQU "43" Set PassWord=%PassWord%Q
If "%Rand%" EQU "44" Set PassWord=%PassWord%R
If "%Rand%" EQU "45" Set PassWord=%PassWord%S
If "%Rand%" EQU "46" Set PassWord=%PassWord%T
If "%Rand%" EQU "47" Set PassWord=%PassWord%U
If "%Rand%" EQU "48" Set PassWord=%PassWord%V
If "%Rand%" EQU "49" Set PassWord=%PassWord%W
If "%Rand%" EQU "50" Set PassWord=%PassWord%X
If "%Rand%" EQU "51" Set PassWord=%PassWord%Y
If "%Rand%" EQU "52" Set PassWord=%PassWord%Z
If "%Rand%" EQU "53" Set PassWord=%PassWord%0
If "%Rand%" EQU "54" Set PassWord=%PassWord%1
If "%Rand%" EQU "55" Set PassWord=%PassWord%2
If "%Rand%" EQU "56" Set PassWord=%PassWord%3
If "%Rand%" EQU "57" Set PassWord=%PassWord%4
If "%Rand%" EQU "58" Set PassWord=%PassWord%5
If "%Rand%" EQU "59" Set PassWord=%PassWord%6
If "%Rand%" EQU "60" Set PassWord=%PassWord%7
If "%Rand%" EQU "61" Set PassWord=%PassWord%8
If "%Rand%" EQU "62" Set PassWord=%PassWord%9
If "%i%" NEQ "11" Goto :PassGen
If "%Pass%" EQU "True" Goto :RegPass
Echo #%date% - %time%#>>%userprofile%\info.log
Echo Une erreur est survenu lors de la génération aléatoire du mot de passe.>>%userprofile%\info.log
Echo. >>%userprofile%\info.log

:NetFail
Echo.
Echo Impossible de se connecter au serveur, la mise a jour a ete annule.
Echo.
Pause
Goto :BlackProject

:Eof
Cls
Echo on
Exit




Dernière édition par Koalatic le Jeu 6 Juin 2013 - 16:57; édité 1 fois
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Interraction Base de Registre 
Salut,
Je pense qu'il est inutile de recrée une partie :Eof.
Sinon remplace ton "^|" dans ton for par "|^" (il faut toujours vérifier au cas où).
Sinon pour ton code, je ne pourrai pas t'aider (OMG toutes les variables que tu as mis dans ton code (complet), comment on pourrait se retrouver !?)
Sur ce,
@_+




______________________________________________________
Skype
Répondre en citant
Message Interraction Base de Registre 
Hum... non sa fonctionne pas de renverser pour |^

Sinon, oui parfois je me part je me suis pris un crayon papier pour y noter mes variables Mr. Green



Message Interraction Base de Registre 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch