国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

遠(yuǎn)程開(kāi)啟-關(guān)閉目標(biāo)telnet服務(wù)的windows腳本RTCS.vbs

2020-03-24 16:47:41
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
********************************************************************************
RTCS v1.10
Remote Telnet Configure Script, by zzzEVAzzz
Welcome to visite www.isgrey.com
Usage:
cscript c:/scriptpath/RTCS.vbe targetIP username password NTLMAuthor telnetport
It will auto change state of target telnet server.
********************************************************************************
描述:遠(yuǎn)程開(kāi)啟/關(guān)閉目標(biāo)telnet服務(wù)的windows腳本。
特點(diǎn):不依賴于目標(biāo)的ipc$開(kāi)放與否。
原理:直接訪問(wèn)目標(biāo)的windows管理規(guī)范服務(wù)(WMI)。該服務(wù)為系統(tǒng)重要服務(wù),默認(rèn)啟動(dòng)。
支持平臺(tái):win2kpro win2kserver winxp win.net
使用方法:
在命令行方式下使用windows自帶的腳本宿主程序cscript.exe調(diào)用腳本,例如:
c:/ cscript RTCS.vbe 目標(biāo)IP 用戶名 密碼 NTLM驗(yàn)證方式 telnet服務(wù)端口
其中 NTLM 值可取0,1,2:
0: 不使用 NTLM 身份驗(yàn)證;
1: 先嘗試 NTLM 身份驗(yàn)證。如果失敗,再使用用戶名和密碼;
2: 只使用 NTLM 身份驗(yàn)證。
空密碼用兩個(gè)雙引號(hào) 表示。
腳本自動(dòng)檢查目標(biāo)telnet服務(wù)情況,如果未啟動(dòng)則啟動(dòng)它,相反就關(guān)閉。
同一個(gè)命令執(zhí)行兩遍,就開(kāi)/關(guān)一次服務(wù)。
關(guān)閉服務(wù)時(shí)也必須輸入共5個(gè)參數(shù),這樣可以根據(jù)需要把服務(wù)設(shè)置還原為默認(rèn)值(NTLM=2,端口23)。
如果telnet服務(wù)被禁用,將自動(dòng)更改為“手動(dòng)”。
如果要對(duì)本地使用,IP地址為127.0.0.1或者一個(gè)點(diǎn)(用.表示),用戶名和密碼都為空(用 表示)。
此腳本為自由軟件,修改發(fā)布請(qǐng)著明原作者。謝謝合作。
本人提供有限技術(shù)支持,有問(wèn)題請(qǐng)到論壇發(fā)短消息給我。我的ID是zzzevazzz

最后更新:2002-8-23
更新記錄:
1.10 更改了輸出顯示格式。
1.09 解決了空密碼的問(wèn)題。
1.08 代碼加密并以測(cè)試版發(fā)布。
1.07 增加對(duì)付服務(wù)被“禁用”的功能。
1.06 解決在圖形界面下運(yùn)行的問(wèn)題。
1.05 對(duì)參數(shù)做簡(jiǎn)單判斷,防止誤操作。
1.04 增加顯示Usage和詳細(xì)過(guò)程功能。
1.03 增加關(guān)閉服務(wù)功能。
1.02 增加手動(dòng)設(shè)置端口和NTLM功能。
1.00 完成基本功能,遠(yuǎn)程啟動(dòng)telnet服務(wù),并設(shè)置NTLM=1。
復(fù)制代碼 代碼如下:
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.scriptfullname&chr(34))
wscript.quit
end if
if wscript.arguments.count 5 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 ntlm 0 or ntlm 2 then
usage()
wscript.echo The html' target='_blank'>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 functionhtml教程

鄭重聲明:本文版權(quán)歸原作者所有,轉(zhuǎn)載文章僅為傳播更多信息之目的,如作者信息標(biāo)記有誤,請(qǐng)第一時(shí)間聯(lián)系我們修改或刪除,多謝。

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 饶河县| 红河县| 龙里县| 卢氏县| 乳山市| 通山县| 玉龙| 枣强县| 桂东县| 连江县| 淅川县| 宜昌市| 桐梓县| 抚顺市| 中超| 普兰店市| 四会市| 启东市| 高密市| 伊金霍洛旗| 武夷山市| 南京市| 旅游| 灌南县| 梁平县| 康平县| 东光县| 德兴市| 梓潼县| 三亚市| 囊谦县| 潞城市| 马鞍山市| 云浮市| 抚远县| 吴川市| 行唐县| 大安市| 阿荣旗| 迁西县| 金塔县|