Il y a actuellement 154 visiteurs
Mercredi 23 Janvier 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 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 Windows live mail avec Windows 10
Bonjour, j'ai depuis un an l'impossibilité d'enlever entièrement windows live mail sur windows 10. Je n'ai plus rien dans Programme et programme files et quand j'essais de réinstaller windows essential cela me génère une erreur et me dit qu'il est impossible de l'installer car l'ancienne version est ...
Réponses: 26

Message Le chat et Windows 10, me trouveras tu ?
CoucouSi tu possèdes Windows 10, alors sache que je me suis caché dedans, quelque part… Arriveras tu a me retrouver ?Un petit indice ? " le chat commente et aide la communauté "A vos écrans
Réponses: 13

Message Transfert photos vers Windows
Bonjour J'ai samsung Galaxy icover 4 je voulais transférer mes photos sur mon pc mais windows ne voit pas la totalité du dossier caméra.Total sur le téléphone 122 et windows en trouve que 62 ? Comment faire votre aide sera bienvenue Merci
Réponses: 2

Message [Réglé] Windows 8 ne se lance plus sur mon portable
Bonjour à tous !Sur mon PC Zenbook UX 305 F Win 8 est (était ?) pré-installé. Et je n'ai pas de média d'installation.Je suis en dual-boot avec Ubuntu sur le SSD.Pour partitionner une carte SD de 16 Go j'ai utilisé Gparted et ça s'était, à priori bien passé puisqu'on trouve ces partitions en Sda4 et ...
Réponses: 17

Message Problème installation windows 10
Bonjour, j'essaye d'installer windows, mais au moment de choisir un disque sur lequel l'installer, aucun ne fonctionne et il me demande de formater mes disque NTFS en FAT32. Étant donné que je n'ai pas Windows, comment faire ça soit à partir du bios ou d'un invite de commande ? Merci en avance de vo ...
Réponses: 3

Message Démarrage windows 10 bloqué
Bonjour Je connais un problème au démarrage d'un Pc de bureau au démarrage windows 10 se bloque d'entrée sur l'image d'accueil et là je ne sais plus quoi faire .Pour ce pc je ne dispose pas de cd windows malgré que se soit une version qui était installée lors de l'achat en magasin .Est-il possib ...
Réponses: 16

Message Modifier GRUB [Résulu]
Bonjour !Encore un petit coup de main !Comme je suis en train d'essayer Debian qui fonctionne bien, ainsi qu'Ubuntu et Seven je souhaiterais changer l'ordre de boot de Grub:En effet lorsque j'ai installé Debian, Grub a été créé par Debian et, sur ma demande il a été installé sur la partition d'Ubunt ...
Réponses: 9


Qui est en ligne

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


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