Il y a actuellement 87 visiteurs
Lundi 10 Août 2020
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 21: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 21:35
 



Sujets similaires

Message installation de Windows 7
Bonjours a toutes et tous .Je vous expose mon problème, j'ai changer de pc j'ai pris un HP Pav Gaming 690-0034 équiper de windows 10 64 bits. Avec pour stockage un SSD WDC PC SN520 de 128G Giga un deuxième de 1 To qui est nommé DATA avec un programme nommé Recovery pour réinstaller Windows 10 . Sur ...
Réponses: 2

Message Tuto resoudre un problème d'installation de Windows en UEFI
Suite à un changement de matériel ou à une fausse man?uvre lors de l'installation de Windows en UEFI il arrive que le message suivant soit inscrit: "impossible d'installer Windows sur le lecteur ....(afficher détail)le détail expliquant, par exemple que le lecteur n'est pas en GPT....mais pas ...
Réponses: 0

Message [Réglé]Smartphone Samsung S20 non détecté par Windows.
Bonjour/ Bonsoir ! Je viens vers vous aujorud'hui pour un problème qui est très spécifique et qui possède pourtant tellement de solutions qui ne m'ont en rien aidé. J'ai récemment fais l'achat d'une nouvelle carte mère ainsi qu'un nouveau processeur, ram et disque dur. Jusqu'à la rien de bien compli ...
Réponses: 3

Message clé pour windows xp
Allo les amisun de mes amis proches a des jeux datant de Matuzalem, mais il veut jouer donc je lui ai trouvé sur le net windows XP et oui.sauf que j'ai pas la cléc'est windows xp sp3 Home mais je ne trouve pas la cléavez vous une idée où je pourrais en trouver une ou si l'un de vous en a unemerci be ...
Réponses: 1

Message comment quiiter Windows insider
SALUT j'ai fait une gaffe car il faut être un peu attentif ; en ce moment je cherche pas d'excuses mais j'ai des gros problèmes de santé......... j'essaie de continuer à vivre et je suis sur mon pc pratiquement H 24 ........ bref et j'ai incorporer Windows insider prewiew sans le vouloir je trouv ...
Réponses: 16

Message Clonage disque dur / réinstallation Windows
Bonjour à tous!Il m'arrive un "truc" pas banal. J'ai conservé un vieux PC portable que j'utilise au boulot, et j'ai décidé de lui mettre un SSD histoire de lui donner un petit coup de fouet. J'ai trouvé un SSD sur le bon coin que j'ai testé avec CrystalDisk et tout va bien.Je le formate, e ...
Réponses: 5

Message installer sans risques windows 10 version 2004 ?
Salut tout le monde Windows update me propose d'installer Windows 10 version 2004 ..... j'ai lu que cette version pour le moment présentait des problèmes .... doit je l'installer l'assistant me dit que tout est bon en vert donc j?hésite que me conseillez vous svp ? sachant que tôt ou tard me faud ...
Réponses: 5


Qui est en ligne

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


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