[решено] Скрипт автоматической настройки сети

Есть скрипт VBS. Все что нужно было-адаптировал под нужную сеть. Осталась маленькая проблема-не знаю как создать директорию на Рабочем столе и скинуть в неё все создаваемые дальше Прочие ярлыки. Инет перебирал-что то не нашел подходящего. Буду благодарен за помощь.
сам скрипт:
Код:
Option Explicit



Dim WSHShell,ConnPath,ConnFile,ConnCont,ConnName,objIE,FormBody,bIsQuit,objDocument

Dim ip12,ip3,ip4,IsErr,intValue,objWMIServ,colOperatingSystems,objOperatingSystem

Dim objFSO,objFolder

Dim objShell,objFolder1,objFolderItem,strDesktopFld,objURLShortcut,DescPath,Shortcut

Const ADMINISTRATIVE_TOOLS = 6



ConnFile="rasphone.pbk"

ConnName="Internet"

ip12="172.20."

IsErr=False



ConstInit

Set WSHShell=WScript.CreateObject("WScript.Shell")

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objIE = WScript.CreateObject("InternetExplorer.Application","ie_")

  objIE.AddressBar = False

  objIE.FullScreen = False 

  objIE.MenuBar    = False

  objIE.Resizable  = False 

  objIE.StatusBar  = False

  objIE.ToolBar    = False 

  objIE.Height = 200  

  objIE.Width = 350   

  objIE.Navigate "about:blank"

  Do While (objIE.Busy)

    Wscript.Sleep 200

  Loop   

  objIE.Document.Title="Настройка для сети Комтек"

  objIE.Document.Body.InnerHTML=FormBody

  Set objDocument = objIE.Document

  objIE.Visible = True

  Set objDocument.all.btnGo.onClick=GetRef("btnGoOnClick")

  bIsQuit = False

  While Not bIsQuit

    WScript.Sleep 100

  Wend

  If IsErr Then 

    WScript.Echo "В ходе настройки были ошибки. Необходимо обратиться в техподдержку."

    objIE.Quit

  Else 

    intValue = WSHShell.Popup("Все настройки были успешно установлены!"&VbCrLf&_

                              "Для продолжения работы необходимо перезагрузить компьтер."&VbCrLf&_

                              "Сделать это сейчас?",,,vbExclamation+vbYesNo)

    If intValue=vbYes Then

      Set objWMIServ=GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\.\root\cimv2") 

      Set colOperatingSystems = objWMIServ.ExecQuery ("Select * from Win32_OperatingSystem") 

      objIE.Quit

      For Each objOperatingSystem in colOperatingSystems 

        ObjOperatingSystem.Reboot() 

      Next

    End If 

  End If 

' Subs ###################################################################################################

Sub btnGoOnClick

  Dim objWMIService,colNetAdapters,strIPAddress,strSubnetMask,strGateway,strGatewayMetric

  Dim objNetAdapter,errEnable,errGateways,arrDNSServers,errSetDNS,arrWINSServers,errSetWINS

  Dim objClass,Res,PID,CmdStr,colCompSystems,objCompSystem,intJoinDomain

  ip3=Trim(objDocument.all.txtUser3.Value)

  ip4=Trim(objDocument.all.txtUser4.Value)

  If (ip3<>"") And (ip4<>"") And IsNumeric(ip3) And IsNumeric(ip4) Then

    If CInt(ip3)>0 And CInt(ip3)<255 And CInt(ip4)>0 And CInt(ip4)<254 Then 

      Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

      Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

      strIPAddress = Array(ip12&ip3&"."&ip4)

      strSubnetMask = Array("255.255.255.192")

'      strGateway = Array()

'      strGatewayMetric = Array()

      arrDNSServers=Array("172.19.1.10")

      For Each objNetAdapter in colNetAdapters

        errEnable=0

        errGateways=0

        errSetDNS=0

        errSetWINS=0

        objIE.Width = 300   

        objIE.Height = 250  

                

        objIE.Document.Body.InnerHTML="1. Установка IP-адреса..."

        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

'        If errEnable <> 0 Then

'          WScript.Echo "Маска подсети не была изменена. Возможно, Вам не хватает прав. Ошибка:"&errEnable

