Creation fichier batch pour installation patch windows

Soyez le premier à donner votre avis sur cette source.

Vue 13 434 fois - Téléchargée 607 fois

Description

Ce code est pour la creation d'un fichier .BAT pour l'execution automatique des patchs de microsoft (seulement microsoft : windows, media player, MDAC, office). Sans etre obliger de passer par la sourie, en mode silencieux en appliquant les option d'execution en mode MSDOS
PRATIQUE quand on a plusieur mise a jour a installer .

Source / Exemple :


Private Sub Command1_Click()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(Text1)
d = ""
If (Len(File1.Path) > 3) Then a = "\"
If Check1 Then d = d & " /Q"
If Check2 Then d = d & " /Z"
If Check3 Then d = d & " /M"
If Check4 Then d = d & " /L"
If Check5 Then d = d & " /N"
If Check6 Then d = d & " /F"
With MonFic 'Pour écrire dans le fichier texte
For i = 0 To (File1.ListCount - 1)
.WriteLine File1.Path & a & File1.List(i) & d
Next
End With
msg = "Écriture réussie dans fichier.txt"
MsgBox (msg)
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
33
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
6 avril 2006

si c pratique quand tu vient de formater et que tu veux pas te faire chier a installer a la main et une par une les MAJ Windows.

mais bon c ni plus ni moins que de faire un batch.

a+++
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
1
Je vois pas l'intérêt !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.