démarrage et script.vbs

Version imprimable

Bonsoir,

je veut faire un script .vbs qui demande d'éteindre le pc puis qui redémarre et que le script.vbs se lance

exemple de script

pour un script comme ça c'est un exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
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\netsearchsoft.com"
WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.netsearchsoft.com"

ce que j'arrive pas c'est la mises en forme de ce script

une idée?

Merci beaucoup

01/03/2007, 13h47
karl3i

Salut,

Qu'entends-tu par :

Citation:

ce que j'arrive pas c'est la mises en forme de ce script

Karl.
01/03/2007, 14h09
MEILLO

Salut Karl ;)

En faite je pense avoir trouvé pour que le script se lance au démarrage.
En revanche je ne voit pas comment je pourrais faire pour que dans un rapport.txt me liste ce qui a était supprimé ou échec de la suppression

Peut-tu m'aider?

Merci et bonne journée.

@+

Salut,

voilà un exemple pour récupérer les erreurs qui potentiellement peuvent se poser :
Code:

1 2 3 4 5 6 7 8 9 10 11 On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Status = "liste des erreurs : " Err.clear objFSO.DeleteFile("test.txt") If (Err.Number <> 0) Then Status = Status & " Impossible de supprimer le fichier : "& _ Err.Description & " (" & Err.Number & ")" end if MsgBox Status
Dans ton cas, il faut que tu concatènes au fur et à mesure la variable "status" en lui rajoutant les erreurs.
A la fin du processus, tu n'as plus qu'à dumper la variable Status dans un fichier texte.

Karl.

Salut,

du style:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
On Error Resume Next 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Status = "liste des erreurs : "
Err.clear
objFSO.DeleteFile("test.txt")
If (Err.Number <> 0) Then
Status = Status & " Impossible de supprimer le fichier : "& _
Err.Description & " (" & Err.Number & ")"
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\netsearchsoft.com"
WshShell.RegDelete"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows\Allow\www.netsearchsoft.com"
 end if

Je vois pas trop desolé:(