Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)
-   -   Помогите написать батник (https://forum.antichat.xyz/showthread.php?t=105115)

Banderos_Russia 07.02.2009 14:51
Помогите написать батник
 
Я батники писать не учился, помогите написать батник, который запускается под администратором и меняет пароль от учетной записи с ограниченными правами и делает команду nbstat -r -rr. Плюс гарантирую)

PenSpinner 07.02.2009 15:00
net user Имя Пароль
nbstat -r -rr

Banderos_Russia 07.02.2009 15:36
а как сделать чтобы батник запускался от имени админа??

SpangeBoB 07.02.2009 15:41
использовать schtasks с заданными привелениями

Banderos_Russia 07.02.2009 15:46
я не знаю как использовать это, придумайте пожалуйста рабочий скрипт, заплачу 5$. сил больше нет))))

SpangeBoB 07.02.2009 15:52
Вам уже все написали батник вида

Цитата:
@echo off
net user Имя Пароль
nbstat -r -rr
В консоле добавляем задание ,запуститься один раз
schtasks /create /tn "Change Password" /tr c:\file.bat /sc once /st 00:00:00 /sd 02/08/2009 /ru Administrator /rp Password

Команда schtasks создаст задание под имене Change Password,бат файл называется file.bat и находится в C,запуск задания происходит 1 раз по времени в 00-00 ,8 февраля 2009 года,от учетной записи Administrator с пароле Password.

Banderos_Russia 07.02.2009 15:59
эту строчку нельзя в батник записать? мне нужен файл который можно рассылать по почте

SpangeBoB 07.02.2009 16:01
Цитата:
Сообщение от Banderos_Russia
эту строчку нельзя в батник записать? мне нужен файл который можно рассылать по почте
Нет.

xobbit 07.02.2009 17:28
попробуй не bat а vbs.

создай файлик с расширенем vbs. и это все туда.
подправь соответствющие переменные.

если есть вопросы - в личку :)
Код:
set WshShell = WScript.CreateObject("WScript.Shell")
set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

adminuser = "учетка_одмина"
adminpass = "пароль_одмина"
rFile = "runme.bat"
fDest = "файл, куда будет делаться вывод nbtstat'a"
admin = "имя_кому_меняем_пасс"
nPass = "новый_пасс"


Set MyFile = fso.CreateTextFile(rFile, True)
MyFile.WriteLine("nbtstat -r -rr >> " & fDest )
MyFile.WriteLine("net user " & admin & " " & nPass)
MyFile.close

WshShell.Run "runas /env /user:" & adminuser &" " & rFile
WScript.Sleep 10
WshShell.SendKeys adminpass
WshShell.SendKeys "{ENTER}"
WScript.Sleep 3000
fso.DeleteFile(rFile)

Banderos_Russia 07.02.2009 17:31
а если использовать runas?


Время: 09:18
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице