Couper une connection internet
dodo1309
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
19 avril 2007 à 19:07
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 19 avril 2007 à 19:47
cs_casy Messages postés 7741 Date d'inscription mercredi 1 septembre 2004 Statut Membre Dernière intervention 24 septembre 2014 - 19 avril 2007 à 19:47
3 réponses
cs_Exploreur
Messages postés
4821
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
19 avril 2007 à 19:12
19 avril 2007 à 19:12
Salut,
Avec une horloge fabrication VB, et un tueur de processus.....A voir...
A+
Exploreur
Avec une horloge fabrication VB, et un tueur de processus.....A voir...
A+
Exploreur
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
19 avril 2007 à 19:30
19 avril 2007 à 19:30
Bonsoir,
Avec tâche planifiée pour lancer le script:
'lancement de la calculatrice pour l'exemple
Dim WshShell, oCalc
Set WshShell = CreateObject("WScript.Shell")
Set oCalc = WshShell.Exec("calc")
WScript.Sleep 1500
WshShell.AppActivate oCalc.ProcessID
' WshShell.SendKeys "%{F4}"
' WScript.Quit
MsgBox "verif"
'Arrêt du Process
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where ProcessId='oCalc.ProcessID'")
oCalc.Terminate()
Set oCalc = Nothing
Set objWMIService = Nothing
Set colProcessList = Nothing
Set WshShell = Nothing
jean-marc
Avec tâche planifiée pour lancer le script:
'lancement de la calculatrice pour l'exemple
Dim WshShell, oCalc
Set WshShell = CreateObject("WScript.Shell")
Set oCalc = WshShell.Exec("calc")
WScript.Sleep 1500
WshShell.AppActivate oCalc.ProcessID
' WshShell.SendKeys "%{F4}"
' WScript.Quit
MsgBox "verif"
'Arrêt du Process
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where ProcessId='oCalc.ProcessID'")
oCalc.Terminate()
Set oCalc = Nothing
Set objWMIService = Nothing
Set colProcessList = Nothing
Set WshShell = Nothing
jean-marc
cs_casy
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
40
19 avril 2007 à 19:47
19 avril 2007 à 19:47
Il me semble que tu peux configuré cela dans les paramètres avancé de la connection. ou alors dans les règles de strategies.
Je sais plus ou mais je l'avait vu. Un peu le même principe que pour les imprimantes
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Je sais plus ou mais je l'avait vu. Un peu le même principe que pour les imprimantes
---- Sevyc64 (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #