Script vbs pour installer vos applications !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 56 062 fois - Téléchargée 34 fois

Contenu du snippet

Voici un script en vbs qui permet d'installer vos applications en quelques secondes.

voci ce qu'il fait :

-Affiche le fichier read me
-Il cree un repertoire dans Program Files
-Il cree un racourcie dans le menu demarrer/programmes
-et au choix un raccourcie sur le bureau

Voila c deja bien non ?

Source / Exemple :


Rem --Affiche le fichier Read me
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.OpenTextFile("A lire.txt", 1) 
Contenu = MonFic.ReadAll 
readme = msgbox(Contenu, vbinformation, "Lisez Moi")

install=msgbox("Bienvenue !" & vbcrlf & "Ce script va vous permettre d'installer le logiciel CommuniX. Voulez vous continuer ?", vbquestion+vbYesNo,"Installation du logiciel CommuniX")

if install=vbYes then 
	on error resume next
	debutinst = MsgBox("Ce script va copier les fichiers dans le repetoire C:\Program Files\communix\ de votre ordinateur." & vbcrlf & "Voulez vous changer le répertoir de déstination ?",vbyesno+vbquestion,"Choix du repetoire d'installation !")

	if debutinst = vbyes then
Rem -- Une boite de dialogue souvre et vous demande le chemin ou vous voulez copier les fichiers
	                chemin = InputBox("Rentrer ici le Chemin ou vous voulez copier les fichiers.","Change path","C:\Program Files\communix\")
	else	
Rem -- Sinon on copie les fichier dans le repertoire par default
                                chemin = "C:\Program Files\communix\"
	end if
Rem -- On cree le dossier communix dans Program Files
	Set ddr = CreateObject("Scripting.FileSystemObject")
	Set re = ddr.createfolder(chemin)

Rem -- On copie Monappli.exe dans le dossier communix 
	ddr.CopyFile "Monappli.exe",chemin & "Monappli.exe"
	
Rem -- on copie les dll dans le dossier systeme (repsys) ou le dossier windows (repwin)
	Set repwin = ddr.GetSpecialFolder(0)
	Set repsys = ddr.GetSpecialFolder(1)
	ddr.CopyFile "Mswinsck.ocx",repsys & "Mswinsck.ocx"
	ddr.CopyFile "Richtx32.ocx",repsys & "Richtx32.ocx"
	ddr.CopyFile "Vb6fr.dll",repsys & "Vb6fr.dll"
	ddr.CopyFile "Winsock.dll",repwin & "Winsock.dll"

Rem -- on Cree le dossier communix dans le menu demarrer/programmes
	Set WshShell = WScript.CreateObject("WScript.Shell")
	prog = WshShell.SpecialFolders("Programs")

	Set fso = CreateObject("Scripting.FileSystemObject")
	Set f = fso.CreateFolder(prog & "/CommuniX")

Rem -- On cree un raccouricie dans ce dossier
	Set Racc = WshShell.CreateShortcut(prog & "/CommuniX/Monappli.lnk")
	Racc.TargetPath=chemin & "Monappli.exe"
	Racc.Save

	oula=msgbox("Le logiciel CommuniX se trouve dans le répertoire " & chemin, vbinformation, "Chemin d'accès")

	fininstall = msgbox("L'installation est terminée!" & vbcrlf & "Voulez vous créer un racourcis sur le bureau ?", vbQuestion+vbYesNo,"Installation Terminée")
	
Rem -- On cree un racourcie sur le bureau
	if fininstall = vbYes then
		Set WshShell = WScript.CreateObject("WScript.Shell")
		Bureau=WshShell.SpecialFolders("Desktop")

		Set Racc = WshShell.CreateShortcut(Bureau & "/Monappli.lnk")
	Racc.TargetPath=chemin & "Monappli.exe"
	Racc.Save

	end if
end if

Conclusion :


Dans l'exemple le fichier Monappli.exe est copier par defaut dans c:\Program Files\communix et voila vous n'avez plus qu'a changer le nom de l'application est le repertoire par defaut et c bon.

HTTP://www.communix-tchat.fr.st

A voir également

Ajouter un commentaire

Commentaires

Messages postés
33
Date d'inscription
vendredi 21 octobre 2005
Statut
Membre
Dernière intervention
14 mars 2006

Salut
J ai une petite question pour toi (je suis pas trop doué donc...).Voila, je veux installer adobe Reader a partir d'un emplacememnt spécifique mais je ne vois pas dans ton petit programme ou on doit mettre le chemin de l'exécutable. Merci de ton aide
Messages postés
200
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
18 janvier 2009

Franchement trop pratique ton script ^^ Merci bcp
Ca va m etre tres utile vu que je hais l assistant de deployement microchiotte.
Messages postés
47
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
30 septembre 2003

le problème aussi c'est le FSO !!!

voir cette page : http://faq.vb.free.fr/index.php?question=126
Messages postés
24
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
1 octobre 2004

le pb c'est que microsoft installer n'est pas tres souple et qu'il fait des gros fichier d'installation alors que ce script est simple, modifiable facillement selon vos besions et fonctionne sur toutes les plates formes windows donc voila ( cependant tu a raison pour les numeros de versions, mais il faut faire un choix !)
Messages postés
1222
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Le pb, c'est que les fichiers dll sont copiés sans vérifier les numéros de version, il vaut mleux utiliser Microsoft Installer, il est gratuit et fera un package d'installation automatique, propre et net.
Afficher les 6 commentaires

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.