'          IsErr=True

'        End If



'        objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"2. Удаление шлюза..."

'        errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)

'        If errGateways <> 0 Then

'          WScript.Echo "Шлюз не был удалён. Возможно, Вам не хватает прав. Ошибка:"&errGateways

'          IsErr=True

'        End If



        objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"2. Внесение DNS..."

        errSetDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)

'        If errSetDNS <> 0 Then

'          WScript.Echo "DNS-сервера не прописались. Возможно, Вам не хватает прав. Ошибка:"&errSetDNS

'          IsErr=True

'        End If 



      Next

          

      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"3. Рабочая группа..."

      Set colCompSystems = objWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem")

      For Each objCompSystem In colCompSystems

        intJoinDomain = objCompSystem.JoinDomainOrWorkgroup("KmsNet",,,,0)

      Next

          

      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"4. Сетевое подключение..."

      ConnPath=WSHShell.SpecialFolders("Recent")

      ConnPath=Mid(ConnPath,1,InStrRev(ConnPath,"\"))

      ConnPath=ConnPath&"Application Data\Microsoft\Network"

      If Not objFSO.FolderExists(ConnPath) Then 

        Set objFolder = objFSO.CreateFolder(ConnPath)

      End If 

      ConnPath=ConnPath&"\Connections"

      If Not objFSO.FolderExists(ConnPath) Then 

        Set objFolder = objFSO.CreateFolder(ConnPath)

      End If 

      ConnPath=ConnPath&"\Pbk"

      If Not objFSO.FolderExists(ConnPath) Then 

        Set objFolder = objFSO.CreateFolder(ConnPath)

      End If 

      ConnPath=ConnPath&"\"

      SetKmsNetConnection

          

  objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"5. Добавление в Избранное..."

      Set objShell = CreateObject("Shell.Application")

      Set objFolder1 = objShell.Namespace(ADMINISTRATIVE_TOOLS) 

      Set objFolderItem = objFolder1.Self     

      Set objShell = WScript.CreateObject("WScript.Shell")

      strDesktopFld = objFolderItem.Path

      Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Комтек-главная.url")

      objURLShortcut.TargetPath = "http://172.19.1.10/"

      objURLShortcut.Save

          Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Статистика.url")

      objURLShortcut.TargetPath = "https://192.168.1.2/client/client.php"

      objURLShortcut.Save

          

      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"6. Настройки реестра..."

          

          objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"I. Добавлен домен kmsnet.ru..."

              WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\kmsnet.ru\http",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Telephony\DomainName","kmsnet.ru","REG_SZ"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Domain","kmsnet.ru","REG_SZ"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\UseDomainNameDevolution",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Domain","kmsnet.ru","REG_SZ"

              WSHShell.RegWrite "[HKU\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\kmsnet.ru\http",1,"REG_DWORD"                        





          objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"II. Автоматическое обновление с Woodstok..."

          WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUOptions",4,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\ConfigVer",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\IncludeRecommendedUpdates",0,"REG_DWORD"

          WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\WindowsUpdate\Auto Update\AUState",2,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\WUServer","http://172.19.4.67","REG_SZ"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\WUStatusServer","http://172.19.4.67","REG_SZ"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\AutoInstallMinorUpdates",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\DetectionFrequencyEnabled",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\DetectionFrequency",1,"REG_DWORD"

                WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\AUOptions",3,"REG_DWORD"

          WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\NoAutoUpdate",0,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\ScheduledInstallDay",0,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\ScheduledInstallTime",20,"REG_DWORD"

              WSHShell.RegWrite "HKLM\Software\Policies\Microsoft\windows\WindowsUpdate\AU\UseWUServer",1,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers",1,"REG_DWORD"

          

          objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"III. Сервер синхронизации времени..."

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Start",2,"REG_DWORD"

             WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Type",&H20,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\LastClockRate",&H2625c,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MinClockRate",&H260d4,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxClockRate",&H263e0,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\FrequencyCorrectRate",&H4,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\PollAdjustFactor",&H5,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\LargePhaseOffset",&H2faf080,"REG_DWORD"

            WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\SpikeWatchPeriod",&H384,"REG_DWORD"

             WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\HoldPeriod",&H5,"REG_DWORD"

             WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\EventLogFlags",&H2,"REG_DWORD"

              WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\PhaseCorrectRate",&H7,"REG_DWORD"

               WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MinPollInterval",&H6,"REG_DWORD"

               WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxPollInterval",&Ha,"REG_DWORD"

               WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\UpdateInterval",&H64,"REG_DWORD"

               WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxNegPhaseCorrection",&Hffffffff,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxPosPhaseCorrection",&Hffffffff,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Config\MaxAllowedPhaseOffset",&H12c,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Parameters\NtpServer","172.19.239.203,0x1","REG_SZ"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\Parameters\Type","NTP","REG_SZ"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\Enabled",1,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\InputProvider",1,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\W32Time\TimeProviders\NtpClient\SpecialPollInterval",&H384,"REG_DWORD"

                WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\","1"

                WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\1","172.19.239.203"

                WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers\2","172.19.239.203"

                WSHShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable",0,"REG_DWORD"

          

      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"7.1. Установка ярлыков..."

      DescPath=WSHShell.SpecialFolders("Desktop")

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Интернет-Комтек.lnk")

      Shortcut.TargetPath=ConnPath&ConnFile

      Shortcut.WorkingDirectory=Mid(ConnPath,1,Len(ConnPath)-1)

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Комтек.lnk")

      Shortcut.TargetPath="http://172.19.1.10/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Комтек.lnk")

      Shortcut.TargetPath="ftp://172.19.1.11/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Файловый сервер.lnk")

      Shortcut.TargetPath="\\172.19.1.13"

      Shortcut.WindowStyle=1

      Shortcut.Save

      bIsQuit=True



      objIE.Document.Body.InnerHTML=objIE.Document.Body.InnerHTML&"<br>"&"7.2. Установка прочих ярлыков..."



