script pour connexion

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : script pour connexion

Ze Big Duck

Bonjour,

L'hôte de mon domaine coupe le partage de la connection internet à 20h30, il la re-partage à 9h.

voici son script, qu'il éxécute en tant que tâche planifiée :

Code :

'
'Title: toggleICS.vbs
'Purpose: turn on and turn off the Internet Connection Sharing on a specified interface
'Platform: Windows XP
'Requirement: Wscript.exe
'
'Date: 20/05/05
'
DIM CONNECTION_ALL
DIM NetSharingManager
DIM EveryConnectionCollection
DIM EveryConnection
DIM Arguments
DIM Interface
CONNECTION_ALL = 2
Interface = "Freebox"
set WshShell = WScript.CreateObject("WScript.Shell" )
if initialize() then
if GetConnectionObjects() then
if FirewallTestByName(Interface) then
ChangeSharing()
end if
end if
end if
function FirewallTestByName(InterfaceName)
on error resume next
DIM Item
DIM Properties
DIM InterfaceExist
InterfaceExist = FALSE
for each Item in EveryConnectionCollection
set EveryConnection = NetSharingManager.INetSharingConfigurationForINetConnection(Item)
set Properties = NetSharingManager.NetConnectionProps(Item)
if (ucase(InterfaceName) = ucase(Properties.Name)) then
InterfaceExist = TRUE
exit for
end if
next
FirewallTestByName = InterfaceExist
end function
function ChangeSharing()
if EveryConnection.SharingEnabled then
EveryConnection.DisableSharing
else
EveryConnection.EnableSharing(ICSSHARINGTYPE_PUBLIC)
end if
end function
function Initialize()
'output: TRUE or FALSE
DIM Return
Return = FALSE
set NetSharingManager = Wscript.CreateObject("HNetCfg.HNetShare.1" )
if (IsObject(NetSharingManager)) = FALSE then
Wscript.Echo("The Internet Sharing Manager cannot be contacted. Internet Connection Firewall may not be available on this interface." )
else
if (IsNull(NetSharingManager.SharingInstalled) = TRUE) then
Wscript.Echo("Internet Connection Firewall may not be available on this interface." )
else
Return = TRUE
end if
end if
Initialize = Return
end function
function GetConnectionObjects()
DIM Return
DIM Item
Return = TRUE
if GetConnection(CONNECTION_ALL) = FALSE then
Return = FALSE
end if
GetConnectionObjects = Return
end function
function GetConnection(CONNECTION_TYPE)
DIM Return
DIM Connection
DIM Item
Return = TRUE
if (CONNECTION_ALL = CONNECTION_TYPE) then
set Connection = NetSharingManager.EnumEveryConnection
if (Connection.Count > 0) then
set EveryConnectionCollection = Connection
else
Return = FALSE
end if
else
Return = FALSE
end if
GetConnection = Return
end function

J'aurais voulu savoir s'il était possible de mettre une connection en route à 21h, et de la couper à 6h du matin ?

Merci

Message édité par Ze Big Duck le 06-06-2005 à 14:08:11

Publicité

Ze Big Duck

test ?

antp

Super Administrateur
Champion des excuses bidons

j'ai changé le titre, mais il serait plus prudent que tu changes de mot de passe quand même, parce que là kadreg a joué avec...

Message édité par antp le 06-06-2005 à 14:08:56

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Harkonnen

Modérateur
Un modo pour les bannir tous

Ze Big Duck a écrit :

test ?

évidemment, y'en a qu'un qui fait la connerie... [:rofl2]

---------------
J'ai un string dans l'array (Paris Hilton)

Ze Big Duck

merci à tous

Ze Big Duck

En fait je vasi pas m'embêter, je vais simplement mettre un wait 21000.... et remettre le même script après le wait, comme ça ça fonctionnera, c'est un peu barbare comme méthode, mais j'ai aucune connaissance en vbs moua :'( lol

FORUM HardWare.fr

Programmation

VB/VBA/VBS

script pour connexion

Sujets relatifs
Script DOS pour modifier l'ip	probleme avec un script d'upload
Des conseils pour un script	script d'ouverture de session en WSH
cherche script qui met date spécifique	problème script connexion easyphp 1.8
problème script connexion easyphp 1.8	Script de connexion telnet smtp
Script de connexion	Recherche de Script de connexion NT
Plus de sujets relatifs à : script pour connexion

Page générée en 0.067 secondes