Il y a actuellement 37 visiteurs
Samedi 26 Mai 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 Instalation de Windows 7 à la place de windows 10.
Tu dis qu'il est ENABLE mais ta capture écran je vois DISABLE au niveau de la ligne Secure Boot ???
Réponses: 16

Message Windows 10S et compte Microsoft
Bonjour,Avec beaucoup d'obstination nous sommes parvenus à reconfigurer le PC comme souhaité.Renseignements pris W10S est effectivement très verrouillé. Sinon tu parles de mémoire flash... càd différente d'un disque dur classique, c'est ça? Si tu peux m'expliquer un peu le principe ce sera volontier ...
Réponses: 2

Message messagerie windows mail
Bonjour a tous,depuis quelques jours windows mail me demande nom d'utilisateur et mot de passe que j'ai oublié.Comment faire ? Merci de vos conseils.
Réponses: 1

Message Réinstallation de Windows sur portable Fujitsu Amilo M
Hello J'ai eu la mauvaise idée d'installer Xubuntu sur le portable de ma femme et, malgré son côté léger, la distro ne suffit pas à bouger le vieux pépère. Là dessus, la nouvelle batterie que j'avais acheté il y a plus d'un an sans jamais la tester vraiment ne fonctionne pas, je me retrouve donc ave ...
Réponses: 20

Message Windows n’as pas pu terminer l’installation... HELP!
Bonsoiren effet avec une photo on pourrait sans doute te guiderpour mettre une photo, il faut procéder en deux phases1> héberger la photo, par exemple >>ici<<2> récupérer le lien d?affichage de l'image de la formeCode: Tout sélectionner[img]Url de l'image chez l'hébergeur&# ...
Réponses: 16

Message Enregistrement en live du bureau Windows
Salut rayounezJe te conseil Open Broadcaster Software https://obsproject.com il est open source et fonctionne sous Windows / Mac / Linux et te permet de diffuser sur différentes plateforme.Tu vas pouvoir une fois le logiciel ouvert faire un petit tour dans Setting, dans la colonne de gauche tu sélec ...
Réponses: 1

Message Erreur dans l'installation de Windows 10
Bonjour, je rencontre un problème avec l'établissement de zéro windows 10 profesionel x64.Je strie la clé avec l'autorité iso et l'établissement fonctionne bien à part vers la fin de l'établissement, il m'a révélé que le pc doit redémarrer quand il redémarre je tombe sur une page d'établissement sim ...
Réponses: 1


Qui est en ligne

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


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