Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft script vbs s'exécute pas

script vbs s'exécute pas

5 réponses
Avatar
info
bonjour,
j'ai un script vbs simple qui lance une base de donnée et qui écrit
dans le registre :

Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")

WshShell.Run("c:\base\base.adp")
WshShell.regwrite "HKEY_CLASSES_ROOT\.mdb\","Access.Application.8"
WshShell.regwrite "HKEY_CLASSES_ROOT\.mdb\ShellNew","Command"="msaccess.exe
/NEWDB 1"
WshShell.regwrite "HKEY_CLASSES_ROOT\.mde\","Access.Application.8"

je tente de le lancer en double-cliquant dessus et rien ne se passe,
rien ne se lance.
J'ai XP PRO SP1.
Y'à quelque à modifier dans XP pour que çà marche.
Merci pour l'aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jean
Bonjour,


AMHA en remplacant:

WshShell.regwrite "HKEY_CLASSES_ROOT.mdbShellNew","Command"="msaccess.exe /NEWDB 1"

par :

WshShell.regwrite "HKEY_CLASSES_ROOT.mdbShellNewCommand","msaccess.exe /NEWDB 1"

Amicalement,

Jean - JMST
Belgium

"stephane" a écrit dans le message de news:
bonjour,
j'ai un script vbs simple qui lance une base de donnée et qui écrit
dans le registre :

Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")

WshShell.Run("c:basebase.adp")
WshShell.regwrite "HKEY_CLASSES_ROOT.mdb","Access.Application.8"
WshShell.regwrite "HKEY_CLASSES_ROOT.mdbShellNew","Command"="msaccess.exe
/NEWDB 1"
WshShell.regwrite "HKEY_CLASSES_ROOT.mde","Access.Application.8"

je tente de le lancer en double-cliquant dessus et rien ne se passe,
rien ne se lance.
J'ai XP PRO SP1.
Y'à quelque à modifier dans XP pour que çà marche.
Merci pour l'aide.


Avatar
info
oui mais çà ne change rien!
c'est surtout : WshShell.Run("c:basebase.adp")
qui ne marche pas.
Sur du 2000 PRO SP4 MSAccess et mon fichier base.adp se lancent
alors que sur du XP PRO SP1, rien ne se passe.
Quelqu'un a une explication?
Merci beaucoup.
Avatar
Jean
Bonjour,

si ça fonctionne dans démarrer/exécuter ça devrait fonctionner.

Sinon, vérifier l'association .ADP dans la base registre ou exécuter le fichier avec le progrmme hôte :
programme.exe fichier.adp

Amicalement,

Jean - JMST
Belgium

"stephane" a écrit dans le message de news:
oui mais çà ne change rien!
c'est surtout : WshShell.Run("c:basebase.adp")
qui ne marche pas.
Sur du 2000 PRO SP4 MSAccess et mon fichier base.adp se lancent
alors que sur du XP PRO SP1, rien ne se passe.
Quelqu'un a une explication?
Merci beaucoup.


Avatar
info
je m'explique :
si je double-clic sur mon fichier base.adp, il se lance normalement.
si je passe par le script ci-dessous, rien ne se passe :
***************************************************
Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")

WshShell.Run("c:basebase.adp")
***************************************************
Merci pour l'aide.
Avatar
scraper
Bonjour stephane
(dans news:)
tu nous disais :

je m'explique :
si je double-clic sur mon fichier base.adp, il se lance normalement.
si je passe par le script ci-dessous, rien ne se passe :
***************************************************
Dim WshShell
Set WshShell = Wscript.CreateObject("WScript.Shell")

WshShell.Run("c:basebase.adp")
***************************************************
Merci pour l'aide.


essaie en enlevant les () à ta commande ??

WshShell.Run "c:basebase.adp"

??

--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper