Il y a actuellement 175 visiteurs
Dimanche 17 Novembre 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 / ReactJS / AngularJS / VueJS / 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 Windows 10-Accès Centre Sécurité impossible
Bonjour,Je viens de me rendre compte que je ne pouvais plus accéder au Centre de Sécurité de Windows 10. J'arrive à aller sur Paramètres --> Mise à jour et sécurité Mais à partir de là si je double clique sur n'importe quelle action, impossible (l'écran bleu avec logo bouclier windows s'affiche u ...
Réponses: 48

Message Bluetooth sur windows 10
Bonjour, Quelqu'un saurait il pourquoi je n'arrive pas à synthoniser mon ampli avec mon pc portable windows 10 équipé d'une clé bluetooth 4.0 . Le pc reconnait bien l'ampli et c'est lorsque je sélectionne "connexion" que s'ouvre une fenêtre "AIOServices" . La connexion échoue sys ...
Réponses: 1

Message [Réglé] Anciennes installations windows
Bonjour, J'ai un petit soucis avec mon pc. Il s'agit d'un asus rog Hurracan d'à peine un an.Lundi soir windows m'indiquait que le ssd de 125go était plein alors qu'il ne contient que windows et les rares programmes que je n'ai pas pu installer ailleurs. Grâce à l'onglet d'utilisation du stockage j'a ...
Réponses: 16

Message [Réglé] Windows 10 - écran bleu aléatoire
Bonjour à tous,Je possède un pcque j'ai assemblé moi mème, dont voici les caractèristiques :- Carte Mère ASUS P8P67-M PRO- Processeur : Intel Core i5 2500K - 3.3 Ghz- Carte Graphique : Nvidia Geforce GTX 1050 Ti- RAM : 4x2Go Gskill Ripjaws X DDR 3 PC-10666 1333 Mhz CAS 8 - F3- Alimentation : Enermax ...
Réponses: 6

Message Migration de windows 10 32 bit vers 64 bit
BonjourVoici ma config:- Ordinateur portable: GE60 2PL Apache- Modèle: MS-16GH- Bios version/Date: E16GHIMS. 10A, 19/07/2014 (ce n'est pas un bios UEFI)J'ai déjà téléchargé la version windows 10 en 64 bit et crée la clé USB d'installation via Mediacreation tool.Dans le cadre d l'installation je dois ...
Réponses: 3

Message antivirus pour windows 8??
bonjourj'aurai voulu savoir si pour windows 8 il faut un antivrus gratuit et si oui lequel me conseiller vousmerci
Réponses: 1

Message Reset mon ordinateur Fixe sans windows 10
Bonjour, et voici mon premier poste.Ayant remarqué la lenteur de mon ordinateur, je décide de faire quelques nétoyage sur mon ordi, comme un scan de mon disque dur, le plus gros du soucis, c'est que ce scan reste bloqué à 11%. Je ne serai dire pourquoi, du coup je voudrais en profiter pour faire un ...
Réponses: 3


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 5 invités


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