13.03.2009, 10:32
|
|
Участник форума
Регистрация: 29.03.2005
Сообщений: 138
С нами:
11114426
Репутация:
129
|
|
PHP код:
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWshSpecialFolders = WshShell.SpecialFolders
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(objWshSpecialFolders("AllUsersDesktop") & "\..\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pbk", 8, true)
file.WriteLine("[vpn]")
file.WriteLine("Encoding=1")
file.WriteLine("Type=2")
file.WriteLine("AutoLogon=0")
file.WriteLine("UseRasCredentials=1")
file.WriteLine("DialParamsUID=8015285")
file.WriteLine("Guid=D4D883519D4D964194E7B9669482A6FD")
file.WriteLine("BaseProtocol=1")
file.WriteLine("VpnStrategy=2")
file.WriteLine("ExcludedProtocols=0")
file.WriteLine("LcpExtensions=1")
file.WriteLine("DataEncryption=8")
file.WriteLine("SwCompression=1")
file.WriteLine("NegotiateMultilinkAlways=0")
file.WriteLine("SkipNwcWarning=0")
file.WriteLine("SkipDownLevelDialog=0")
file.WriteLine("SkipDoubleDialDialog=0")
file.WriteLine("DialMode=1")
file.WriteLine("DialPercent=75")
file.WriteLine("DialSeconds=120")
file.WriteLine("HangUpPercent=10")
file.WriteLine("HangUpSeconds=120")
file.WriteLine("OverridePref=15")
file.WriteLine("RedialAttempts=3")
file.WriteLine("RedialSeconds=60")
file.WriteLine("IdleDisconnectSeconds=0")
file.WriteLine("RedialOnLinkFailure=0")
file.WriteLine("CallbackMode=0")
file.WriteLine("CustomDialDll=")
file.WriteLine("CustomDialFunc=")
file.WriteLine("CustomRasDialDll=")
file.WriteLine("AuthenticateServer=0")
file.WriteLine("ShareMsFilePrint=1")
file.WriteLine("BindMsNetClient=1")
file.WriteLine("SharedPhoneNumbers=0")
file.WriteLine("GlobalDeviceSettings=0")
file.WriteLine("PrerequisiteEntry=")
file.WriteLine("PrerequisiteEntry")
file.WriteLine("PrerequisitePbk=")
file.WriteLine("PreferredPort=VPN4-0")
file.WriteLine("PreferredDevice=Минипорт WAN (L2TP)")
file.WriteLine("PreferredBps=0")
file.WriteLine("PreferredHwFlow=1")
file.WriteLine("PreferredProtocol=1")
file.WriteLine("PreferredCompression=1")
file.WriteLine("PreferredSpeaker=1")
file.WriteLine("PreferredMdmProtocol=0")
file.WriteLine("PreviewUserPw=1")
file.WriteLine("PreviewDomain=0")
file.WriteLine("PreviewPhoneNumber=0")
file.WriteLine("ShowDialingProgress=0")
file.WriteLine("ShowMonitorIconInTaskBar=1")
file.WriteLine("CustomAuthKey=-1")
file.WriteLine("AuthRestrictions=608")
file.WriteLine("TypicalAuth=2")
file.WriteLine("IpPrioritizeRemote=1")
file.WriteLine("IpHeaderCompression=0")
file.WriteLine("IpAddress=0.0.0.0")
file.WriteLine("IpDnsAddress=0.0.0.0")
file.WriteLine("IpDns2Address=0.0.0.0")
file.WriteLine("IpWinsAddress=0.0.0.0")
file.WriteLine("IpWins2Address=0.0.0.0")
file.WriteLine("IpAssign=1")
file.WriteLine("IpNameAssign=1")
file.WriteLine("IpFrameSize=1006")
file.WriteLine("IpDnsFlags=0")
file.WriteLine("IpNBTFlags=1")
file.WriteLine("TcpWindowSize=0")
file.WriteLine("UseFlags=0")
file.WriteLine("IpSecFlags=0")
file.WriteLine("IpDnsSuffix=")
file.WriteBlankLines(1)
file.WriteLine("NETCOMPONENTS=")
file.WriteLine("ms_server=1")
file.WriteLine("ms_msclient=1")
file.WriteLine("ms_psched=1")
file.WriteLine("cntx_vpcnets2=1")
file.WriteBlankLines(1)
file.WriteLine("MEDIA=rastapi")
file.WriteLine("Port=VPN4-0")
file.WriteLine("Device=Минипорт WAN (L2TP)")
file.WriteBlankLines(1)
file.WriteLine("DEVICE=vpn")
file.WriteLine("PhoneNumber=217.114.0.1") // Тут уберешь комент и пропишешь адрес vpn сервера
file.WriteLine("AreaCode=")
file.WriteLine("CountryCode=1")
file.WriteLine("CountryID=1")
file.WriteLine("UseDialingRules=0")
file.WriteLine("Comment=")
file.WriteLine("LastSelectedPhone=0")
file.WriteLine("PromoteAlternates=0")
file.WriteLine("TryNextAlternateOnFail=1")
file.WriteBlankLines(2)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
//настройки сетевки если не надо уберай
strIPAddress = Array("10.0.135.223")
strSubnetMask = Array("255.255.255.0")
arrDNSServerSearchOrder = Array("217.114.10.10")
strGateway = Array("10.0.135.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
If errEnable = 0 Then
End If
Next
// вот посюда убираешь
'WshShell.Run "%SystemRoot%\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{7007acc7-3202-11d1-aad2-00805fc1270e}"
WScript.Echo "VPN соединение было успешно создано.."
WshShell.Run "%windir%\system32\rasphone.exe -d vpn"
вот попробуй может пригодиться настройка vpn скриптом даже сетевку автоматом можно настроить  ... настройки автоматического логина и пароля можно в гугле найти ...
Только если для висты будешь делать поменяй
\..\Application Data\Microsoft\Network\Connections\Pbk\rasphone.pb на путь как в висте,выше в теме он был приведен ...
Последний раз редактировалось [NiGHT]DarkAngel; 13.03.2009 в 10:35..
|
|
|