Discussion :

[sarese]

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

[urcus]

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.

[sarese]

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

[urcus]

tu peux essayer sa :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 après reste a voir comment tu veux ecrire ton "sous-script" ligne par ligne ou en un bloc ....

[sarese]

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à

[SfJ5Rpw8]

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

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

[hackoofr]

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

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

[urcus]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[sarese]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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