Il y a actuellement 53 visiteurs
Jeudi 25 Avril 2019
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

modifier le fichier install.vbs pour l'ulitisé en windows 7

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS 1 , 2 / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

modifier le fichier install.vbs pour l'ulitisé en windows 7

Message le 05 Jan 2018 22:02

salut !
l'install de cette application marche avec xp et moi j'aimerai bien avec windows 7, à vous les programmeurs !! svp !

REP: DOTNETFX
REP: MICROSOFT8VS20108VCREDIST8X86
REP: PLANCOMPTABLEASSISTANT
REP : WINDOWSINSTALLR485
FILE : COMPONENTS
FILE : DATA
FILE : INSTALL
FILE : SETUP


edition du fichier install extension vbs ,voilà :



Option Explicit

Dim objWMIService, colOperatingSystems, objOperatingSystem
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Dim sp, name, pos
sp = objOperatingSystem.CSDVersion
name = objOperatingSystem.Name
pos = InStr(name, "|")
If pos <> 0 Then
name = Mid(name, 1, pos - 1)
End If
If name <> "Microsoft Windows XP Professional" Or (sp <> "Service Pack 2" And sp <> "Service Pack 3") Then
MsgBox "Unsupported version: " & name & " " & sp, vbOKOnly + vbCritical, "Error"
WScript.Quit
End If
Exit For
Next

If MsgBox("Demarrer installation?", vbYesNo+vbQuestion , "Install") = vbYes Then
Dim objShell, cmd, ret

Set objShell = CreateObject("WScript.Shell")

' 1. Installation de IIS & Framework .net 2.0
' cmd = "sysocmgr.exe /i:C:\WINDOWS\inf\sysoc.inf ""/u:" & objShell.currentdirectory & "\components.inf"" /r"
' ret = objShell.Run(cmd, 1, true)

' On Error Resume Next
' ret = objShell.RegRead("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Install")
' If Err.Number <> 0 Or ret <> 1 Then
' Err.Clear
' MsgBox ".Net Framework 2.0 is missing", vbOKOnly + vbCritical, "Error"
' WScript.Quit
' End If
' On Error Goto 0

' 1. Installation du Framework .net 2.0
If MsgBox("Voulez vous Installer Framework .net 2.0 ?", vbYesNo+vbQuestion , "Install") = vbYes Then
cmd = "dotnetfx\dotnetfx.exe"
ret = objShell.Run(cmd, 1, true)
End If

' 2. Installation du Visual C++ 2010 Redistributable néxessaire à l'installable postgresql-9.3
If MsgBox("Voulez vous Installer Microsoft Redistribuable VS2010?", vbYesNo+vbQuestion , "Install") = vbYes Then
cmd = "Microsoft_VS2010_vcredist_x86\vcredist_x86.exe /q:a"
ret = objShell.Run(cmd, 1, true)
End If

' 3. Installation de Postaldesktop
cmd = "setup.exe"
ret = objShell.Run(cmd, 1, true)

'If ret <> 0 Then
' MsgBox "Error " & ret & " during install", vbOKOnly + vbCritical, "Error"
'Else
' MsgBox "Install finished", vbOKOnly +vbInformation , "Install"
'End If
End If
vini
Visiteur
Visiteur
 
Messages: 6
Inscription: 04 Jan 2018 22:35
 



Sujets similaires

Message Reinstallation de Windows 10
Bonjour,Pourriez-vous m'indiquer la procédure pour réinstaller Windows 10 sur un pc dell "optiplex 760" car je n'arrive pas à démarrer le dvd ou même à partir d'une clé usb, je ne comprends pas pourquoi ? A l'origine, le pc était sous Vista Merci pour votre aide Cordialement
Réponses: 16

Message Installation en dual boat Windows 7 pro et Zorin OS
Bonsoir,J'ai fait une sauvegarde de mes données.1. Comment faire pour formater mon disque dur pour effacer proprement toutes les données ?[/list] 2. Comment installer en dual boot Windows 7 pro et une version Linux avec un environnement Windows Zorin OS 12.4 Core 32 bits téléchargé à partir du site ...
Réponses: 5

Message Impossible de terminer l'install de seven
Bonjour,J'ai changé le disque dur de quelqu'un parce-qu'il avait un vieux disque dur lent et j'y ai mis un SSD à la place. J'ai donc avant ça, fait une sauvegarde bootable de son win 7 sur un dvd et je l'ai réinstallé sur le nouveau disque. L'installation se passe bien mais à la fin, lors de la dern ...
Réponses: 18

Message windows à la une ne fonctionne pas
Bonjour,Jusqu'a quelques jours Windows à la une fonctionnai très bien avec une image différente tout les 2 ou 3 jours vous savez avec le message en haut a droite j'aime /je n'aime pas pour information je cliquai toujours sur j'aime...... soudain depuis hier sans raison je me retrouve avec l'image ...
Réponses: 3

Message Mise à jour impossible sur Windows 7 - Erreur 80070643
Bonsoir tout le monde,La mise à jour KB4493132 de Windows update ne passe pas, j'ai une erreur 80070643.. J'ai vidé C:Windows>Software distribution>Download (après avoir désactivé Windows update dans services.msc). J'ai fait un scan Avast : pas de virus. J'ai utilisé l'utilitaire de résolution ...
Réponses: 8

Message Problème explorateur Windows + Bureau
Bonjour Je vous écris car j'ai un petit soucis : N'ayant plus dans quelques jours l'antivirus Kaspersky, j'ai décidé Lundi de télecharger un anti-virus gratuit : Avast. Il ne me semble pas avoir redémarré l'ordinateur depuis. Je l'ai redémarré aujourd'hui et j'ai quelques soucis : - Mon explorateur ...
Réponses: 6

Message Adobe - fichier de travail principal
Suite à l'installation de PS 8.0, j'aimerais placer le fichier de travail principal se trouvant sur C: sur un autre disque...Comment faire cela svp (surtout, ou trouver ce fichier de travail principal)?
Réponses: 8


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


.: Nous contacter :: Flux RSS :: Données personnelles :.