服务咨询热线:

022-88711099

当前位置:

3389脚本开启代码(vbs版)

发布时间:2011/11/18 23:02:56 作者:夜风冷 访问量:1400

3389脚本开启代码(vbs版)

3389脚本开启代码(vbs版)
    本文发表于3年前
    将以下代码复制到记事本里并保存为rots.vbs
    以下是代码片段:
    on error resume next
    set outstreem=wscript.stdout
    set instreem=wscript.stdin
    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<3 then
    usage()
    wscript.echo "Not enough parameters."
    wscript.quit
    end if
    ipaddress=wscript.arguments(0)
    username=wscript.arguments(1)
    password=wscript.arguments(2)
    if wscript.arguments.count>3 then
    port=wscript.arguments(3)
    else
    port=3389
    end if
    if not isnumeric(port) or port<1 or port>65000 then
    wscript.echo "The number of port is error."
    wscript.quit
    end if
    if wscript.arguments.count>4 then
    reboot=wscript.arguments(4)
    else
    reboot=""
    end if
    usage()
    outstreem.write "Conneting "&ipaddress&" ...."
    set objlocator=createobject("wbemscripting.swbemlocator")
    set objswbemservices=objlocator.connectserver(ipaddress,"root/cimv2",username,password)
    objswbemservices.security_.privileges.add 23,true
    objswbemservices.security_.privileges.add 18,true
    showerror(err.number)
    outstreem.write "Checking OS type...."
    set colinstoscaption=objswbemservices.execquery("select caption from win32_operatingsystem")
    for each objinstoscaption in colinstoscaption
    if instr(objinstoscaption.caption,"Server")>0 then
    wscript.echo "OK!"
    else
    wscript.echo "OS type is "&objinstoscaption.caption
    outstreem.write "Do you want to cancel setup?[y/n]"
    strcancel=instreem.read
    if lcase(strcancel)<>"n" then wscript.quit
    end if
    next
    outstreem.write "Writing into registry ...."
    set objinstreg=objlocator.connectserver(ipaddress,"root/default",username,password).get("stdregprov")
    HKLM=&h80000002
    with objinstreg
    .createkey ,"SOFTWARE\Microsoft\Windows\CurrentVersion\netcache"
    .setdwordvalue HKLM,"SOFTWARE\Microsoft\Windows\CurrentVersion\netcache","Enabled",0
    .createkey HKLM,"SOFTWARE\Policies\Microsoft\Windows\Installer"
    .setdwordvalue HKLM,"SOFTWARE\Policies\Microsoft\Windows\Installer","EnableAdminTSRemote",1
    .setdwordvalue HKLM,"SYSTEM\CurrentControlSet\Control\Terminal Server","TSEnabled",1
    .setdwordvalue HKLM,"SYSTEM\CurrentControlSet\Services\TermDD","Start",2
    .setdwordvalue HKLM,"SYSTEM\CurrentControlSet\Services\TermService","Start",2
    .setstringvalue HKLM,".DEFAULT\Keyboard Layout\Toggle","Hotkey","1"
    .setdwordvalue HKLM,"SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp","PortNumber",port
    end with
    showerror(err.number)
    rebt=lcase(reboot)
    if rebt="/r" or rebt="-r" or rebt="\r" then
    outstreem.write "Now, reboot target...."
    strwqlquery="select * from win32_operatingsystem where primary=''''true''''"
    set colinstances=objswbemservices.execquery(strwqlquery)
    for each objinstance in colinstances
    objinstance.win32shutdown(6)
    next
    showerror(err.number)
    else
    wscript.echo "You need to reboot target."&vbcrlf&"Then,"
    end if
    wscript.echo "You can logon terminal services on "&port&" later. Good luck!"
    function showerror(errornumber)
    if errornumber Then
    wscript.echo "Error 0x"&cstr(hex(err.number))&" ."
    if err.description <> "" then
    wscript.echo "Error description: "&err.description&"."
    end if
    wscript.quit
    else
    wscript.echo "OK!"
    end if
    end function
    function usage()
    wscript.echo string(79,"*")
    wscript.echo "ROTS v1.01"
    wscript.echo "Remote Open Terminal services Script, by zzzEVAzzz"
    wscript.echo "Welcome to visite www.isgrey.com"
    wscript.echo "Usage:"
    wscript.echo "cscript "&wscript.scriptfullname&" targetIP username password [port]
    "
    wscript.echo "port: default number is 3389."
    wscript.echo "/r: auto reboot target."
    wscript.echo string(79,"*")&vbcrlf
    end function
    

这篇为批量导入文章,以下为之前站内评论!

  • 夜风冷发表于 3年前 ㊣ 夜 風 冷 3年前 回复 收起回复
        题外话,3389都开了,知道下一步做什么了吗?嘿嘿!
         取消