forum

Здравствуйте, гость ( Вход | Регистрация )

Важные объявления

Внимание всем, кто хочет зарегистрироваться: обязательно указывайте правильный E-mail адрес, иначе вы не получите письмо активации!
 
Добавить ответ в эту темуОткрыть тему
> Полезные скрипты, vbs, bat и т.д.
SuperR
сообщение 29.5.2010, 18:28
Сообщение #1


Знаток
***

Группа: Пользователи
Сообщений: 346
Поблагодарили: 37 *
ICQ: 557266381
Вставить ник | Цитата

Регистрация: 28.5.2010
Из: Витебск
Пользователь №: 4419



Вот решил тему открыть, не знаю, будет ли тема полезной или нет…
Тема про удобняхи.
Предлагаю пости здесь свои скрипты для работы и т.д.
Начну первый:

VBS для настройки параметров протокола версии 4(TCP/IPv4), короче - byfly (IMG:style_emoticons/default/smile.gif)

strComputer = "."
Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration " _
& "where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.33")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
strGatewayMetric = Array(1)
strDNSservers = Array("82.209.200.16","82.209.200.17")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic( _
strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(_
strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(_
strDNSServers)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
SuperR
сообщение 29.5.2010, 19:19
Сообщение #2


Знаток
***

Группа: Пользователи
Сообщений: 346
Поблагодарили: 37 *
ICQ: 557266381
Вставить ник | Цитата

Регистрация: 28.5.2010
Из: Витебск
Пользователь №: 4419



Раз все молчат - поехали дальше...

Весьма полезный батник для Windows 7 - удаление IconCache
Лечит неправильное отображение значков на рабочем столе, в трее, на панели задач и т.д.

taskkill /f /IM explorer.exe
CD /D %USERPROFILE%\\AppData\\Local
attrib -h iconcache.db
DEL IconCache.db
shutdown -r -t 01
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Nerey
сообщение 29.5.2010, 22:06
Сообщение #3


Завсегдатый
****

Группа: Пользователи
Сообщений: 887
Поблагодарили: 96 *
ICQ: 315797227
Вставить ник | Цитата

Регистрация: 1.9.2007
Из: Витебск
Пользователь №: 403



Этот БАТник, будучи скопированным на флешку и запущенным там, запрещает создание файлов AUTORUN.INF в корне флешки. Теперь флешка не сможет стать автозагрузочной.
Код
rem This bat-file creates folder that can't be delete with name AUTORUN.INF on the root of the disk. This prevents from all autorun-viruses from yhis flash memory
rem Этот bat-файл создаёт неудаляемую папку AUTORUN.INF в корне диска. Она защищает от всех авторан-вирусов с этой флешки
attrib -s -h -r autorun.*
del autorun.*
mkdir %~d0\AUTORUN.INF
mkdir "\\?\%~d0\AUTORUN.INF\.."
attrib +s +h %~d0\AUTORUN.INF
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
SuperR
сообщение 29.5.2010, 23:04
Сообщение #4


Знаток
***

Группа: Пользователи
Сообщений: 346
Поблагодарили: 37 *
ICQ: 557266381
Вставить ник | Цитата

Регистрация: 28.5.2010
Из: Витебск
Пользователь №: 4419



А так я клиентам создаю подключение по VPN (Гарант) – чик и готово…

VBS

CODE
' Объявление переменной:
Dim strMessage

set WSS_ = CreateObject("WScript.Shell")
set FSO_ = CreateObject("Scripting.FileSystemObject")

VPNprofile = WSS_.ExpandEnvironmentStrings("%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk")
set flW = FSO_.OpenTextFile(VPNprofile, 8, True)

flW.WriteLine "[VPN]"
flW.WriteLine "Encoding=1"
flW.WriteLine "Type=2"
flW.WriteLine "AutoLogon=0"
flW.WriteLine "UseRasCredentials=1"
flW.WriteLine "LowDateTime=-1615257328"
flW.WriteLine "HighDateTime=30047892"
flW.WriteLine "DialParamsUID=28856019"
flW.WriteLine "Guid=A5677F500646ED42B6AE4AAA27DF60E3"
flW.WriteLine "BaseProtocol=1"
flW.WriteLine "VpnStrategy=2"
flW.WriteLine "ExcludedProtocols=2"
flW.WriteLine "LcpExtensions=1"
flW.WriteLine "DataEncryption=256"
flW.WriteLine "SwCompression=0"
flW.WriteLine "NegotiateMultilinkAlways=0"
flW.WriteLine "SkipNwcWarning=0"
flW.WriteLine "SkipDownLevelDialog=0"
flW.WriteLine "SkipDoubleDialDialog=0"
flW.WriteLine "DialMode=0"
flW.WriteLine "OverridePref=15"
flW.WriteLine "RedialAttempts=3"
flW.WriteLine "RedialSeconds=60"
flW.WriteLine "IdleDisconnectSeconds=0"
flW.WriteLine "RedialOnLinkFailure=1"
flW.WriteLine "CallbackMode=0"
flW.WriteLine "CustomDialDll="
flW.WriteLine "CustomDialFunc="
flW.WriteLine "CustomRasDialDll="
flW.WriteLine "ForceSecureCompartment=0"
flW.WriteLine "DisableIKENameEkuCheck=0"
flW.WriteLine "AuthenticateServer=0"
flW.WriteLine "ShareMsFilePrint=1"
flW.WriteLine "BindMsNetClient=1"
flW.WriteLine "SharedPhoneNumbers=0"
flW.WriteLine "GlobalDeviceSettings=0"
flW.WriteLine "PrerequisiteEntry="
flW.WriteLine "PrerequisitePbk="
flW.WriteLine "PreferredPort=VPN0-0"
flW.WriteLine "PreferredDevice=Минипорт WAN (L2TP)"
flW.WriteLine "PreferredBps=0"
flW.WriteLine "PreferredHwFlow=0"
flW.WriteLine "PreferredProtocol=0"
flW.WriteLine "PreferredCompression=0"
flW.WriteLine "PreferredSpeaker=0"
flW.WriteLine "PreferredMdmProtocol=0"
flW.WriteLine "PreviewUserPw=1"
flW.WriteLine "PreviewDomain=1"
flW.WriteLine "PreviewPhoneNumber=0"
flW.WriteLine "ShowDialingProgress=1"
flW.WriteLine "ShowMonitorIconInTaskBar=1"
flW.WriteLine "CustomAuthKey=-1"
flW.WriteLine "AuthRestrictions=544"
flW.WriteLine "TypicalAuth=2"
flW.WriteLine "IpPrioritizeRemote=1"
flW.WriteLine "IpInterfaceMetric=0"
flW.WriteLine "fCachedDnsSuffix=0"
flW.WriteLine "IpHeaderCompression=0"
flW.WriteLine "IpAddress=0.0.0.0"
flW.WriteLine "IpDnsAddress=0.0.0.0"
flW.WriteLine "IpDns2Address=0.0.0.0"
flW.WriteLine "IpWinsAddress=0.0.0.0"
flW.WriteLine "IpWins2Address=0.0.0.0"
flW.WriteLine "IpAssign=1"
flW.WriteLine "IpNameAssign=1"
flW.WriteLine "IpDnsFlags=0"
flW.WriteLine "IpNBTFlags=1"
flW.WriteLine "TcpWindowSize=0"
flW.WriteLine "UseFlags=0"
flW.WriteLine "IpSecFlags=0"
flW.WriteLine "IpDnsSuffix="
flW.WriteLine "IpCachedDnsSuffix="
flW.WriteLine "Ipv6PrioritizeRemote=1"
flW.WriteLine "Ipv6InterfaceMetric=0"
flW.WriteLine "Ipv6NameAssign=1"
flW.WriteLine "Ipv6DnsAddress=::"
flW.WriteLine "Ipv6Dns2Address=::"
flW.WriteLine "Ipv6InterfaceId=0000000000000000"

flW.WriteLine "NETCOMPONENTS="
flW.WriteLine "ms_msclient=1"
flW.WriteLine "ms_server=1"

flW.WriteLine "MEDIA=rastapi"
flW.WriteLine "Port=VPN0-0"
flW.WriteLine "Device=Минипорт WAN (L2TP)"

flW.WriteLine "DEVICE=vpn"
flW.WriteLine "PhoneNumber=192.168.10.1"
flW.WriteLine "AreaCode="
flW.WriteLine "CountryCode=1"
flW.WriteLine "CountryID=1"
flW.WriteLine "UseDialingRules=0"
flW.WriteLine "Comment="
flW.WriteLine "LastSelectedPhone=0"
flW.WriteLine "PromoteAlternates=0"
flW.WriteLine "TryNextAlternateOnFail=1"
flW.Close


set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set objShellLink = WshShell.CreateShortcut(strDesktop & "\VPN.lnk")
objShellLink.TargetPath = "%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
objShellLink.WindowStyle = 1
objShellLink.Hotkey = "CTRL+SHIFT+F"
objShellLink.IconLocation = ", 0"
objShellLink.Description = "My Program Shortcut"
objShellLink.WorkingDirectory = "%USERPROFILE%\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk"
objShellLink.Save
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Rulis
сообщение 12.3.2011, 20:30
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 46
Поблагодарили: 5 *
ICQ: 203895363
Вставить ник | Цитата

Регистрация: 14.3.2008
Из: South5LAN
Пользователь №: 1073



Цитата(SuperR @ 29.5.2010, 23:04) *
А так я клиентам создаю подключение по VPN (Гарант) – чик и готово…


А я так создаю подключение по VPN (Атлант Телеком) - хоп и готово (IMG:style_emoticons/default/smile.gif)

Среда программирования: Delphi 7
Автор: tigrenokmosya (Rulis)
Сайт: tigrenokmosya.narod.ru
Условия распространения: бесплатно
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Perseus
сообщение 26.9.2012, 18:10
Сообщение #6


Участник
**

Группа: Пользователи
Сообщений: 176
Поблагодарили: 44 *
Вставить ник | Цитата

Регистрация: 19.9.2009
Пользователь №: 3555



Кто-нибудь может выложить код простенького Batch-файла для автологина на email.tut.by? Сам полностью не осилил…)) Возможно, зря или плохо старался.
Однако, что-то мне подсказывает, что для автологина у Батника кишка тонка…)))
С VBScript такой проблемы не возникло.

