Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Fermer Outlook

Fermer Outlook

8 réponses
Avatar
Patrick
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick
Signaler un problème avec ce contenu

8 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
Sebastien Piche
bon j'avait un petit script pour vérifier si outlook est ouvert il y a
quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick




Avatar
Patrick
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il y a
quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick








Avatar
Sebastien Piche
et voilas ce qui est du site je te conseil de téléchargé le sdk wmi
http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/home.htm

en passant je suis un peux violent dans la façons de fermer outlook c'est un
kill du prosses et non une fermeture en règles

On Error Resume next
'check pour vérifiez si outlook est ouvert
strComputer = "."
Set objWMIService = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
objProcess.terminate()
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing



"Patrick" a écrit dans le message de news:
%
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il y a
quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick












Avatar
Patrick
Merci pour tout cela et pour le site. Mais je n'arrive pas à installer le
SDK. J'ai le message suivant :

Only XMLSchemaCache schema collections can be used.
The XML is not valide.

Connais-tu ce problème ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:%
et voilas ce qui est du site je te conseil de téléchargé le sdk wmi

http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/home.htm


en passant je suis un peux violent dans la façons de fermer outlook c'est
un

kill du prosses et non une fermeture en règles

On Error Resume next
'check pour vérifiez si outlook est ouvert
strComputer = "."
Set objWMIService = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
objProcess.terminate()
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing



"Patrick" a écrit dans le message de news:
%
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il y a
quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick
















Avatar
Sebastien Piche
je crois qu'il faut que tu instal core sdk en premier ensuite tu vas pouvoir
installer le wmi sdk


"Patrick" a écrit dans le message de news:

Merci pour tout cela et pour le site. Mais je n'arrive pas à installer le
SDK. J'ai le message suivant :

Only XMLSchemaCache schema collections can be used.
The XML is not valide.

Connais-tu ce problème ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:%
et voilas ce qui est du site je te conseil de téléchargé le sdk wmi

http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/home.htm


en passant je suis un peux violent dans la façons de fermer outlook c'est
un

kill du prosses et non une fermeture en règles

On Error Resume next
'check pour vérifiez si outlook est ouvert
strComputer = "."
Set objWMIService = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
objProcess.terminate()
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing



"Patrick" a écrit dans le message de news:
%
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il y a
quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick




















Avatar
Patrick
Non, cela ne fonctionne pas mieux.

--
Patrick

"Sebastien Piche" wrote in message
news:%
je crois qu'il faut que tu instal core sdk en premier ensuite tu vas
pouvoir

installer le wmi sdk


"Patrick" a écrit dans le message de news:

Merci pour tout cela et pour le site. Mais je n'arrive pas à installer
le


SDK. J'ai le message suivant :

Only XMLSchemaCache schema collections can be used.
The XML is not valide.

Connais-tu ce problème ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:%
et voilas ce qui est du site je te conseil de téléchargé le sdk wmi



http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/home.htm



en passant je suis un peux violent dans la façons de fermer outlook
c'est



un
kill du prosses et non une fermeture en règles

On Error Resume next
'check pour vérifiez si outlook est ouvert
strComputer = "."
Set objWMIService = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
objProcess.terminate()
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing



"Patrick" a écrit dans le message de news:
%
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il y
a





quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou
fermer






Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick
























Avatar
Paskal
Bonjour Patrick,


En reprenant le script de Sébastien, tu peux faire objProcess.terminate pour
tuer Outlook.exe, si il existe.

'---------------------------------------
strComputer="."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!"
& strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process
where name='outlook.exe' ")
For Each objProcess in colProcessList
objProcess.terminate
Next

Set objWMIService = Nothing
Set colProcessList = nothing
'-----------------------------------------


--
@+
Paskal



Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?




bon j'avait un petit script pour vérifier si outlook est ouvert il y
a quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2") Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


J'aimerais créer un petit script en VBScript pour arrêter ou fermer
Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?






Avatar
Sebastien Piche
mmm sur quelle os ?

e ne veux pas trop de ou ça peux venir

"Patrick" a écrit dans le message de news:
%
Non, cela ne fonctionne pas mieux.

--
Patrick

"Sebastien Piche" wrote in message
news:%
je crois qu'il faut que tu instal core sdk en premier ensuite tu vas
pouvoir

installer le wmi sdk


"Patrick" a écrit dans le message de news:

Merci pour tout cela et pour le site. Mais je n'arrive pas à installer
le


SDK. J'ai le message suivant :

Only XMLSchemaCache schema collections can be used.
The XML is not valide.

Connais-tu ce problème ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:%
et voilas ce qui est du site je te conseil de téléchargé le sdk wmi



http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/home.htm



en passant je suis un peux violent dans la façons de fermer outlook
c'est



un
kill du prosses et non une fermeture en règles

On Error Resume next
'check pour vérifiez si outlook est ouvert
strComputer = "."
Set objWMIService = GetObject("winmgmts:"&
"{impersonationLevel=impersonate}!" & strComputer & "rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
objProcess.terminate()
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing



"Patrick" a écrit dans le message de news:
%
Merci beaucoup.

Et pour arrêter ? Sinon, connais-tu un site qui parle de tout cela ?

Encore merci.

--
Patrick

"Sebastien Piche" wrote in message
news:
bon j'avait un petit script pour vérifier si outlook est ouvert il
y
a





quelque temp tu peux t'en inspirée

'check pour vérifiez si outlook est ouvert
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!" & strComputer &
"rootcimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
check="go"
Next
'si oulook fermé message
if check <> "go" then
msgbox "Veillez ouvrir Outlook avant de poursuivre.",48
end if
Set objWMIService = Nothing
Set colProcessList = nothing


"Patrick" a écrit dans le message de
news:
eS5I%
Bonjour,

J'aimerais créer un petit script en VBScript pour arrêter ou
fermer






Outlook,
s'il est ouvert.

Pouvez-vous m'aider ?

Merci beaucoup.

--
Patrick