Script vbs pour installer vos applications !

Soyez le premier à donner votre avis sur cette source.

Snippet vu 55 693 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

LoRdKiFlEx
Messages postés
24
Date d'inscription
vendredi 30 août 2002
Statut
Membre
Dernière intervention
1 octobre 2004
-
voci un tres bon site pour ceux que le VBS interresse :
http://bellamyjc.net/index.html
(ne prennez pas peur en voyant la photo du gars il ya plein de truc interressant sur son site)
cs_Patrice99
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.
LoRdKiFlEx
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 !)
babeuk
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
cs_marm0tte
Messages postés
203
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.

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.