Thanks.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Nerey
сообщение 26.9.2012, 20:33
Сообщение #7


Завсегдатый
****

Группа: Пользователи
Сообщений: 887
Поблагодарили: 96 *
ICQ: 315797227
Вставить ник | Цитата

Регистрация: 1.9.2007
Из: Витебск
Пользователь №: 403



Такой страницы нет
Может, в этом проблема?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Perseus
сообщение 26.9.2012, 21:10
Сообщение #8


Участник
**

Группа: Пользователи
Сообщений: 176
Поблагодарили: 44 *
Вставить ник | Цитата

Регистрация: 19.9.2009
Пользователь №: 3555



Цитата(Nerey @ 26.9.2012, 21:33) *
Такой страницы нет

попробуйте эту http://mail.tut.by/
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
plex
сообщение 27.9.2012, 8:27
Сообщение #9


Старейшина
*******

Группа: Пользователи
Сообщений: 3060
Поблагодарили: 339 *
ICQ: 368228770
Вставить ник | Цитата

Регистрация: 6.6.2007
Из: Выпивск
Пользователь №: 25



Цитата(Perseus @ 26.9.2012, 19:10) *
Кто-нибудь может выложить код простенького Batch-файла для автологина на email.tut.by? Сам полностью не осилил…)) Возможно, зря или плохо старался.
Однако, что-то мне подсказывает, что для автологина у Батника кишка тонка…)))
С VBScript такой проблемы не возникло.

