siss
21-09-2010, 13:05
Доброго всем деня,
Скрипт:
При включении компьютера или выходе из спещяего режима включает интернет, вот сам скрипт:
пронумеровал строки...
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 строчку, то (наверное) не будет запускаться после простой загрузки, а по другому я не знаю, что сделать?
Скрипт:
При включении компьютера или выходе из спещяего режима включает интернет, вот сам скрипт:
пронумеровал строки...
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 строчку, то (наверное) не будет запускаться после простой загрузки, а по другому я не знаю, что сделать?