> Tous les forums > Forum Windows 7
 Vbscript probleme de "runas" via excel VBA lors d'une 1ere exécution
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
piouf13
  Posté le 12/03/2015 @ 15:59 
Aller en bas de la page 
Nouvel astucien

Salut a tous

Avec excel vba je dois faire appel a un fichier vbscript avec une demande d’élévation pour des mis à jour, cela fonctionne très bien si on a déjà exécuter un vbscript avec une demande d’élévation sur le fichier vbscript lui même.

Savez vous pourquoi lorsque j'exécute un vbscript via excel vba lors d'une 1ere exécution (sans avoir jamais exécuter de vbscript dans le PC) ça fonctionne pas?

Voici le message d'erreur: le service ne peut pas accepter des commandes en ce moment

Par contre, si j'exécute le vbscript lui même et que je retourne dans excel vba pour exécuter ce vbscript (et même d'autres) ça fonctionne?

Je trouve ça bizarre..

Merci



Modifié par piouf13 le 12/03/2015 17:34
Publicité
Titus68
 Posté le 12/03/2015 à 17:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Peux-tu en dire plus car je ne comprends pas trop ce que tu fais. Depuis vba tu lances un fichier vbscript par wshshell.run toto.vbs par exemple ? Par ailleurs runas demande un mot-de-passe à un moment donné non, comment est-ce que tu le rentres ?

piouf13
 Posté le 12/03/2015 à 19:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Titus68 a écrit :

Bonjour,

Peux-tu en dire plus car je ne comprends pas trop ce que tu fais. Depuis vba tu lances un fichier vbscript par wshshell.run toto.vbs par exemple ? Par ailleurs runas demande un mot-de-passe à un moment donné non, comment est-ce que tu le rentres ?

Merci..

Voici le code vba pour lancer le vbscript:

Shell "wscript C:\fichier.vbs", vbNormalFocus

Et voici le code qui se trouve dans le fichier vbscript:

If WScript.Arguments.length =0 Then
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "WScript.exe", Chr(34) & _
WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
Else

'Mon code ici

End If

piouf13
 Posté le 16/03/2015 à 17:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Personne a une idée?

Titus68
 Posté le 16/03/2015 à 21:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

J'ai essayé un vbscript qui lance (par la commande wshshell.run) le vbscript qui contient le "runas" depuis un PC W8. Dans tous les cas de figure, sauf UAC complètement désactivé manuellement auparavant, j'avais le prompt me demandant si j'autorisais ou non le lancement du wbscript. J'avais la même chose en lançant directement le script avec "runas". D'un côté çà me parait logique, windows détecte et demande si on autorise l'exécution du script avant de lancer celui-ci.

Par contre en modifiant la clé de registre :

HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\ConsentPromptBehaviorAdmin à 0, l'UAC reste activé mais le prompt n'est plus affiché. C'est la seule solution que j'ai trouvée ... Je pense également que cela marchera si on est déjà sur un compte administrateur. Il y a la même option pour un utilisateur non admin (ConsentPromptBehaviorUser).



Modifié par Titus68 le 16/03/2015 22:05
piouf13
 Posté le 18/03/2015 à 17:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Oups



Modifié par piouf13 le 18/03/2015 17:16
piouf13
 Posté le 18/03/2015 à 17:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien
Titus68 a écrit :

Bonjour,

J'ai essayé un vbscript qui lance (par la commande wshshell.run) le vbscript qui contient le "runas" depuis un PC W8. Dans tous les cas de figure, sauf UAC complètement désactivé manuellement auparavant, j'avais le prompt me demandant si j'autorisais ou non le lancement du wbscript. J'avais la même chose en lançant directement le script avec "runas". D'un côté çà me parait logique, windows détecte et demande si on autorise l'exécution du script avant de lancer celui-ci.

Oui c'est normal que ça fonctionne, vous avez surement auparavant déjà exécuter des vbscript..

Mon problème c'est pour une première exécution après formatage par exemple ça fonctionne pas via Excel par contre via le vbscript lui même ça fonctionne..



Modifié par piouf13 le 18/03/2015 18:50
yves.vaissiere
 Posté le 18/03/2015 à 20:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonsoir,

on ne formate pas tous les jours ...

Quelque chose se passerait lors de la première exécution d'un vbs sous un système, peut-être une sorte de validation transparente.
Outre chercher quoi sur le Net (et préciser en quoi cette étape est gênante, on ne sait jamais) je suggère d'opérer sur un système tout neuf, par exemple virtuel ou imagé avant lancement du premier vbs, mais de manière surveillée, par exemple avec Regshot ou Total Uninstall ...



Modifié par yves.vaissiere le 18/03/2015 20:11
Titus68
 Posté le 18/03/2015 à 20:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir,

J'ai essayé depuis Excel, çà fonctionne sous W8.1 si l'uac est en partie désactivée (le clé de registre mentionnée auparavant).

Est-ce que le problème ne viendrait du fait que la macro Excel est lié à un évènement (par exemple quand on remplit une cellule on déclenche la macro) qui fait qu'elle se déclencherait plusieurs fois ?

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
- 10 €10 € de réduction à partir de 20 € d'achats chez Rakuten pour les nouveaux clients
Valable jusqu'au 01 Décembre

Rakuten propose pour les nouveaux clients une offre de parrainage vous permettant de bénéficier de 10 € de réduction immédiate à partir de 20 € d'achats. Rakuten est une plateforme qui vous permettra d'acheter aussi bien des produits informatiques et Hi-Tech que des livres, des disques ou des jeux vidéos d'occasion.


> Voir l'offre
29,99 €SSD Crucial BX500 240 Go à 29,99 €
Valable jusqu'au 27 Octobre

Amazon propose actuellement le SSD Crucial BX500 240 Go à 29,99 €. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans. La livraison est gratuite.

Notez que la version 480 Go est également en promotion à 47,09 €.


> Voir l'offre
18,09 €Set de 30 lames bois et métal Bosch pour scies sauteuses + boite à 18,09 €
Valable jusqu'au 27 Octobre

Amazon fait une promotion sur le set de 30 lames bois et métal Bosch pour scies sauteuses avec leur boite de rangement à 18,09 €. On trouve l'ensemble ailleurs à partir de 36 €. Les lames portent les références T119BO, T111C et T118A (10 lames de chaque).


> Voir l'offre

Sujets relatifs
Problème lors de l'installation de Win7
Problème exécution macro (1037)
Problème lors du démarrage PC Win 7.
probleme excel
problème de coupure de mots lors d ela frappe
problème execution mode admin
probleme d'exécution automatique
problème lors de la réinstallation de windows 7
Probleme enregistrer sous Excel 10
probleme lors du lancement d'un jeu.
Plus de sujets relatifs à Vbscript probleme de "runas" via excel VBA lors d''une 1ere exécution
 > Tous les forums > Forum Windows 7