scrit.vbs qui se lance au démarrage

Question

Bonsoir,

Je voudrais savoir si c'est possible qu'un script.vbs se lance au démarrage?
si oui comment faire?

Merci

cs_ghuysmans99 · Answer

tu vas dans : Start -> Run -> gpedit.msc -> Computer Configuration -> Windows Settings -> Scripts(Startup/Shutdown)

voila !

mahelan · Answer

ok merci,

mais je veut faire telecharger des scripts à des personne et qui se lance seul au démarrage c'est possible?

merci

cs_ghuysmans99 · Answer

oui, il faut modifier le fichier : c:\WINDOWS\system32\GroupPolicy\User\Scripts\scripts.ini

mahelan · Answer

ok merci,
je comprend pas bien,peut-tu me donner un exemple que j'essaye chez moi?

merci

mahelan · Answer

comment je pourrais faire sinon comme cela
que le script creé une valeur ici

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce

une fois redémarré le script se lance au démarrage

cs_ghuysmans99 · Answer

[Logoff]
0CmdLine=C:\Maintenance\Cleaning.bat
0Parameters=
1CmdLine=C:\Maintenance\Subst.bat
1Parameters=u
[Logon]
0CmdLine=C:\Maintenance\Subst.bat
0Parameters=m

Mettre ça dans le fichier : c:\WINDOWS\system32\grouppolicy\User\Scripts\Scripts.ini

mahelan · Answer

Ok,mais je comprend pas

pour un script comme ça c'est un exemple

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("C:\WINDOWS\Tasks\AA8E950191850569.job")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder("C:\Documents and Settings\All Users\Application Data\Dent Exit Log Fast")
objFSO.DeleteFolder("C:\Documents and Settings\Thibaud Caquant\Application Data\Once Dog Ace")
objFSO.DeleteFolder("C:\Documents and Settings\Thibaud Caquant\Application Data\BitRoll")
objFSO.DeleteFolder("C:\Program Files\BitRoll")
objFSO.DeleteFolder("C:\Program Files\Once Dog Ace")
Set WshShell = CreateObject("Wscript.Shell")
WshShell.RegDelete"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\log fast hole gram"
WshShell.RegDelete"HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ViewMode"
WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow
etsearchsoft.com"
WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.netsearchsoft.com"
End With

je veut que quand il clique dessus une boite de dialogue admetons qui fais ce que tu as dit plus haut
puis qui eteint son pc et au démarrage que le script se lance

ce que j'arrive pas c'est la mises en forme de ce script

Tas une idée?

Merci beaucoup

cs_ghuysmans99 · Answer

il y a plus simple que ma méthode : la clé registre HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
il suffit d'ajouter une clé du nom que tu veux et la valeur est le nom de l'exe/script que tu veux lancer !

mahelan · Answer

peut-tu me donner un exemple stp?

Merci

mahelan · Answer

je ne trouve pas

cs_ghuysmans99 · Answer

Mets tout ce qui est en rouge dans un module mod_Registry.bas

'####################################################
'################ Registry Module ###################
'################ mod_Registry.bas ##################
'######## By Ghuysmans99 (CodeS-SourceS.com) ########
' http://www.vbfrance.com/auteurdetail.aspx?ID=549970
'####################################################



Option Explicit



Public Enum E_Registry_HKey
 HKEY_CLASSES_ROOT = 0
 HKEY_CURRENT_USER = 1
 HKEY_LOCAL_MACHINE = 2
 HKEY_USERS = 3
 HKEY_CURRENT_CONFIG = 4
End Enum
Public Enum E_Registry_ValueType
 REG_SZ = 0
 REG_DWORD = 1
 REG_BINARY = 2
 REG_EXPAND_SZ = 3
End Enum



Public Function RegRead(HKEY As E_Registry_HKey, regpath As String)
 Dim WSH As Object
 Set WSH = CreateObject("WScript.Shell")
 RegRead = WSH.RegRead(GetHKey(HKEY) & "" & regpath)
 Set WSH = Nothing
End Function



Public Function RegWrite(HKEY As E_Registry_HKey, regpath As String, RegValue As String, Optional RegValueType As E_Registry_ValueType = REG_SZ)
 Dim WSH As Object
 Set WSH = CreateObject("WScript.Shell")
 WSH.RegWrite GetHKey(HKEY) & "" & regpath, RegValue, GetValueType(RegValueType)
 Set WSH = Nothing
End Function



Public Function RegDelete(HKEY As E_Registry_HKey, regpath As String)
 Dim WSH As Object
 Set WSH = CreateObject("WScript.Shell")
 WSH.RegDelete GetHKey(HKEY) & "" & regpath
 Set WSH = Nothing
End Function



Private Function GetHKey(HKEY As E_Registry_HKey) As String
 Select Case HKEY
  Case 0: GetHKey = "HKEY_CLASSES_ROOT"
  Case 1: GetHKey = "HKEY_CURRENT_USER"
  Case 2: GetHKey = "HKEY_LOCAL_MACHINE"
  Case 3: GetHKey = "HKEY_USERS"
  Case 4: GetHKey = "HKEY_CURRENT_CONFIG"
 End Select
End Function



