; Script "Auto CMD" by SaperMT2 (gg:10229908) (c)
$liczba1=InputBox("AutoCMD","Podaj swoje imię")
MsgBox(0,"AutoCMD","Witam z tej strony SaperMT2 ty zapewne jestes "&$liczba1)
$liczba2=InputBox("AutoCMD","Jaki chcesz mieć login ?")
MsgBox(0,"AutoCMD","Okej będziesz miał login "&$liczba2)
$liczba3=InputBox("AutoCMD","Jakie chcesz mieć hasło ?")
MsgBox(0,"AutoCMD","Okej Twoim hasłem będzie "&$liczba3)
msgbox(0,"AutoCMD","Więc biorę się do roboty")
Run ("cmd.exe")
Sleep (1000)
Send("net user "& $liczba2 & " " & $liczba3 & " /add")
Send("{ENTER}")
MsgBox(0,"AutoCMD","Okej gotowe "&$liczba1)
msgbox(0,"AutoCMD","Prawa administratora ? Żadnego problemu")
Run ("cmd.exe")
Sleep (1000)
Send("net localgroup Administrators " & $liczba2 & " /add")
Send("{ENTER}")
msgbox(0,"AutoCMD","Okej teraz masz pełne prawa Mam nadzieję ze pomogłem ")
Run ("notepad.exe")
Sleep (1000)
Send("Pamiętaj ten program został stworzony przez użytkownika sastunterad/SaperMT2 , mam nadzieję że pomogłem tobie.Pozdrawiam")
Send("Moje gg:10229908")
msgbox(0,"AutoCMD","Zapraszam równiez cie na forum ProMetin2.pl")
ShellExecute("http://www.prometin2.pl/")
To można wywalić z powodu że administrator ma dostęp do pulpitu zdalnego.
msgbox(0,"AutoCMD","Chcesz mieć prawo połączyć się pulpitem zdalnym z tym serwerem? Chwileczka")
Run ("cmd.exe")
Sleep (1000)
Send("net localgroup "Remote Desktop Users" "&$liczba2 /add
Send("{ENTER}")