Thanks.

я не уверен, но возможно тут.бай поддерживает webauth. если да, то все элементарно просто. обратись по такому урлу: http://username:password@email.tut.by (естественно username и password следует заменить на твои). таким образом тебе всего лишь надо создать ярлык на страницу. если это не прокатит, можно написать скрипт на яваскрипте, который тебя авторизует. это буквально пару строк кода
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Спасибо сказали:
Nerey
сообщение 27.9.2012, 8:30
Сообщение #10


Завсегдатый
****

Группа: Пользователи
Сообщений: 887
Поблагодарили: 96 *
ICQ: 315797227
Вставить ник | Цитата

Регистрация: 1.9.2007
Из: Витебск
Пользователь №: 403



Что конкретно не выходит?
У тутбая давно нет своей почты, он перенаправляет на гугловскую.
Может, с ней работать получится? Напрямую.
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Спасибо сказали:
Perseus
сообщение 27.9.2012, 10:09
Сообщение #11


Участник
**

Группа: Пользователи
Сообщений: 176
Поблагодарили: 44 *
Вставить ник | Цитата

Регистрация: 19.9.2009
Пользователь №: 3555



Цитата(plex @ 27.9.2012, 9:27) *
я не уверен, но возможно тут.бай поддерживает webauth. если да, то все элементарно просто. обратись по такому урлу: http://username:password@email.tut.by (естественно username и password следует заменить на твои). таким образом тебе всего лишь надо создать ярлык на страницу. если это не прокатит, можно написать скрипт на яваскрипте, который тебя авторизует. это буквально пару строк кода

