Creation fichier batch pour installation patch windows

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (raef1234)