Il y a actuellement 105 visiteurs
Mercredi 17 Juillet 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 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: 11

Message impossible d'installer windows
Bonjour,suite à un formatage via un pc portable en externe je souhaite installer windows sur ma tour.Mais voila quand je lance le cd voici le message aucun systeme d'exploitation détecté deconnecter les lecteurs qui ne contiennent pas de systemes d'exploitation.quelqu'un a une idée ?( je pense ca vi ...
Réponses: 14

Message Disque dur non reconnu dans windows
Bonjour à tous,J'ai rencontré un problème avec mon pc ( tour ) .J'ai un pc qui à deux disques dur qui fonctionnait bien.Mais j'ai un autre pc portable ou j'avais un disque dur dessus que j'ai voulu branché en secondaire sur ma tour. donc j'ai débranché le deuxième pour brancher le disque du pc porta ...
Réponses: 5

Message comment réinstaller windows 10 dans un mac netbook
bonjour,on m'a confié un mac netbook dans lequel je dois installer windows 10, toutefois je connais le fonctionnement d'un pc, comment se rendre dans le bios etc mais pas du tout d'un mac.pouvez vous me donner la marche à suivre.merci par avance.Cordialement
Réponses: 2

Message 1 pc sous Linux Fedora , un autre sur windows 10, 1 écran
Bonjour,je me suis mis à Linux récemment en installant la distribution Fedora sur un pc que m'a vendu un copain. J'ai gardé mon ancien pc, windows 10. J'aimerais faire la chose suivante.Un clavier, une sourie et un écran pour les 2 pc. J'ai vu qu'il y'a des boitier qui font le job. Pourriez vous m'e ...
Réponses: 10

Message Windows 10 may update 2019
Bonjour est-ce que c'est une bonne idée de faire la mise à jour May update 2019 de Windows 10 merci de me répondre
Réponses: 4

Message [Réglé] comment passer windows 10 mode UEFI
Salut tout le monde !voila je me retrouve avec mon MODE BIOS Hérité et je pense qu'il est mieux d'être en mode UEFI comment faire svp j'ai eu beau formate rmon pc et réinstaller Windows 10 je reste en mode Hérité http://zupimages.net/viewer.php?id=19/18/adlw.pngmerci....
Réponses: 1


Qui est en ligne

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


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