Private Function GetValueType(VALUETYPE As E_Registry_ValueType) As String
 Select Case VALUETYPE
  Case 0: GetValueType = "REG_SZ"
  Case 1: GetValueType = "REG_DWORD"
  Case 2: GetValueType = "REG_BINARY"
  Case 3: GetValueType = "REG_EXPAND_SZ"
 End Select
End Function


Puis mets tout ce qui est en vert dans un form qui s'appelle frm_prog


Private Sub Form_Load()
 Const keyname As String = "Software\Microsoft\Windows\CurrentVersion\RunOnce"
 mod_Registry.RegWrite HKEY_CURRENT_USER, keyname & "\LeScriptVBS", "LePathVBS", REG_SZ
End Sub

mahelan · Answer

Re,

pas tous comprid la

cela va faire quoi exactement?.
 form qui s'appelle frm_prog
 = c'est quoi?

module mod_Registry.bas
=c'est quoi?

cs_ghuysmans99 · Answer

mod_Registry : c'est un module registre
frm_prog : un form qui va écrire dans "Software\Microsoft\Windows\CurrentVersion\RunOnce" une valeur "LeScriptVBS" qui contiendra "LePathVBS"

OK?
Je l'ai éxécuté chez moi, tu ne crois quand même pas que c'est un truc qui atomise HKEY_CLASSES_ROOT   !

mahelan · Answer

Ok,

j'arrive pas à le méttre en foreme avec le script donné à la page1
peut tu me montrer?

Merci

cs_ghuysmans99 · Answer

Voila le code ...
Pas besoin d'utiliser mon module !
PS: Tout ce qui est en bleu c'est ce que j'ai ajouté/changé
 

Dim objFSO ' As Object
 Dim WshShell ' As Object
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set WshShell = CreateObject("Wscript.Shell")
 objFSO.DeleteFile ("C:\WINDOWS\Tasks\AA8E950191850569.job")
 objFSO.DeleteFolder ("C:\Documents and Settings\All Users\Application Data\Dent Exit Log Fast")
 objFSO.DeleteFolder ("C:\Documents and Settings\Thibaud Caquant\Application Data\Once Dog Ace")
 objFSO.DeleteFolder ("C:\Documents and Settings\Thibaud Caquant\Application Data\BitRoll")
 objFSO.DeleteFolder ("C:\Program Files\BitRoll")
 objFSO.DeleteFolder ("C:\Program Files\Once Dog Ace")
 WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\log fast hole gram"
 WshShell.RegDelete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ViewMode"
 WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow
etsearchsoft.com"
 WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.netsearchsoft.com"
 WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce\MonVBS", "C:\MonVBS.vbs"
 Call WshShell.Exec("tsshutdn /REBOOT /DELAY:1")
 Set objFSO = Nothing
 Set WshShell = Nothing

mahelan · Answer

ok sympa,avec ça il se lance au reboot?
y'a moyen que le pc se ferme en cliquand sur ok?
car la il ne s'etteint pas et le script se lance des qu'on clique dessus,il suis pénible désolé
et si à la fin du script on met
WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce\MonVBS"
comme ça la clé se supprime et evite au script de ce relancer au prochain démarrage?

merci grandement

mahelan · Answer

Salut,

ça marche effectivement,

petite quéstion:
comment faire pour que le script se lance et donc supprime dans ce cas la que lord du démarrage?
car la il supprime direct des qu'on clique dessus

merci

cs_ghuysmans99 · Answer

avant le début, tu mes : 
 Dim reslt 'As VbMsgBoxResult
 reslt = MsgBox("Voulez-vous que ce script supprime les répertoires/clés reg ?", vbQuestion Or vbYesNo, "Question!")
 If reslt = vbNo Then End

voila!

mahelan · Answer

Salut,

j'ai une erreur la?

Dim reslt 'As VbMsgBoxResult
 reslt = MsgBox("Voulez-vous que ce script supprime les répertoires/clés reg ?", vbQuestion Or vbYesNo, "Question!")
If reslt = vbNo Then End
Dim objFSO ' As Object
 Dim WshShell ' As Object
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set WshShell = CreateObject("Wscript.Shell")
 objFSO.DeleteFile ("C:\WINDOWS\Tasks\AA8E950191850569.job")
 objFSO.DeleteFolder ("C:\Documents and Settings\All Users\Application Data\Dent Exit Log Fast")
 objFSO.DeleteFolder ("C:\Documents and Settings\Thibaud Caquant\Application Data\Once Dog Ace")
 objFSO.DeleteFolder ("C:\Documents and Settings\Thibaud Caquant\Application Data\BitRoll")
 objFSO.DeleteFolder ("C:\Program Files\BitRoll")
 objFSO.DeleteFolder ("C:\Program Files\Once Dog Ace")
 WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\log fast hole gram"
 WshShell.RegDelete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\ViewMode"
 WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow
etsearchsoft.com"
 WshShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.netsearchsoft.com"
 WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\RunOnce\MonVBS", "C:\MonVBS.vbs"
 Call WshShell.Exec("tsshutdn /REBOOT /DELAY:1")
 Set objFSO = Nothing
 Set WshShell = Nothing

merci beaucoup

cs_ghuysmans99 · Answer

non, il n'y en a pas !

Scrit.vbs qui se lance au démarrage

33 réponses

Votre réponse

Discussions similaires