Script vbs pour installer vos applications !

Commenter

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

Du même auteur (LoRdKiFlEx)