Решить проблему при помощи Js- или VbScript не составляет труда. Сейчас изучаю потенциальные возможности Батника на TUT.by.))
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Perseus
сообщение 27.9.2012, 10:16
Сообщение #12


Участник
**

Группа: Пользователи
Сообщений: 176
Поблагодарили: 44 *
Вставить ник | Цитата

Регистрация: 19.9.2009
Пользователь №: 3555



Цитата(Nerey @ 27.9.2012, 9:30) *
Что конкретно не выходит?
У тутбая давно нет своей почты, он перенаправляет на гугловскую.
Может, с ней работать получится? Напрямую.

@echo off
start "Firefox" "D:\Firefox\Firefox.exe" http://mail.tut.by

Вопрос: как при помощи dos-команды вставить данные в форму «Пользователь» и «Пароль», после чего произвести подтверждение?
Как обойти невыполнимость Батником «Click» на кнопке?
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
plex
сообщение 27.9.2012, 11:29
Сообщение #13


Старейшина
*******

Группа: Пользователи
Сообщений: 3060
Поблагодарили: 339 *
ICQ: 368228770
Вставить ник | Цитата

Регистрация: 6.6.2007
Из: Выпивск
Пользователь №: 25



я ж говорю, попробуй урл заменить. то есть, попробуй следующей строкой:

Код
@echo off
start "Firefox" "D:\Firefox\Firefox.exe"  http://username:password@mail.tut.by


если не получится - будем думать дальше
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения
Спасибо сказали:
Perseus
сообщение 27.9.2012, 12:30
Сообщение #14


Участник
**

Группа: Пользователи
Сообщений: 176
Поблагодарили: 44 *
Вставить ник | Цитата

Регистрация: 19.9.2009
Пользователь №: 3555



Цитата(plex @ 27.9.2012, 12:29) *
я ж говорю, попробуй урл заменить. то есть, попробуй следующей строкой:

Код
@echo off
start "Firefox" "D:\Firefox\Firefox.exe"  http://username:password@mail.tut.by


если не получится - будем думать дальше

К сожалению, не получилось.
Tut.by выдал такой перл: "Вы собираетесь зарегистрироваться на сайте «mail.tut.by» с именем пользователя «Perseus», но данный сайт не требует аутентификации. Это может быть попыткой вас обмануть.
Является ли «mail.tut.by» сайтом, что вы хотите посетить?"
Вернуться в начало страницы
 
+Ответить с цитированием данного сообщения

Добавить ответ в эту темуОткрыть тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 19.10.2019, 6:22


Личный счетчик WS с учетом гостевого входа