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
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.