vbs

Question

salut tou le monde
je souhaite écrire un script vbs qui créer lui meme un autre script vbs, ce dernier lance un .exe.
le problème c'est lors de l'ecriture dans le deusième script:
voici le code qui lance un .exe:
Set WshShell = createobject("wscript.shell")
Set oExec = WshShell.Exec("C:\Users\Administrateur\Desktop	estvbsexe\Projet1.exe")
if fonctionne , mais quand je le met comme sa :

Ftxt.write(   Set WshShell = createobject("wscript.shell")
Set oExec = WshShell.Exec("C:\Users\Administrateur\Desktop	estvbsexe\Projet1.exe")   )
entraine une beug. MERCIE

nathansecret · Answer

Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim FSo, f
Set FSo = CreateObject("Scripting.FileSystemObject")
Set f = FSo.OpenTextFile("c:\VBScript.vbs", ForWriting,true)
f.write("Set WshShell = WScript.CreateObject(""WScript.Shell"")")
f.write("Set oExec = WshShell.Exec(""C:\Users\Administrateur\Desktop	estvbsexe\Projet1.exe"")")
f.close

'NathanSecret

nathansecret · Answer

Je me suis trompé...
C'est writeline à la place de write.

Ce qui donne :
Const ForReading 1, ForWriting 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim FSo, f
Set FSo = CreateObject("Scripting.FileSystemObject")
Set f = FSo.OpenTextFile("c:\VBScript.vbs", ForWriting,true)
f.writeline("Set WshShell = WScript.CreateObject(""WScript.Shell"")")
f.writeline("Set oExec = WshShell.Exec(""C:\Users\Administrateur\Desktop	estvbsexe\Projet1.exe"")")
f.close

'NathanSecret

Vbs

2 réponses

Votre réponse

Discussions similaires