Il y a actuellement 77 visiteurs
Jeudi 16 Août 2018
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 Comment faire, déplacement fichier
Bonjour !! Je suis sur un Windows 10, avec un SSD d?environ 500 GO, et un disque dur 1TOActuellement mon problème c'est que Windows 10 me signale, je peut avoir des soucis de performance, car à 3 go prés, mon ssd est complétement remplit, contrairement à mon disque dur pratiquement vide.Ma question ...
Réponses: 4

Message démarrage de Windows
Bonjour au démarrage de Windows jais ce message qui l'empêche de redémarrer.L'application na pas réussi à démarrer correctement ( Oxc0000022 )besoin d'aide pour résoudre ce problème quel manipulation pour démarré normalement.jais mis en mode échec jais accès a mes mail la banque et certain site. ...
Réponses: 3

Message Vidéos internet en N&B sur secteur (Windows 10)
Bonjour,depuis quelques semaines, les vidéos internet sont en noir et blanc lorsque le PC et sur secteur mais sont bien en couleurs lorsque je le débranche.Si j'en crois les appels à l'aide sur internet, je ne suis pas le seul à avoir ce souci. Mais personne ne propose de solution (ou alors j'ai mal ...
Réponses: 1

Message [Réglé] PC HS apres MàJ windows 8
Salut à tous.Le PC portable de ma copine est complètement HS après une MàJ Windows 8.quand je le démarre, il me met sur le bios et rien d'autre. lorsque je regarde dans la liste de boot j'ai le DD en BOOT #1(les informations SATA : WDC WD7500BPKT 750.1GB).Je voudrais pouvoir reinstaller un windows d ...
Réponses: 7

Message Réinstallation Windows 10 sur pc portable asus
Bonjour,Pourriez-vous m'indiquer comment réinstaller windows 10 car lorsque je veux essayer cela me dit que "Windows ne peut pas être installé sur ce disque car le style est GPT" ?Comment faire ?Merci
Réponses: 4

Message Windows Update
Bonjour les amis ! Voila depuis samedi j'ai reçu un message comme quoi Windows Update n'a pas fait de recherche depuis 2,3 semaines. Je vais voir ce qui se passe et la je lance une recherche et j'ai un message d'erreur 'code erreur 8024402F ' J'ai tenté winupdatefix_1.3 trouvé sur un forum et parei ...
Réponses: 80

Message Windows 10 après remise état usine
Bonjour. J'ai un PC Acer MC605 d'origine en Windows 8 sur lequel j'ai migré en Windows 10. Comme je rencontre beaucoup de problèmes et que j'ai les cd d'installation Acer d'origine je me demande : si je fait une remise en état d'origine donc en W8 est-ce que je pourrais réinstaller W10 ?Merci pour v ...
Réponses: 4


Qui est en ligne

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


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