[Résolu] Ouvrir la fenêtre "Exécuter" et "arrêt de Windows" classique avec un script VBS sous Windows 7

Auteur

Message

phildu80

Sujet du message : [Résolu] Ouvrir la fenêtre "Exécuter" et "arrêt de Windows" classique avec un script VBS sous Windows 7

Publié : 21 mars 2016 22:39

Membre inscrit

Hors-ligne

Messages : 742

Inscription : 25 avr. 2007 02:00

Bonsoir,

Comment on fait pour ouvrir la fenêtre "Exécuter" et le fenêtre "arrêt de Windows" classique avec un script VBS, c'est pour windows 7

phildu80

Dernière modification par phildu80 le 22 mars 2016 19:08, modifié 5 fois.

Haut

Profil

Citer

Nintenloup

Sujet du message : Re: VBS

Publié : 22 mars 2016 00:32

Modérateur

Hors-ligne

Messages : 2534

Inscription : 06 janv. 2013 05:02

PC Rétro : Tandy 1000 SX, V20, 640k, SB2.0, VGA, Syquest

Citation :
Bonsoir

Comment on fait pour ouvrir une fenêtre exécuter et fenêtre de arrêt de Windows avec à VBS

phildu80

What ?

_________________

L’homme est un loup pour l’homme, ce qui, vous en conviendrez, n’est pas très gentil pour le loup.

Ma chaîne youtube française sur les vieux ordinateurs et autres vieilles technologies.

Haut

Profil

Citer

KeetKhat

Sujet du message : Re: VBS

Publié : 22 mars 2016 06:19

Membre inscrit

Hors-ligne

Messages : 1890

Inscription : 27 mai 2009 14:04

PC Rétro : IBM ThinkPad 380ED, Windows 95

Sous VBS je ne sais pas mais sinon c'est Windows+R et Alternative+F4

Haut

Profil

Citer

Matthias

Sujet du message : Re: VBS

Publié : 22 mars 2016 18:49

Membre d'honneur

Hors-ligne

Messages : 1340

Inscription : 26 mars 2008 23:05

PC Rétro : P4 (NEC), Continental Edison (Celeron)

Pour éteindre, tu peux toujours lancer une commande système du genre :

shutdown -s -t 0

Avec une messagebox du type "Voulez-vous redémarrer votre PC ?" ça irait bien.

Code : Tout sélectionner

If Msgbox"Voulez-vous redémarrer votre ordinateur ?", vbQuestion + vbYesNo, "Confirmation" = vbYes Then
 Shell("shutdown -r -t 0")
Else
 WScript.Quit()
End If

Cependant, afficher une fenêtre explorer (style Exécuter ou Arrêter) nécessiterait d'appeler une DLL. Or, VBS ne sait pas faire ça. Bidouillage requis.

_________________

Mon blog sur l'avant-garde

Cliquez ici

Haut

Profil

Citer

phildu80

Sujet du message : Re: VBS

Publié : 22 mars 2016 18:53

Membre inscrit

Hors-ligne

Messages : 742

Inscription : 25 avr. 2007 02:00

Bonsoir

Merci Matthias pour le script, mais j'ai retrouvé les scripts dans mon ancien PC

Les voici, il peuvent toujours servirent à quelqu'un :

ARRÊT DE WINDOWS :

Code : Tout sélectionner

dim objShell
set objShell = CreateObject("shell.application")
objshell.ShutdownWindows
set objShell = nothing

EXÉCUTER :

Code : Tout sélectionner

dim objShell
set objShell = CreateObject("shell.application")
objshell.FileRun()
set objShell = nothing

OUVRIR LE CMD EN ADMINISTRATEUR

Code : Tout sélectionner

Dim oShell
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "MSDOS.cmd", "", "", "runas", 1

FICHIER MSDOS.CMD

Code : Tout sélectionner

@cd..
@cd..
@cd c:\
@C:\Windows\System32\cmd.exe

OUVRIR UN DOSSIER SPÉCIFIQUE

Code : Tout sélectionner

Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.Run("explorer.exe /n,/e, C:\Users\...\AppData\Roaming\Microsoft\Windows\Libraries\")

Haut

Profil

Win3x.Org

[Résolu] Ouvrir la fenêtre "Exécuter" et "arrêt de Windows" classique avec un script VBS sous Windows 7