crée du un fichier .vbs avec du vbs

bonjour,

je voudrais pouvoir faire 1 fichier vbs qui en fais un autre vbs a un endroit bien précis dans l ordinateur(ca doit être dans les script de démarrage)j aimerais que quand on clique sur mon fichier sa créer mon nouveau fichier avec le scripte a l’intérieure

merci

Sais tu déjà se que tu veux écrire dans le vbs que tu veux crée ?
Car sinon je pense qu'il te suffit de proceder de la même facon que pour editer un fichier texte.

oui j ai déjà tout le code fais sauf que je sais pas comment convertir le .txt avec le code vbs

tu peux essayer sa :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set objFSO = CreateObject("Scripting.FileSystemObject")   If objFSO.FileExists ("C:\Users\Public\Desktop\essai.vbs") Then 'verifie que le fichier n'exista pas deja Else Set objTextFile = objFSO.CreateTextFile("C:\Users\Public\Desktop\essai.vbs", True) 'cree le fichier si necessaire End If   objTextFile.Writeline "msgbox "&chr(34) &"hello world " &chr(34) 'ici tu ecris ton script en remplacant tes guillements pas des chr(34)   objTextFile.close 'ferme le fichier

---

Sa devrai marcher :ccool: après reste a voir comment tu veux ecrire ton "sous-script" ligne par ligne ou en un bloc ....

merci pour le code. une petite question.

quelle est la différence entre en bloc et ligne par ligne dans se cas ?
et il me met l'erreur 800a004c ligne 5 caractère 3, Heuuuuu je comprend pas là

Citation:

---

Envoyé par sarese

...et il me met l'erreur 800a004c ligne 5 caractère 3, ...

---

tu as adapté le code ..? (répertoires , nom de fichiers. ..?)

Citation:

---

Envoyé par sarese

oui j ai déjà tout le code fais sauf que je sais pas comment convertir le .txt avec le code vbs

---

:salut:
ou est ton code ? faites un copie coller ici ton travail et n'oublies pas de le mettre entre la balise :tagcode:
:merci:

La différence viens du fait que si tu choisi d'écrire par ligne tu mettra:

Code:

---

objTextFile.Writeline "msgbox "&chr(34) &"hello world " &chr(34)

---

avec un "writeline" (tu peux même t'économiser le fait d'ecrire a chaque fois objtextfile avc un with)

Par contre si tu ecris en bloc sa donnera

Code:

---

objTextFile.Writeline "msgbox "&chr(34) &"hello world " &chr(34) &chr(13) &"msgbox &chr(34) &"hello world II le retour " &chr(34) "

---

comme tu vois pour différencier une ligne d'une autre il faut rajouter un chr(13) (équivalent d'un entrer)

Personnellement à ta place je choisirais la méthode par ligne qui est plus clair et plus facile a relire en cas d'erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

dim i MsgBox "la securité est toujours active veuillez la desactiver "   WScript.Sleep "1200" Dim objShell, strComputer, strInput Dim strShutdown   Do strComputer = "." If strComputer <> "" Then strInput = True End if Loop until strInput = True   strShutdown = "shutdown -l \\" & strComputer   set objShell = CreateObject("WScript.Shell")   objShell.Run strShutdown   Wscript.Quit

---

voila mon code
c est une sécurité qui est sensé faire la déconnection de la sessions après 20 minute si on ne désactive pas le vbs.je devrais encore faire un autre vbs mais je vais essayer de me débrouiller

Citation:

---

Envoyé par sarese

Code:

---

1 2	dim i MsgBox "la securité est toujours active veuillez la desactiver "

---

voila mon code
c est une sécurité qui est sensé faire la déconnection de la sessions après 20 minute si on ne désactive pas le vbs.je devrais encore faire un autre vbs mais je vais essayer de me débrouiller

---

:salut:
J'ai pas bien saisi que tu doit-être sensé de faire; si tu nous explique mieux les choses et comment tu teste la sécurité si est elle est réellement active ou non ?
càd par quel moyen ? ou bien il y a quelques lignes qui manque pour ce test :koi:

Citation:

---

MsgBox "la securité est toujours active veuillez la desactiver "

---

:salut:
Bon vis a vis de se que l'on avais ecris plus tot il faudrais que tu mette dans ton premier code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Set objFSO = CreateObject("Scripting.FileSystemObject")   If objFSO.FileExists ("C:\Users\Public\Desktop\essai.vbs") Then 'verifie que le fichier n'exista pas deja Else Set objTextFile = objFSO.CreateTextFile("C:\Users\Public\Desktop\essai.vbs", True) 'cree le fichier si necessaire End If with objTextFile .writeline "dim i" .writeline "MsgBox" &chr(34) &"la securité est toujours active veuillez la desactiver " &chr(34)   .writeline "WScript.Sleep 1200" .writeline "Dim objShell, strComputer, strInput" .writeline "Dim strShutdown"   .writeline "Do" .writeline "strComputer = " &chr(34) &"." &chr(34) .writeline "If strComputer <>" &chr(34) &chr(34) &" Then" .writeline "strInput = True" .writeline "End if" .writeline "Loop until strInput = True"   .writeline "strShutdown = " &chr(34) &"shutdown -l \\" &chr(34) &"& strComputer"   .writeline "set objShell = CreateObject(" &chr(34) &"WScript.Shell" &chr(34) &")"   .writeline "objShell.Run strShutdown"   .writeline "Wscript.Quit"

---

Sinon je suis dans le même cas que hackoofr je ne comprend pas ton script :arf:

Tu n'aurais pas un probleme de boucle aussi ? car en m'etant:

Citation:

---

Envoyé par sarese

Do
strComputer = "."
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True

---

tu dois crée une boucle infinie :zen:

le truc est assez simple. mon code que je vous ai envoyer c est juste une message box une pause et un shutdown -l (fermer session ) et je fais un autre ficher (n'import quelle extension) qui le supprime des processus avant que la pause soit terminer donc que la session se ferme (c est un code fais avec quelque ami et c est le truc de voir comment faire un securité avec un vbs meme si c est une sécurité basique mais voila )

merci pour le code

bah le principale c'est que toi tu t'y retrouve :mrgreen:
Par contre si pour toi le probleme est resolu oublie pas de cliquer sur :resolu: