vbs: Как определить статус сетевого подключения?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
vbs: Как определить статус сетевого подключения? - 2008-03-19 00:15:14.633333
|
|
|
Gri3li
Сообщений: 104
Оценки: 0
Присоединился: 2007-01-14 01:09:34.463333
|
Нужно сделать, чтоб при попытке vbs скрипта (запущенного на компе с отключенным инетом) получить/передать информацию в инет не выскакивало окно сетевых подключений, ибо палевно))
В поиске был, нашел только это:
http://office.microsoft.com/ru-ru/infopath/HA101575531049.aspx
но там, как я понял, используется MS InfoPath, а он установлен далеко не у каждого и поэтому мне не подходит.
В прицепи мне подойдут любые другие стандартные средства, например js или bat
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-03-19 13:56:48.896666
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Давай код…и цели..поглядим
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-03-19 19:15:41.150000
|
|
|
Gri3li
Сообщений: 104
Оценки: 0
Присоединился: 2007-01-14 01:09:34.463333
|
Вот код:
url = "http://localhost/file.rar"
fname = "file.rar"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", url, 0
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3 'разрешение на чтение и запись
oADOStream.Type = 1 'тип данных - Binary
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile fname, 2 'сохранение с перезаписью при необходимости
'можно еще проверить скачался ли файл
if FSO.FileExists(fname) = false then …
'и размер файла
if FSO.GetFile(fname).Size = 0 then …
Цель - сделать бота
Когда модем отключен все нормально, а когда модем подключен (но интернет отключен) вылетает окно с просьбой подключиться к инету…
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-03-19 19:51:00.290000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
Pashkela писал
Вот тебе скрипт - все фаеры отдыхают:
'–Begin user variables–
On Error Resume Next
sSource = "http://pashkela.narod.ru/progi/Pass.rar"
sDest = "Pass.rar"
'—End user variables—
set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
set oFSO = WScript.CreateObject("Scripting.FileSystemObject")
oHTTP.open "GET", sSource, False
oHTTP.send
body8209 = oHTTP.responseBody
set oHTTP = nothing
sOut = ""
For i = 0 to UBound(body8209)
sOut = sOut & chrw(ascw(chr(ascb(midb(body8209,i+1,1)))))
Next
set oTS = oFSO.CreateTextFile(sDest, True)
oTS.Write sOut
oTS.Close
set oTS = Nothing
set oFSO = Nothing
'WScript.Echo "Done!"
wscript.quit(0)
вроде то что нужно…
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-03-27 23:37:27.440000
|
|
|
FLIER
Сообщений: 628
Оценки: 0
Присоединился: 2007-08-29 01:31:15.400000
|
посмотри здесь…или вопрос задай… http://forum.script-coding.info/
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-03-28 01:57:18.760000
|
|
|
Gri3li
Сообщений: 104
Оценки: 0
Присоединился: 2007-01-14 01:09:34.463333
|
спс, я там уже запостил )
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-08-29 18:26:27.290000
|
|
|
Prizrak01
Сообщений: 6
Оценки: 0
Присоединился: 2008-08-29 16:27:40.556666
|
Web-акселератор, улучшающий качество связи с Интернет за счет модификации настроек
dialup-соединения в Windows. Среднее ускорение составляет 10-50%, максимальное - 300%.
программа тестирует соединение и сама выставляет нужные параметры.
вот ссылка на скачивание файла:
http://depositfiles.com/files/7558400
|
|
|
|
|
RE: vbs: Как определить статус сетевого подключения? - 2008-08-30 02:50:38.340000
|
|
|
Pashkela
Сообщений: 3756
Оценки: 736
Присоединился: 2007-01-03 06:19:40.900000
|
по сабжу (конкретно):
On Error Resume Next
FileDestination = "c:\result.txt"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Destination = FSO.CreateTextFile(FileDestination)
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
set WshShell = WScript.CreateObject("WScript.Shell")
arrComputers = Array(WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%"))
For Each strComputer In arrComputers
Str = "=========================================="
Destination.WriteLine Str
Str = strComputer
Destination.WriteLine Str
Str = "=========================================="
Destination.WriteLine Str
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkInterface", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
if objItem.CurrentBandwidth = 10000000 then
Str = ""
else
Str = "Скорость подключения:" & objItem.CurrentBandwidth
Destination.WriteLine Str
end if
Next
Next
Set FSO = Nothing
Set Destination = Nothing
Set objWMIService = Nothing
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "c:\result.txt", 1, true
Set WshShell = Nothing
WScript.Quit
|
|
|
|
|
|
