Couper une connection internet

Signaler
Messages postés
218
Date d'inscription
mercredi 17 mai 2006
Statut
Membre
Dernière intervention
30 mai 2011
-
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
Bonsoir

Voila je cherche comment je pourrai faire (soit en vbs ou vb6 )  pour pouvoir tout les soir couper la connection internet d'un pc ( à 11 h par exemple)

Ce pc tourne sur windows xp Sp2 et n'est pas dans un domaine .

Merci d'avance

@+

3 réponses

Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
Salut,

Avec une horloge fabrication VB, et un tueur de processus.....A voir...

A+
Exploreur

 
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 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
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
41
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 #