Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
La base de registre en VBScript
Auteur Message
Répondre en citant
Message La base de registre en VBScript 
Bonjour à tous, ça fait un peut de temps que je ne suis pas venu poser de message par ici ... J'aimerai, dans ce topic vous montrer mes nouvelles idées de modification de la base des registres. On a plus on moins découvert comment la modifier avec un langage de programmation assez simple à utiliser : le batch. Maintenant, que diriez-vous d'un "micro programme", qui à l'aide d'une interface graphique, va vous permettre d'effectuer des modification dans la base de registre à votre guise ... Smile











Bien, alors tout d'abord, je pense bien évidemment qu'il est indispensable d'avoir quelques base en vbs avant de s'aventurer dans ce genre de scripts ... Vous-voulez que je vous dise comment faire ... d'accord, j'y viens, j'y viens ... Seulement, je préfère vous prévenir, je ne suis pas spécialement doué pour expliquer ce genre de chose, alors, si vous voulez un tuto un peu plus convaincant, je vous conseille d'aller en chercher sur google par exemple, et croyez-moi vous en trouverez ... ^^ Au passage, je préférerais ne pas devoir vous faire un tuto sur la structure d'un vbs, la déclaration des variables, l'utilisation de msgbox, inputbox, ... etc. Je vais directement entrer dans le vif du sujet, alors si vous n'y connaissez rien, n'ayez crainte, c'est pas très compliqué, et puis, si vraiment vous êtes perdus, cherchez d'abord des tutos sur internet ... ^^ Bon, ceci étant dit, allons-y :

Pour la modification de la base de registre en vbs, le minimum de code c'est ça :
Code:

set wsh = wscript.createobject("wscript.shell")
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll", "1", "REG_DWORD"

ou
Code:

wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll"


La commande wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll", "1", "REG_DWORD" sert à créer une valeur nommée "AlwaysUnloadDll" de type DWORD sous la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer".
A l'inverse, la commande wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll" sert à supprimer la valeur précédemment créée.

Il existe aussi une autre commande qui permet de lire des valeurs dans le registre, c'est la commande : wsh.regread
exemple :
Code:

MaCle = wsh.regread ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll")
msgbox MaCle, 64+4096+vbokonly, "TEST"

Ce script, va lire le contenu de la valeur "AlwaysUnloadDll" sous la clé "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer", puis va afficher un message à l'écran à titre informationnel, avec comme seul bouton "OK" et qui contiendra le contenu de la clé précédemment lue par la commande wsh.regread.

Voilà, l'essentiel est là, si vous avez besoin d'aide, n'hésitez pas à me demander ... Et si je ne suis pas dispo et que ça vous interresse vraiment, allez chercher de l'aide sur internet ...




Voici certains scripts en vbs que j'ai créé permettant de modifier la base de registre :



Code:

