Script vbs pour installer vos applications !

Soyez le premier à donner votre avis sur cette source.

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

Commenter la réponse de LoRdKiFlEx

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.