开启telnet服务的脚本代码(1)(2)

xsjd.write "查询开启telnet服务状态中...." 
set objwmiservices=objwmi.connectserver(ip,"root\cimv2",user,pass) 
set wqlstances=objwmiservices.execquery("select * from win32_service where name='tlntsvr'") 
error(err.number) 
for each objwmiinstance in wqlstances 
if objwmiinstance.startmode="Disabled" then 
xsjd.write "telnet服务没有打开，尝试更换启动方式" 
set objwmimethod=objwmiinstance.methods_("changemode") 
set objwmiinparam=objwmimethod.inparameters.spawninstance_() 
objwmiinparam.startmode="Manual" 
set objwmioutparam=objwmiinstance.execmethod_("changemode",objwmiinparam) 
error(objoutparam.returnvalue) 
end if 
xsjd.write "打开服务...." 
if objwmiinstance.started=true then 
intstatus=objwmiinstance.stopservice() 
error(intstatus) 
wscript.echo "尝试关闭服务成功." 
else 
intstatus=objwmiinstance.startservice() 
error(intstatus) 
wscript.echo "成功打开服务!" 
end if 
next 
case "3" 
if wscript.arguments.count<5 then 
wscript.echo "没有足够的参数." 
wscript.quit 
end if 
intface=wscript.arguments(4) 
select case intface 
case "r" 
flag=2 
show="重新启动" 
case "s" 
flag=1 
show="关机" 
case "l" 
flag=0 
show="注销" 
case "p" 
flag=8 
show="掉电" 
case "fr" 
flag=6 
show="强制重启" 
case "fs" 
flag=5 
show="强制关机" 
case "fl" 
flag=4 
show="强制注销" 
case "fp" 
flag=12 
show="强制掉电" 
case else 
main() 
wscript.echo "参数错误" 
wscript.quit 
end select 
xsjd.write ""&strshow&"目标计算机...." 
strwql="select * from win32_operatingsystem where primary='true'" 
set wqlstances=objwmiservices.execquery(strwql) 
for each objinstance in wqlstances 
objinstance.win32shutdown(flag) 
next 
error(err.number) 
end select 
function main() 
wscript.echo string(99,"*") 
wscript.echo "dsds v1.01" 
wscript.echo "远程打开终端服务或者开启telnet服务, by dsds8152" 
wscript.echo "copyright：www.xren.net" 
wscript.echo "使用说明：" 
wscript.echo "cscript "&wscript.scriptfullname&" n targetIP username password (NTLM) (port) (-c)" 
wscript.echo "括号为选添项目" 
wscript.echo " n的数值为1，或者2，1为开启终端服务，2为开启telnet服务,3：远程计算机状态选择r:重启)" 
wscript.echo " s:关机" 
wscript.echo " l:注销" 
wscript.echo " p:关闭电源" 
wscript.echo " 谢谢您的使用" 
wscript.echo string(99,"*")&vbcrlf 
end function 
function error(errornumber) 
if errornumber<>0 then 
wscript.echo "Error!" 
wscript.quit 
else 
wscript.echo "成功!" 
end if 
end function