script pour connexion

Marsh Posté le 06-06-2005 à 13:51:13

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

Reply

Marsh Posté le 06-06-2005 à 13:51:13

Reply

Marsh Posté le 06-06-2005 à 13:52:26

test ?

Reply

Marsh Posté le 06-06-2005 à 14:08:37

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

Reply

Marsh Posté le 06-06-2005 à 14:27:01

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)

Reply

Marsh Posté le 06-06-2005 à 16:45:45

merci à tous

Reply

Marsh Posté le 07-06-2005 à 11:06:37

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

Reply

script pour connexion

Sujets relatifs:

Leave a Replay