Перевести код с Batch на VBScript

@madjahed · Регистрация: 14.11.2015

Студворк — интернет-сервис помощи студентам

Добрый вечер. Появилась необходимость перевести несколько скриптов из формата bat/cmd в vbs/js :
1.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
@echo off
chcp 1251
cls
set /p mesto="1 - osnova , 2 - internet"
if %mesto% equ 2 goto inet
:Osnova
set IFACE="Подключение по локальной сети"
set IP=192.2.7.20
set MASK=255.255.255.0
set GATEWAY=192.2.7.1
set GWMETRIC=1
set DNS1=192.168.1.1
set DNS2=192.168.1.25
set DNS3=8.8.8.8
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0x00000001 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyOverride /t REG_SZ /d "192.168.1.17;192.2.7.2;<local>" /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /t REG_SZ /d proxy.osnova.ua:8080 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections" /v DefaultConnectionSettings /t REG_BINARY /d 46000000070000000300000017000000676174652E696E666F726D6A7573742E75613A333132383A000000636F6163682E696E666F726D6A7573742E75613B696E736964652E696E666F726D6A7573742E75613B31302E322E34372E323B3C6C6F63616C3E000000000100000000000000000000000000000000000000000000000000000000000000 /f 
goto smena
 
:inet
set IFACE="Подключение по локальной сети"
set IP=192.2.7.35
set MASK=255.255.255.0
set GATEWAY=192.2.7.100
set GWMETRIC=1
set DNS1=192.168.1.1
set DNS2=192.168.1.25
set DNS3=8.8.8.8
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0x00000000 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections" /v DefaultConnectionSettings /t REG_BINARY /d 460000000e0000000100000000000000070000003c6c6f63616c3e0000000001000000000000006030adc74c2bd101000000000000000000000000020000001700000000000000fe80000000000000357d920dc9710b320b00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000020000000a022f14000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 /f 
goto smena
 
:smena
netsh interface ip set address name=%IFACE% source=static addr=%IP% mask=%MASK% gateway=%GATEWAY% gwmetric=%GWMETRIC%
netsh interface ip set DNS %IFACE% static %DNS1% PRIMARY
netsh interface ip add DNS %IFACE% %DNS2% index=2
netsh interface ip add DNS %IFACE% %DNS3% index=3
exit

2.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
@echo off
cls
if EXIST "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}" goto UNLOCK
if NOT EXIST MyPapka goto MKDIR
 
:DANET
cls
echo блокировать папку?
set/p "choise=>"
if %choise%==y goto LOCK
if %choise%==n goto END
goto DANET
 
:LOCK
ren MyPapka "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
attrib +h +s "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
if EXIST MyPapka goto READ
if EXIST "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}" goto END
 
:UNLOCK
cls
echo введите пароль
set/p "varr=>"
if NOT %varr%== 11223344 goto ERROR
attrib -h -s "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}"
ren "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}" MyPapka
if EXIST "Recycle Bin.{645FF040-5081-101B-9F08-00AA002F954E}" goto READ
if EXIST MyPapka goto END
 
:ERROR
cls
echo неверный пароль
set/p "error=>"
goto UNLOCK
 
:READ
cls
echo файл занят
pause
goto END
 
:MKDIR
mkdir MyPapka
cls
echo папка создана
pause
goto END
 
:END
cls
echo ГОТОВО
pause

Заранее благодарен.

@iCCupPlatoon · 20.12.2015, 14:15

Не сильно уверен, что сработает, но всё делал по порядку. Проверяйте первый скрипт:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
OneIP      = "192.2.7.20"
TwoIP      = "192.2.7.35"
MASK       = "255.255.255.0"
OneGATEWAY = "192.2.7.1"
TwoGATEWAY = "192.2.7.100"
GWMETRIC   = "1"
DNS1       = "192.168.1.1"
DNS2       = "192.168.1.25"
DNS3       = "8.8.8.8"
strOtvet = InputBox("Введите нужный номер:" & vbCrLf & "1 - основа" & vbCrLf & "2 - интернет")
If strOtvet = "1" Then
    Set objShell = WScript.CreateObject("Wscript.Shell")
    objShell.Run "reg add ""HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"" /v ProxyEnable /t REG_DWORD /d 0x00000001 /f", 0, True
    objShell.Run "reg add ""HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"" /v ProxyServer /t REG_SZ /d proxy.osnova.ua:8080 /f", 0, True
    objShell.Run "reg add ""HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"" /v ProxyOverride /t REG_SZ /d "192.168.1.17;192.2.7.2;<local>" /f", 0, True
    objShell.Run "reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections" /v DefaultConnectionSettings /t REG_BINARY /d 46000000070000000300000017000000676174652E696E666F726D6A7573742E75613A333132383A000000636F6163682E696E666F726D6A7573742E75613B696E736964652E696E666F726D6A7573742E75613B31302E322E34372E323B3C6C6F63616C3E000000000100000000000000000000000000000000000000000000000000000000000000 /f ", 0, True
    objShell.Run "netsh interface ip set address name=""Подключение по локальной сети"" static " & OneIP & " " & MASK & " " & OneGATEWAY & " " & GWMETRIC, 0, True
    objShell.Run "netsh interface ip set dns name=""Подключение по локальной сети"" static " & DNS1 & " PRIMARY", 0, True
    objShell.Run "netsh interface ip add dns name=""Подключение по локальной сети"" " & DNS2 & " index=2", 0, True
    objShell.Run "netsh interface ip add dns name=""Подключение по локальной сети"" " & DNS3 & " index=3", 0, True
    Set objShell = Nothing
ElseIf strOtvet = "2" Then
    Set objShell = WScript.CreateObject("Wscript.Shell")
    objShell.Run "reg add ""HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings"" /v ProxyEnable /t REG_DWORD /d 0x00000000 /f", 0, True
    objShell.Run "reg add ""KCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Connections"" /v DefaultConnectionSettings /t REG_BINARY /d 460000000e0000000100000000000000070000003c6c6f63616c3e0000000001000000000000006030adc74c2bd101000000000000000000000000020000001700000000000000fe80000000000000357d920dc9710b320b00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000020000000a022f14000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 /f", 0, True
    objShell.Run "netsh interface ip set address name=""Подключение по локальной сети"" static " & TwoIP & " " & MASK & " " & TwoGATEWAY & " " & GWMETRIC, 0, True
    objShell.Run "netsh interface ip set dns name=""Подключение по локальной сети"" static " & DNS1 & " PRIMARY", 0, True
    objShell.Run "netsh interface ip add dns name=""Подключение по локальной сети"" " & DNS2 & " index=2", 0, True
    objShell.Run "netsh interface ip add dns name=""Подключение по локальной сети"" " & DNS3 & " index=3", 0, True
    Set objShell = Nothing
End If

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .