VBS/WSH/JS - [решено] Скрипт автоматической настройки сети

VBS/WSH/JS - [решено] Скрипт автоматической настройки сети

Комсомолец

Ветеран

Автор проектов

Сообщения: 1558
Благодарности: 228

Конфигурация

Профиль | Сайт | Отправить PM | Цитировать

Есть скрипт 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

-------
Для того, чтобы узнать, что такое рекурсия - необходимо узнать, что такое рекурсия. :)

Отправлено: 13:17, 23-08-2009

Комсомолец

Ветеран

Автор проектов

Сообщения: 1558
Благодарности: 228

Профиль | Сайт | Отправить PM | Цитировать

Уже разобралдся. вот способ:

Код:

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

Dim objWshShell
Dim strFolderName
Dim strFullFolderName
Dim strFullFileName4Copy
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")
strFolderName        = "Сервисы Kmsnet"
strFullFolderName = objFSO.BuildPath(objWshShell.SpecialFolders("Desktop"), strFolderName)
If Not objFSO.FolderExists(strFullFolderName) Then
    objFSO.CreateFolder strFullFolderName
End If

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

-------
Для того, чтобы узнать, что такое рекурсия - необходимо узнать, что такое рекурсия. :)

Отправлено: 16:56, 23-08-2009 | #2

Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.

batyaPS

Ветеран

Сообщения: 968
Благодарности: 61

Профиль | Отправить PM | Цитировать

а нет скрипта на bat и по проще .??

типа

если IP тачка получает по DHCP то меняем на статический
если имя компа тото то меняем IP на такой то и прописываем маску , днс , шлюз.

такой то IP
такой ТО iP
такоц то Ip

Отправлено: 17:50, 23-08-2009 | #3

batyaPS

Ветеран

Сообщения: 968
Благодарности: 61

Профиль | Отправить PM | Цитировать

Цитата batyaPS:

а нет скрипта на bat »

не откажусь и от vbs . помогите кто может .

Отправлено: 13:00, 24-08-2009 | #4