On error resume next
dim wsh, inputch, inputname, fullname, inputfonct, askforquitonfonctprompt, askforquitpos, askforquitshowch, askforquitico, askico, chicon, showch, placeYN, placech, inputdelname, confirmdel, regway, inputdelnamef, askforkill, confirmreplace
set wsh = wscript.createobject("wscript.shell")
fullname = (wscript.ScriptFullName)
regway = "HKEY_CLASSES_ROOT\Directory\Background\shell\"
inputch = inputbox ("1.Ajouter une option au menu contextuel du bureau." & vbcr & vbcr & "2.Supprimer une option du menu contextuel du bureau." & vbcr & vbcr & "Quel est votre choix (1-2) :", "Desktop Context Menu Modder",,60, 8400)
 if inputch = "1" then
 inputname = inputbox ("Quel nom voulez-vous donner à la nouvelle option que vous ajoutez au menu contextuel du bureau ?", "Desktop Context Menu Modder",,60, 8600)
  if inputname = "" then
  askforkill = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
   if askforkill = vbyes then
   wscript.quit
   elseif askforkill = vbno then
   inputname = " "
   end if
  end if
 inputfonct = inputbox ("Quelle commande voulez-vous attribuer à l'option " & chr(34) & inputname & chr(34) & " ?", "Desktop Context Menu Modder",,60, 8600)
  if inputfonct = "" then
  askforquitonfonctprompt = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
   if askforquitonfonctprompt = vbyes then
   wscript.quit
   end if
  end if
 wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname, "Default"
 wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\command\", inputfonct, "REG_SZ"
 askico = msgbox ("Voulez-vous attribuer une icône à " & chr(34) & inputname & chr(34) & " ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
  if askico = vbyes then
  chicon = inputbox ("Quelle icône voulez-vous lui attribuer ?", "Desktop Context Menu Modder",,60, 8600)
   if chicon = "" then
   askforquitico = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
    if askforquitico = vbyes then
    wsh.regdelete regway & inputname & "\command\"
    wsh.regdelete regway & inputname & "\command"
    wsh.regdelete regway & inputname & "\"
    wsh.regdelete regway & inputname
    wscript.quit
    end if
   end if
  wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Icon", chicon, "REG_SZ"
  end if
 showch = inputbox ("3.Afficher l'option " & chr(34) & inputname & chr(34) & " seulement dans le menu contextuel étendu (maj+clic droit)." & vbcr & vbcr & "4.Toujours afficher l'option " & chr(34) & inputname & chr(34) & "." & vbcr & vbcr & "Quel est votre choix (3-4) :", "Desktop Context Menu Modder",,60, 8600)
  if showch = "3" then
  wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Extended", "", "REG_SZ"
  elseif showch = "" then
  askforquitshowch = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
   if askforquitshowch = vbyes then
   wsh.regdelete regway & inputname & "\command\"
   wsh.regdelete regway & inputname & "\command"
   wsh.regdelete regway & inputname & "\"
   wsh.regdelete regway & inputname & "\Icon"
   wsh.regdelete regway & inputname
   wscript.quit
   end if
  elseif showch = "4" then

  else
  msgbox "Votre choix " & chr(34) & showch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "3" & chr(34) & " ou " & chr(34) & "4" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
  wsh.regdelete regway & inputname & "\command\"
  wsh.regdelete regway & inputname & "\command"
  wsh.regdelete regway & inputname & "\"
  wsh.regdelete regway & inputname & "\Icon"
  wsh.regdelete regway & inputname
  wsh.run "explorer " & fullname
  end if
 placeYN = msgbox ("Voulez-vous positionner l'option " & chr(34) & inputname & chr(34) & " dans le menu contextuel du bureau ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
  if placeYN = vbyes then
  placech = inputbox ("5.Placer l'option " & chr(34) & inputname & chr(34) & " en bas du menu contextuel." & vbcr & vbcr & "6.Placer l'option " & chr(34) & inputname & chr(34) & " en haut du menu contextuel." & vbcr & vbcr & "7.Placer l'option " & chr(34) & inputname & chr(34) & " au milieu du menu contextuel." & vbcr & vbcr & "Quel est votre choix (5-7) :", "Desktop Context Menu Modder",,60, 8200)
   if placech = "5" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "bottom", "REG_SZ"
   elseif placech = "6" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "top", "REG_SZ"
   elseif placech = "7" then
   wsh.regwrite "HKEY_CLASSES_ROOT\Directory\Background\shell\" & inputname & "\Position", "middle", "REG_SZ"
   elseif placech = "" then
   askforquitpos = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+vbyesno+4096, "Desktop Context Menu Modder")
    if askforquitpos = vbyes then 
    wsh.regdelete regway & inputname & "\command\"
    wsh.regdelete regway & inputname & "\command"
    wsh.regdelete regway & inputname & "\"
    wsh.regdelete regway & inputname & "\Icon"
    wsh.regdelete regway & inputname & "\Extended"
    wsh.regdelete regway & inputname
    wscript.quit
    end if   
   else
   msgbox "Votre choix " & chr(34) & placech & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "5" & chr(34) & ", " & chr(34) & "6" & chr(34) & " ou " & chr(34) & "7" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
   wsh.regdelete regway & inputname & "\command\"
   wsh.regdelete regway & inputname & "\command"
   wsh.regdelete regway & inputname & "\"
   wsh.regdelete regway & inputname & "\Icon"
   wsh.regdelete regway & inputname & "\Extended"
   wsh.regdelete regway & inputname
   wsh.run "explorer " & fullname
   end if
  end if
 msgbox "L'option " & chr(34) & inputname & chr(34) & " a été rajoutée au menu contextuel du bureau avec succès !", 64+4096+vbokonly, "Desktop Context Menu Modder"
 elseif inputch = "2" then
 inputdelname = inputbox ("Quelle option voulez-vous supprimer du menu contextuel du bureau ?", "Desktop Context Menu Modder",,60, 8600)
  if inputdelname = "" then
  askforkill = msgbox ("Êtes-vous sûr(e) de vouloir quitter Desktop Context Menu Modder ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
   if askforkill = vbyes then
   wscript.quit
   elseif askforkill = vbno then
   inputdelname = " "
   end if
  end if
 wsh.regread regway & inputdelname
  if err.number <> 0 then
  msgbox "L'option " & inputdelname & " n'est pas présente dans le menu contextuel du bureau.", 16+4096+vbokonly, "Desktop Context Menu Modder"
  wsh.run "explorer " & fullname
  wscript.quit
  end if
 confirmdel = msgbox ("Êtes-vous sûr(e) de vouloir supprimer l'option " & chr(34) & inputdelname & chr(34) & " du menu contextuel ?", 32+4096+vbyesno, "Desktop Context Menu Modder")
  if confirmdel = vbyes then
  wsh.regdelete regway & inputdelname & "\command\"
  wsh.regdelete regway & inputdelname & "\command"
  wsh.regdelete regway & inputdelname & "\"
  wsh.regdelete regway & inputdelname & "\Icon"
  wsh.regdelete regway & inputdelname & "\Position"
  wsh.regdelete regway & inputdelname & "\Extended"
  wsh.regdelete regway & inputdelname
  msgbox "L'option " & chr(34) & inputdelname & chr(34) & " a été supprimée du menu contextuel avec succès !", 64+vbokonly+4096, "Desktop Context Menu Modder"
  elseif confirmdel = vbno then
  msgbox "L'opération a été annulée par l'utilisateur.", 48+4096+vbokonly, "Desktop Context Menu Modder"
  end if
 elseif inputch = "" then
 wscript.quit
 else
 msgbox "Votre choix " & chr(34) & inputch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "1" & chr(34) & " ou " & chr(34) & "2" & chr(34) & ".", 16+4096+vbokonly, "Desktop Context Menu Modder"
 wsh.run "explorer " & fullname
 end if
wscript.quit

Ce script permet de modifier le menu contextuel du bureau (clic droit)

Code:

on error resume next
dim wsh, diskdrive, icon, askforbcktdflt, actualicon
set wsh = wscript.createobject("wscript.shell")
diskdrive = inputbox ("Indiquez la lettre du disque dur dont vous voulez changer l'icône :", "DiskDrive Icon Modder", "exemple : " & chr(34) & "C" & chr(34))
 if diskdrive = "" then
 wscript.quit
 elseif len(diskdrive) > 1 then
 msgbox "Veuillez saisir une lettre de disque valide ! (exemple : " & chr(34) & "C" & chr(34) & " ou " & chr(34) & "c" & chr(34) & ")", 16+4096+vbokonly, "DiskDrive Icon Modder"
 wsh.run "explorer " & wscript.scriptfullname
 wscript.quit
 elseif IsNumeric(diskdrive) = True then
 msgbox "Veuillez saisir une lettre de disque valide ! (exemple : " & chr(34) & "C" & chr(34) & " ou " & chr(34) & "c" & chr(34) & ")", 16+4096+vbokonly, "DiskDrive Icon Modder"
 wsh.run "explorer " & wscript.scriptfullname
 wscript.quit
 elseif IsEmpty(diskdrive) = True then
 wscript.quit
 end if
actualicon = wsh.regread ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\Defaulticon\")
icon = inputbox ("Indiquez l'icône que vous voulez lui attribuer :", "DiskDrive Icon Modder", actualicon)
if icon = "" then
 askforbcktdflt = msgbox ("Voulez-vous réinitialiser l'icône du disque (" & diskdrive & ":) ?", 32+4096+vbyesno, "DiskDrive Icon Modder")
  if askforbcktdflt = vbyes then
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\"
  wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive
  wsh.sendkeys "{F5}"
  msgbox "L'icône du disque (" & diskdrive & ":) a été réinitialisée avec succès !", 64+4096+vbokonly, "DiskDirve Icon Modder"
  wscript.quit
  end if
 wscript.quit
 end if
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\"
wsh.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & diskdrive & "\DefaultIcon\", icon, "REG_SZ"
wsh.sendkeys "{F5}"
msgbox "L'icône du disque (" & diskdrive & ":) a été modifiée avec succès. Son icône est désormais : " & icon & " !", 64+4096+vbokonly, "DiskDirve Icon Modder"
wscript.quit   
Ce script permet de modifier les icônes des disques durs connectés à l'ordinateur.

Code:
 
on error resume next
dim wsh, inputch
set wsh = wscript.createobject("wscript.shell")
inputch = inputbox ("1.Eteindre l'ordinateur    2.Redémarrer l'ordinateur" & vbcr & vbcr & "3.Hiberner                      4.Mettre en veille" & vbcr & vbcr & "5.Fermer la session        6.Vérouiller" & vbcr & vbcr & "7.Changer d'utilisateur", "Power Button Action",, 60, 8400)
 if inputch = "1" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "2", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Arrêter" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "2" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "4", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Redémarrer" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "3" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "64", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Hiberner" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "4" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "16", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Mettre en veille" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "5" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "1", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Fermer la session" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "6" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "512", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Vérouiller" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "7" then
 wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Start_PowerButtonAction", "256", "REG_DWORD"
 msgbox "Le boutton d'arrêt à pour fonction : " & chr(34) & "Changer d'utilisateur" & chr(34) & ". Si les modifications n'ont pas été prises en compte, veuillez rafraîchir le menu démarrer avec la touche " & chr(34) & "F5" & chr(34), 64+4096+vbokonly, "Power Button Action"
 wscript.sleep 50
 wsh.sendkeys "^{ESCAPE}"
 wscript.sleep 200
 wsh.sendkeys "{f5}"
 wscript.sleep 200
 wsh.sendkeys "^{ESCAPE}"
 wscript.quit
 elseif inputch = "" then
 wscript.quit
 elseif len(inputch) > 1 then
 msgbox "Votre choix " & chr(34) & inputch & chr(34) & " n'est pas valide. Il ne doit pas contenir plus d'un caractère numérique.", 16+4096+vbokonly, "Power Button Action"
 wsh.run "explorer " & wscript.scriptfullname
 elseif IsNumeric(inputch) = False then
 msgbox "Votre choix " & chr(34) & inputch & chr(34) & " n'est pas valide. Il ne peut contenir que des chiffres.", 16+4096+vbokonly, "Power Button Action"
 wsh.run "explorer " & wscript.scriptfullname
 elseif IsEmpty(inputch) = True then
 wscript.quit
 else
 msgbox "Votre choix " & chr(34) & inputch & chr(34) & " n'est pas valide. Les choix valides sont : " & chr(34) & "1" & chr(34) & ", " & chr(34) & "2" & chr(34) & ", " & chr(34) & "3" & chr(34) & ", " & chr(34) & "4" & chr(34) & ", " & chr(34) & "5" & chr(34) & ", " & chr(34) & "6" & chr(34) & " et " & chr(34) & "7" & chr(34) & ".", 16+4096+vbokonly, "Power Button Action"
 wsh.run "explorer " & wscript.scriptfullname
 end if
wscript.quit
Ce script permet de modifier le bouton d'arrêt du menu démarrer (par défaut "Arrêt")

Code:

on error resume next
dim wsh, ask, actualstateforrun
set wsh = wscript.createobject("wscript.shell")
ask = msgbox ("Voulez-vous cacher le contenu de Exécuter (run.exe) ?", 32+4096+vbyesnocancel, "Run Ridder")
 if ask = vbyes then
 actualstateforrun = wsh.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList")
  if actualstateforrun = "" then
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " était déjà caché ... ", 64+4096+vbokonly, "Run Ridder"
  wscript.quit
  elseif actualstateforrun <> "" then
  wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "", "REG_SZ"
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " a été caché avec succès !", 64+4096+vbokonly, "Run Ridder"
  end if
 elseif ask = vbno then
 actualstateforrun = wsh.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList")
  if actualstateforrun <> "abcdefghijklmnopqrstuvwxyz" then
  wsh.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "abcdefghijklmnopqrstuvwxyz", "REG_SZ"
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " est maintenant disponible !", 64+4096+vbokonly, "Run Ridder"
  wscript.quit
  elseif actualstateforrun = "abcdefghijklmnopqrstuvwxyz" then
  msgbox "Le contenu de " & chr(34) & "Exécuter" & chr(34) & " était déjà disponible ... ", 64+4096+vbokonly, "Run Ridder"
  end if
 elseif ask = "" then
 wscript.quit
 end if
wscript.quit
Ce script permet de cacher ou d'afficher, selon le choix de l'utilisateur le contenu d'exécuter (run en anglais).

Code:

set wshshell = wscript.createobject("wscript.shell")
fullname = (wscript.ScriptFullName)
ch = inputbox ("1.Arrêter l'ordinateur                  2.Redémarrer" & vbcr & vbcr & "3.Mettre en veille prolongée     4.Fermer la session" & vbcr & vbcr & "5.Annuler l'opération en cours" & vbcr & vbcr & vbcr & "Quel est votre choix (1-5) ?", "Shutdown box",,60, 8250)
 if ch = "1" then
 sht = inputbox ("Dans combien de temps ? (secondes)", "Shutdown box",,60, 8650)
  if sht = "" then
  askaqb = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
   if askaqb = vbYes then
   wscript.quit()
   end if
  end if
 chmsgshs = msgbox ("Afficher un message personnalisé ?", 32+4096+vbyesno, "Shutdown box")
  if chmsgshs = vbyes then
  shm = inputbox ("Message personnalisé :", "Shutdown box",,60, 8650)
   if shm = "" then
   askq = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
    if askq = vbYes then
    wscript.quit()
    end if
   end if
  wshshell.run "shutdown -s -t " & sht & " -c " & chr(34) & shm & chr(34), 6 
  else
  wshshell.run "shutdown -s -t " & sht
  end if
 elseif ch = "2" then
 rht = inputbox ("Dans combien de temps ? (secondes)", "Shutdown box",,60, 8650)
  if rht = "" then
  askaq = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
   if askaq = vbYes then
   wscript.quit()
   end if
  end if
 chmsgshr = msgbox ("Afficher un message personnalisé ?", 32+4096+vbyesno, "Shutdown box")
  if chmsgshr = vbyes then
  shm = inputbox ("Message personnalisé :", "Shutdown box",,60, 8650)
   if shm = "" then
   askaqa = msgbox ("Quitter Shutdown box ?" ,32+0+4+4096, "Shutdown box")
    if askaqa = vbYes then
    wscript.quit()
    end if
   end if 
  wshshell.run "shutdown -r -t " & rht & " -c " & chr(34) & shm & chr(34), 6
  else
  wshshell.run "shutdown -r -t " & rht
  end if
 elseif ch = "3" then
 askh = msgbox ("Êtes vous sûr de vouloir mettre l'ordinateur en veille prolongée ?" ,0+4+32+4096, "Shutdown box")
  if askh = vbNo then
  wshshell.run "explorer " & fullname
  else
  wshshell.run "shutdown -h", 0
  end if
 elseif ch = "4" then
 askf = msgbox ("Êtes vous sûr de vouloir fermer la session ?" ,0+4+32+4096, "Shutdown box")
  if askf = vbNo then
  wshshell.run "explorer " & fullname
  else
  wshshell.run "shutdown -f", 0
  end if
 elseif ch = "5" then
 wshshell.run "shutdown -a", 0
 elseif ch = "" then
 wscript.quit()
 else
 msgbox "Votre choix " & chr(34) & ch & chr(34) & " n'est pas valide. Les choix valides sont " & chr(34) & "1" & chr(34) & ", " & chr(34) & "2" & chr(34) & ", " & chr(34) & "3" & chr(34) & ", " & chr(34) & "4" & chr(34) & " ou " & chr(34) & "5" & chr(34) & ".", 16+4096+vbokonly, "Shutdown box" 
 wshshell.run "explorer " & fullname
end if
Ce script permet d'arrêt l'ordinateur de manière personnalisée.

Code:

Option Explicit
On Error Resume Next
dim wsh, msg, act, choice

set wsh = wscript.createobject("wscript.shell")
act = wsh.regread("HKEY_CURRENT_USER\Control Panel\International\s1159")
msg = inputbox ("Message à afficher dans la barre des tâches (maximum 14 caractères)" ,"Taskbar Message Maker" ,act ,60 ,8650 )
 if msg = "" then
  if act = "" then
  wscript.quit
  end if
 choice = msgbox ("Voulez-vous supprimer le message de la barre des tâches ?" ,32+4096+vbyesno, "Taskbar Message Maker")
  if choice = vbyes then
  wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159", "", "REG_SZ"
  wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359", "", "REG_SZ"
  msgbox "Le message a été supprimé de la barre des tâches, veuillez patienter quelques secondes avant que les modifications soient prises en compte." ,64+4096+vbokonly, "Taskbar Message Maker"
  end if
 wscript.quit()
 elseif len(msg) > 14 then
 msgbox "Votre message comporte trop de caractères (" & len(msg) & "). Il ne dois pas dépasser 14 caractères !", 16+4096+vbokonly, "Taskbar Message Maker"
 wsh.run "explorer " & wscript.scriptfullname
 wscript.quit
 end if 
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s1159", msg, "REG_SZ"
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\s2359", msg, "REG_SZ"
wsh.regwrite "HKEY_CURRENT_USER\Control Panel\International\sTimeFormat", "tt HH:mm", "REG_SZ"
msgbox "Votre texte :" & chr(34) & msg & chr(34) & "a été enregistré avec succès, il sera modifié dans quelques secondes. Merci d'avoir utilisé Taskbar Message Maker !" ,64+4096+vbokonly, "Succes MSG Taskbar"
Ce script permet d'afficher un message personnalisé sur la barre des tâches, à côté de la date.

Je ne les mets pas tous, il y en aurait un peu trop, mais, au moins, ça vous laisse découvrir ce qu'on peut faire avec du vbs ... ^^ Amusez-vous bien !!




______________________________________________________
Cordialement, </Troud>.
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message La base de registre en VBScript 
Hello Cool

Shocked Okay

A + Mr. Green et merci du partage.




______________________________________________________
Le batch est mon joujou de tout les jours,
plus pour le loisir que pour le travail,
et avec j'apprend presque tout les jours,
comment programmer et le travailler,
pour avoir enfin un résultat cool.

Ed la poignée du 93 (^_^)
Yahoo Messenger MSN Skype
Message La base de registre en VBScript 


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