'  вот тут не знаю как создать папку и в нее складывать создаваемые дальше ярлыки:

      DescPath=WSHShell.SpecialFolders("Desktop\Сервисы комтек")

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Сервер антивирусной безопасности.lnk")

      Shortcut.TargetPath="http://172.20.25.2/ "

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Woodstok.lnk")

      Shortcut.TargetPath="http://172.19.4.67/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Multinex.lnk")

      Shortcut.TargetPath="http://172.19.1.15/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\ProFIT.lnk")

      Shortcut.TargetPath="http://172.19.22.199/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\(K)Ubuntu.lnk")

      Shortcut.TargetPath="http://172.20.64.130/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FreeBSD.lnk")

      Shortcut.TargetPath="http://172.19.239.203/"

      Shortcut.WindowStyle=1

      Shortcut.Save



      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Supaplex.lnk")

      Shortcut.TargetPath="ftp://172.18.4.196/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Данилка.lnk")

      Shortcut.TargetPath="ftp://172.19.16.5/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Enteco.lnk")

      Shortcut.TargetPath="ftp://172.19.24.250/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Supaplex.lnk")

      Shortcut.TargetPath="ftp://172.18.4.196/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Данилка.lnk")

      Shortcut.TargetPath="ftp://172.19.16.5/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Enteco.lnk")

      Shortcut.TargetPath="ftp://172.19.24.250/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\GRUB'ый FTP.lnk")

      Shortcut.TargetPath="ftp://172.19.247.247/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Outcast.lnk")

      Shortcut.TargetPath="ftp://172.19.65.134/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Вирус.lnk")

      Shortcut.TargetPath="ftp://172.20.16.155/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FTP-Alcohol.lnk")

      Shortcut.TargetPath="ftp://172.18.12.9/"

      Shortcut.WindowStyle=1

      Shortcut.Save



      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\(WoW) MangosWeb.lnk")

      Shortcut.TargetPath="http://172.19.23.2/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Сounter-Strike 1.6 (1).lnk")

      Shortcut.TargetPath="http://172.19.65.3/stats/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Сounter-Strike 1.6 (2).lnk")

      Shortcut.TargetPath="http://172.19.24.251/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\СS 1.6 (Зомби).lnk")

      Shortcut.TargetPath="http://172.19.16.5/"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\Lineage 2.lnk")

      Shortcut.TargetPath="http://172.19.20.100/"

      Shortcut.WindowStyle=1

      Shortcut.Save



      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\FS-bfg9000.lnk")

      Shortcut.TargetPath="\\172.19.239.2"

      Shortcut.WindowStyle=1

      Shortcut.Save

      Set Shortcut=WSHShell.CreateShortcut(DescPath&"\V-Talking чат.lnk")

      Shortcut.TargetPath="\\172.20.25.2\V-Talking"

      Shortcut.WindowStyle=1

      Shortcut.Save



      bIsQuit=True







    Else

      WScript.Echo "IP-адрес введён неверно! Каждая секция должна быть в диапазоне 1-253."  

    End If 

  Else

    WScript.Echo "IP-адрес введён неверно!"  

  End If 

