VBS/WSH/JS - Оптимизация скрипта

[siss]

Доброго всем деня,

Скрипт:

При включении компьютера или выходе из спещяего режима включает интернет, вот сам скрипт:

пронумеровал строки...



Код:

Код: Выделить всё

1.   sNameOfConnection = "beeline"
2.   sUser = "user"
3.   sPassword = "pass"
4.   Set WshShell = WScript.CreateObject("WScript.Shell")
5.   Set WshExec = WshShell.Exec("rasdial "&sNameOfConnection&" "&sUser&" "&sPassword)
6.   Set FileSys = CreateObject("Scripting.FileSystemObject") 
7.   Set colMonitoredEvents = GetObject("winmgmts:")._
8.   ExecNotificationQuery("Select * from Win32_PowerManagementEvent")
9.   Do
10.  Set objLatestEvent = colMonitoredEvents.NextEvent
11.  If objLatestEvent.EventType = 7 Then
12.  Set WshExec = WshShell.Exec("rasdial "&sNameOfConnection&" "&sUser&" "&sPassword)
13.  End If
14.  Loop

При добавлении в автозагрузку, всё в принципе работает прелестно, НО при загрузке компа (не вывода из сна) вылезает 2 окна, интернет то подрубается, но 2 окна меня смущают, как убрать?

Если удалить 5 строчку, то (наверное) не будет запускаться после простой загрузки, а по другому я не знаю, что сделать?

[lohi1234567]

цель создать скрипт который это будет делать или просто подключитя к интернету автоматом?