RasPPPOE в виде службы (WinXP) :: В помощь системному администратору

Цитата:

Там в начале какие-то игры с MS агентом. Это что - всякие мультяшные псинки на экран полезут?

да, это так, игрушка. если мс агент проинсталлирован в системе и замена айпишника удалась, то прилетает попугай и кривляется на экране. я ещё раз переписал скрипт (см. внизу) и заменил эту ерунду обычным боксом с уведомлением об успешной замене IP. в противном случае появляется диалог с предложением ещё раз попробовать.

Цитата:

Нельзя ли на простом "рабоче-крестьянском" языке описать, тык сказать, "целевую аудиторию" для данного творения? Вот я, к примеру, сижу на московском Стриме, модем ADSL. Подойдет мне этот скрипт?

он подходит ко всем компьютерам с прямым подключением к интернету (RAS - Dial-Up Networking service - http://www.ss64.com/nt/rasphone.html ). RasPPPOE в общем то даже не нужен, хотя эта компонента лучше действует, чем микрозофтские.

единственное, нужно добавить в скрипт название вашего RAS коннекта (прописано в Control Panel -> Networking, если вы случайно забыли

)

с router-ом работать не будет, понятное дело. При использовании router-а нужно через сам router менять внешний айпишник.

весь скрипт теперь на WQL-е построен. нечего гадать, сколько времени понадобится для дисконнекта и реконнекта, если можно отмониторить процесс с помощью WMI Event классов

будут вопросы, пишите сразу в пм.

Код:

' ChangeIP.vbs
' Example VBScript to reconnect the ISP to change IP. Script reconnects until IP changes or user aborts
' Author WRFan http://membres.lycos.fr/julieborette/
' Version 2.0 - December 2006

dim objWMIService
dim WshShell
dim IP(2)
dim DialUp

DialUp = "xxx" 'Set the name of your Dial-Up Connection

set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\root\cimv2")

sub Reconnect()
Set colItems = objWMIService.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objItem in colItems
For Each strAddress in objItem.IPAddress
IP(0) = strAddress
Next
Next
Set colItems = nothing

Call WshShell.Run("rasphone.exe -h " & DialUp)
Set colProcess = objWMIService.ExecNotificationQuery("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
do
Set objLatestEvent = colProcess.NextEvent
if objLatestEvent.TargetInstance.name = "rasphone.exe" then
Set objLatestEvent = nothing
set colProcess = nothing
exit do
end if
loop

Call WshShell.Run("rasphone.exe -d " & DialUp)
Set colProcess = objWMIService.ExecNotificationQuery("Select * From __InstanceDeletionEvent Within 1 Where TargetInstance ISA 'Win32_Process'")
do
Set objLatestEvent = colProcess.NextEvent
if objLatestEvent.TargetInstance.name = "rasphone.exe" then
Set objLatestEvent = nothing
set colProcess = nothing
exit do
end if
loop

Set colItems = objWMIService.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objItem in colItems
For Each strAddress in objItem.IPAddress
IP(1) = strAddress
Next
Next
Set colItems = nothing

if IP(0) <> IP(1) then
wscript.echo "IP Change Complete!"
WScript.Quit
else
ReConnectQuestion()
end if
end sub

sub ReConnectQuestion()
strMbox = MsgBox("Old IP, Reconnect?", 4, "Old IP")
If strMbox = 6 Then
Reconnect()
else
WScript.Quit
end if
end Sub

Reconnect()

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
Версия для печати • Подписаться • Добавить в закладки