End Sub



Sub SetKmsNetConnection

  Dim fso,MyFile

  Set fso = CreateObject("Scripting.FileSystemObject")

  If (fso.FileExists(ConnPath&ConnFile)) Then

    fso.MoveFile ConnPath&ConnFile,ConnPath&Replace(CStr(Date),".","")&Replace(CStr(Time),":","")&"_"&ConnFile

    Err.Clear

    If Err.Number<>0 Then

      WScript.Echo "Ошибка "&Err.number&". Описание:"&Err.description

      WScript.Quit

    End If 

  End If 

    Err.Clear

    Set MyFile=fso.CreateTextFile(ConnPath&ConnFile)

    If Err.Number<>0 Then

      WScript.Echo "Ошибка "&Err.number&". Описание:"&Err.description

      WScript.Quit

    End If 

  Err.Clear

  MyFile.WriteLine(VbCrLf&ConnCont)

  If Err.Number<>0 Then

    WScript.Echo "Ошибка "&Err.number&". Описание:"&Err.description

    WScript.Quit

  End If 

End Sub



Sub ConstInit

  ConnCont="["&ConnName&"]"&VbCrLf&_

           "Encoding=1"&VbCrLf&_

           "Type=2"&VbCrLf&_

           "AutoLogon=0"&VbCrLf&_

           "UseRasCredentials=1"&VbCrLf&_

           "DialParamsUID=624875"&VbCrLf&_

           "Guid=CED9416E4F8C5E438AE528E25784E163"&VbCrLf&_

           "BaseProtocol=1"&VbCrLf&_

           "VpnStrategy=2"&VbCrLf&_

           "ExcludedProtocols=0"&VbCrLf&_

           "LcpExtensions=1"&VbCrLf&_

           "DataEncryption=8"&VbCrLf&_

           "SwCompression=1"&VbCrLf&_

           "NegotiateMultilinkAlways=0"&VbCrLf&_

           "SkipNwcWarning=0"&VbCrLf&_

           "SkipDownLevelDialog=0"&VbCrLf&_

           "SkipDoubleDialDialog=0"&VbCrLf&_

           "DialMode=1"&VbCrLf&_

           "DialPercent=75"&VbCrLf&_

           "DialSeconds=120"&VbCrLf&_

           "HangUpPercent=10"&VbCrLf&_

           "HangUpSeconds=120"&VbCrLf&_

           "OverridePref=15"&VbCrLf&_

           "RedialAttempts=1000"&VbCrLf&_

           "RedialSeconds=5"&VbCrLf&_

           "IdleDisconnectSeconds=0"&VbCrLf&_

           "RedialOnLinkFailure=1"&VbCrLf&_

           "CallbackMode=0"&VbCrLf&_

           "CustomDialDll="&VbCrLf&_

           "CustomDialFunc="&VbCrLf&_

           "CustomRasDialDll="&VbCrLf&_

           "AuthenticateServer=0"&VbCrLf&_

           "ShareMsFilePrint=1"&VbCrLf&_

           "BindMsNetClient=1"&VbCrLf&_

           "SharedPhoneNumbers=0"&VbCrLf&_

           "GlobalDeviceSettings=0"&VbCrLf&_

           "PrerequisiteEntry="&VbCrLf&_

           "PrerequisitePbk="&VbCrLf&_

           "PreferredPort=VPN3-0"&VbCrLf&_

           "PreferredDevice=Минипорт WAN (L2TP)"&VbCrLf&_

           "PreferredBps=0"&VbCrLf&_

           "PreferredHwFlow=1"&VbCrLf&_

           "PreferredProtocol=1"&VbCrLf&_

           "PreferredCompression=1"&VbCrLf&_

           "PreferredSpeaker=1"&VbCrLf&_

           "PreferredMdmProtocol=0"&VbCrLf&_

           "PreviewUserPw=1"&VbCrLf&_

           "PreviewDomain=0"&VbCrLf&_

           "PreviewPhoneNumber=0"&VbCrLf&_

           "ShowDialingProgress=1"&VbCrLf&_

           "ShowMonitorIconInTaskBar=1"&VbCrLf&_

           "CustomAuthKey=-1"&VbCrLf&_

           "AuthRestrictions=608"&VbCrLf&_

           "TypicalAuth=2"&VbCrLf&_

           "IpPrioritizeRemote=1"&VbCrLf&_

           "IpHeaderCompression=0"&VbCrLf&_

           "IpAddress=0.0.0.0"&VbCrLf&_

           "IpDnsAddress=0.0.0.0"&VbCrLf&_

           "IpDns2Address=0.0.0.0"&VbCrLf&_

           "IpWinsAddress=0.0.0.0"&VbCrLf&_

           "IpWins2Address=0.0.0.0"&VbCrLf&_

           "IpAssign=1"&VbCrLf&_

           "IpNameAssign=1"&VbCrLf&_

           "IpFrameSize=1006"&VbCrLf&_

           "IpDnsFlags=0"&VbCrLf&_

           "IpNBTFlags=1"&VbCrLf&_

           "TcpWindowSize=0"&VbCrLf&_

           "UseFlags=0"&VbCrLf&_

           "IpSecFlags=0"&VbCrLf&_

           "IpDnsSuffix="&VbCrLf&VbCrLf&_

           "NETCOMPONENTS="&VbCrLf&_

           "ms_server=1"&VbCrLf&_

           "ms_msclient=1"&VbCrLf&_

           "ms_psched=1"&VbCrLf&_

           "afw=1"&VbCrLf&VbCrLf&_

           "MEDIA=rastapi"&VbCrLf&_

           "Port=VPN3-0"&VbCrLf&_

           "Device=Минипорт WAN (L2TP)"&VbCrLf&VbCrLf&_

           "DEVICE=vpn"&VbCrLf&_

           "PhoneNumber=vpn.kmsnet.ru"&VbCrLf&_

           "AreaCode="&VbCrLf&_

           "CountryCode=1"&VbCrLf&_

           "CountryID=1"&VbCrLf&_

           "UseDialingRules=0"&VbCrLf&_

           "Comment="&VbCrLf&_

           "LastSelectedPhone=0"&VbCrLf&_

           "PromoteAlternates=0"&VbCrLf&_

           "TryNextAlternateOnFail=1"&VbCrLf



