Discussion :

[MEILLO]

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 :

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

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

[karl3i]

Salut,

Qu'entends-tu par :

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

Karl.

[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.

@+

[karl3i]

Salut,

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

Code :

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

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.

[MEILLO]

Salut,

du style:

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
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é