Bonjour,
j'ai besoin d'aide.
Je débute en vb script, et j'ai beaucoup de mal.
Je voulais faire un script pour faire une mise à jour antivirus sur 4 machines en réseau fermé ,pas de connexion à internet. Je voudrais installer la mise à jour sur une machine manuellement et laisser les autres se connecter sur celle-ci afin de récupérer et installer la Mise à Jour via vbs en bouclant.

J'ai commençé un bout de script, mais je sèche:

Dim NomMachines()
Dim nblignes
nblignes=0
Const Fichier_Config="Liste Machines Mise a Jour Antivirus.txt"
Const Path_Config=".\"
Name=Path_Config&Fichier_Config
Set FS=CreateObject("Scripting.FileSystemObject")
Set File=FS.OpenTextFile(Name,1)
Do while file.atEndofstream<>True
Ligne=File.Readline
If (Ligne <>"") and (Left (Ligne,1)<>"'")then
nblignes=nblignes+1
end if
MsgBox(Ligne)
Loop
File.close
Msgbox(nblignes)

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\servers and services.txt", ForReading)
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
Wscript.Echo "Server name: " & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Wscript.Echo "Service: " & arrServiceList(i)
Next
Loop

Merci de votre aide.