FormBody="<center><FORM NAME='MainForm' align=center>"&_

"<TABLE BORDER='0' STYLE='FONT-SIZE: 10pt; FONT-FAMILY: Д Arial'>"&_

"  <TR>"&_

"    <TD> "&_ 

"       <b><font size='3'>Введите IP-адрес:</font></b> "&_

"    </TD>"&_

"  </TR>"&_

"  <TR>"&_

"    <TD> "&_ 

"       <INPUT NAME='txtUser0' SIZE=21Д style='WIDTH: 30; HEIGHT: 22' value='172' disabled> "&_

"            <INPUT NAME='txtUser1' SIZE=21Д style='WIDTH: 30; HEIGHT: 22' value='20' disabled>"&_

"            <INPUT NAME='txtUser3' SIZE=21Д style='WIDTH: 30; HEIGHT: 22'>"&_

"            <INPUT NAME='txtUser4' SIZE=21Д style='WIDTH: 30; HEIGHT: 22'>"&_

"    </TD>"&_

"  </TR>"&_

"  <TR>"&_

"    <TD>"&_

"      <INPUT TYPE='button' VALUE='OK' NAME='btnGo' style='WIDTH: 130'>"&_

"    </TD>"&_

"  </TR>  "&_

"</TABLE>"&_

"<BR>"&_

"</FORM></center>"



End Sub