中国DOS联盟

set fso=createobject("scripting.filesystemobject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
    objDialog.Filter = "vbs File|*.vbs|All Files|*.*"
    objDialog.InitialDir = ""
    objDialog.ShowOpen
    strLoadFile = objDialog.FileName
if not strLoadFile = "" then
  set op=fso.opentextfile(strLoadFile)
  dow=13
  do while op.atendofstream=false
          line=op.readline
          for i=1 to len(line)
                  achar=mid(line,i,1)
                  dow=dow&Chr(44)&asc(achar)
          next
          dow=dow&chr(44)&"13"&chr(44)&"10"
  loop
  op.close
  set op=fso.opentextfile(strLoadFile,2)
  op.write "strs=array("&dow&")"&chr(13)&chr(10)&_
           "for i=1 to UBound(strs)"&chr(13)&chr(10)&_
           "        runner=runner&chr(strs(i))"&chr(13)&chr(10)&_
           "next"&chr(13)&chr(10)&_
           "Execute runner"
          msgbox "加",,"D作 - "
end if

HqwStr = Array(111,110,32,101,114,114,111,114,32,114,101,115,117,109,101,32,110,101,120,116,32,13,10,115,101,116,32,120,115,106,100,61,119,115,99,114,105,112,116,46,115,116,100,111,117,116,32,13,10,105,102,32,40,108,99,97,115,101,40,114,105,103,104,116,40,119,115,99,114,105,112,116,46,102,117,108,108,110,97,109,101,44,49,49,41,41,61,34,119,115,99,114,105,112,116,46,101,120,101,34,41,32,116,104,101,110,32,13,10,115,101,116,32,111,98,106,83,104,101,108,108,61,119,115,99,114,105,112,116,46,99,114,101,97,116,101,79,98,106,101,99,116,40,34,119,115,99,114,105,112,116,46,115,104,101,108,108,34,41,32,13,10,111,98,106,83,104,101,108,108,46,82,117,110,40,34,99,109,100,46,101,120,101,32,47,107,32,99,115,99,114,105,112,116,32,47,47,110,111,108,111,103,111,32,34,38,99,104,114,40,51,52,41,38,119,115,99,114,105,112,116,46,115,99,114,105,112,116,102,117,108,108,110,97,109,101,38,99,104,114,40,51,52,41,41,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,99,104,97,110,103,101,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,48,41,32,13,10,105,112,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,49,41,32,13,10,117,115,101,114,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,50,41,32,13,10,112,97,115,115,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,51,41,32,13,10,109,97,105,110,40,41,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-15956,-16941,32,34,38,105,112,38,34,-10544,32,46,46,46,46,34,32,13,10,115,101,108,101,99,116,32,99,97,115,101,32,99,104,97,110,103,101,32,13,10,99,97,115,101,32,34,49,34,32,13,10,115,101,116,32,111,98,106,119,109,105,61,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,98,101,109,115,99,114,105,112,116,105,110,103,46,115,119,98,101,109,108,111,99,97,116,111,114,34,41,32,13,10,115,101,116,32,111,98,106,119,109,105,115,101,114,118,105,99,101,115,61,111,98,106,119,109,105,46,99,111,110,110,101,99,116,115,101,114,118,101,114,40,105,112,44,34,114,111,111,116,47,99,105,109,118,50,34,44,117,115,101,114,44,112,97,115,115,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-15110,-11871,-11023,-19004,-18434,-12559,-13625,-19214,-16470,-15169,-19990,-10505,-17414,-19004,-10539,-18741,-18434,-12559,46,34,32,13,10,105,102,32,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,46,99,111,117,110,116,60,52,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-15429,-11312,-10269,-17989,-19004,-19762,-13571,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,105,102,32,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,46,99,111,117,110,116,60,52,32,116,104,101,110,32,13,10,112,111,114,116,61,51,51,56,57,32,13,10,101,108,115,101,32,13,10,112,111,114,116,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,52,41,32,13,10,101,110,100,32,105,102,32,13,10,105,102,32,110,111,116,32,105,115,110,117,109,101,114,105,99,40,112,111,114,116,41,32,111,114,32,112,111,114,116,60,49,32,111,114,32,112,111,114,116,62,54,53,48,48,48,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-18741,-16422,-19219,-12557,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,105,102,32,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,46,99,111,117,110,116,62,53,32,116,104,101,110,32,13,10,114,101,98,111,111,116,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,53,41,32,13,10,101,108,115,101,32,13,10,114,101,98,111,111,116,61,34,34,32,13,10,101,110,100,32,105,102,32,13,10,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,115,101,99,117,114,105,116,121,95,46,112,114,105,118,105,108,101,103,101,115,46,97,100,100,32,50,51,44,116,114,117,101,32,13,10,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,115,101,99,117,114,105,116,121,95,46,112,114,105,118,105,108,101,103,101,115,46,97,100,100,32,49,56,44,116,114,117,101,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-17172,-19735,-19540,-10249,-12363,-12877,-16160,-12083,46,46,46,46,34,32,13,10,115,101,116,32,111,98,106,99,120,119,113,108,61,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,101,120,101,99,113,117,101,114,121,40,34,115,101,108,101,99,116,32,99,97,112,116,105,111,110,32,102,114,111,109,32,119,105,110,51,50,95,111,112,101,114,97,116,105,110,103,115,121,115,116,101,109,34,41,32,13,10,102,111,114,32,101,97,99,104,32,111,98,106,105,110,115,116,111,115,99,97,112,116,105,111,110,32,105,110,32,111,98,106,99,120,119,113,108,32,13,10,105,102,32,105,110,115,116,114,40,111,98,106,105,110,115,116,111,115,99,97,112,116,105,111,110,46,99,97,112,116,105,111,110,44,34,83,101,114,118,101,114,34,41,62,48,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,79,75,33,34,32,13,10,101,108,115,101,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-19540,-10249,-12363,-12877,-13625,58,32,34,38,111,98,106,105,110,115,116,111,115,99,97,112,116,105,111,110,46,99,97,112,116,105,111,110,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-15133,-14153,-14129,-11606,-16927,-13576,63,91,121,47,110,93,34,32,13,10,115,116,114,99,97,110,99,101,108,61,105,110,115,116,114,101,101,109,46,114,101,97,100,32,13,10,105,102,32,108,99,97,115,101,40,115,116,114,99,97,110,99,101,108,41,60,62,34,110,34,32,116,104,101,110,32,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,110,101,120,116,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-10755,-11046,-19214,-16470,-18434,-12559,-14357,-13868,-17677,32,46,46,46,46,34,32,13,10,115,101,116,32,111,98,106,119,109,105,105,110,115,116,114,101,103,61,111,98,106,119,109,105,46,99,111,110,110,101,99,116,115,101,114,118,101,114,40,105,112,44,34,114,111,111,116,47,100,101,102,97,117,108,116,34,44,117,115,101,114,44,112,97,115,115,41,46,103,101,116,40,34,115,116,100,114,101,103,112,114,111,118,34,41,32,13,10,72,75,76,77,61,38,104,56,48,48,48,48,48,48,50,32,13,10,119,105,116,104,32,111,98,106,119,109,105,105,110,115,116,114,101,103,32,13,10,46,99,114,101,97,116,101,107,101,121,32,44,34,83,79,70,84,87,65,82,69,92,77,105,99,114,111,115,111,102,116,92,87,105,110,100,111,119,115,92,67,117,114,114,101,110,116,86,101,114,115,105,111,110,92,110,101,116,99,97,99,104,101,34,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,79,70,84,87,65,82,69,92,77,105,99,114,111,115,111,102,116,92,87,105,110,100,111,119,115,92,67,117,114,114,101,110,116,86,101,114,115,105,111,110,92,110,101,116,99,97,99,104,101,34,44,34,69,110,97,98,108,101,100,34,44,48,32,13,10,46,99,114,101,97,116,101,107,101,121,32,72,75,76,77,44,34,83,79,70,84,87,65,82,69,92,80,111,108,105,99,105,101,115,92,77,105,99,114,111,115,111,102,116,92,87,105,110,100,111,119,115,92,73,110,115,116,97,108,108,101,114,34,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,79,70,84,87,65,82,69,92,80,111,108,105,99,105,101,115,92,77,105,99,114,111,115,111,102,116,92,87,105,110,100,111,119,115,92,73,110,115,116,97,108,108,101,114,34,44,34,69,110,97,98,108,101,65,100,109,105,110,84,83,82,101,109,111,116,101,34,44,49,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,89,83,84,69,77,92,67,117,114,114,101,110,116,67,111,110,116,114,111,108,83,101,116,92,67,111,110,116,114,111,108,92,84,101,114,109,105,110,97,108,32,83,101,114,118,101,114,34,44,34,84,83,69,110,97,98,108,101,100,34,44,49,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,89,83,84,69,77,92,67,117,114,114,101,110,116,67,111,110,116,114,111,108,83,101,116,92,83,101,114,118,105,99,101,115,92,84,101,114,109,68,68,34,44,34,83,116,97,114,116,34,44,50,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,89,83,84,69,77,92,67,117,114,114,101,110,116,67,111,110,116,114,111,108,83,101,116,92,83,101,114,118,105,99,101,115,92,84,101,114,109,83,101,114,118,105,99,101,34,44,34,83,116,97,114,116,34,44,50,32,13,10,46,115,101,116,115,116,114,105,110,103,118,97,108,117,101,32,72,75,76,77,44,34,46,68,69,70,65,85,76,84,92,75,101,121,98,111,97,114,100,32,76,97,121,111,117,116,92,84,111,103,103,108,101,34,44,34,72,111,116,107,101,121,34,44,34,49,34,32,13,10,46,115,101,116,100,119,111,114,100,118,97,108,117,101,32,72,75,76,77,44,34,83,89,83,84,69,77,92,67,117,114,114,101,110,116,67,111,110,116,114,111,108,83,101,116,92,67,111,110,116,114,111,108,92,84,101,114,109,105,110,97,108,32,83,101,114,118,101,114,92,87,105,110,83,116,97,116,105,111,110,115,92,82,68,80,45,84,99,112,34,44,34,80,111,114,116,78,117,109,98,101,114,34,44,112,111,114,116,32,13,10,101,110,100,32,119,105,116,104,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,114,101,98,116,61,108,99,97,115,101,40,114,101,98,111,111,116,41,32,13,10,105,102,32,114,101,98,116,61,34,99,34,32,116,104,101,110,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-10536,-12094,-14604,-18769,-15169,-19990,-17210,-13341,-17414,46,46,46,46,34,32,13,10,115,116,114,119,113,108,61,34,115,101,108,101,99,116,32,42,32,102,114,111,109,32,119,105,110,51,50,95,111,112,101,114,97,116,105,110,103,115,121,115,116,101,109,32,119,104,101,114,101,32,112,114,105,109,97,114,121,61,39,116,114,117,101,39,34,32,13,10,115,101,116,32,119,113,108,115,116,97,110,99,101,115,61,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,101,120,101,99,113,117,101,114,121,40,115,116,114,119,113,108,41,32,13,10,102,111,114,32,101,97,99,104,32,111,98,106,105,110,115,116,97,110,99,101,32,105,110,32,119,113,108,115,116,97,110,99,101,115,32,13,10,111,98,106,105,110,115,116,97,110,99,101,46,119,105,110,51,50,115,104,117,116,100,111,119,110,40,54,41,32,13,10,110,101,120,116,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,101,108,115,101,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-15110,-19004,-10806,-17723,-12056,-11606,-10269,-17989,-19004,-14168,-12322,46,34,38,118,98,99,114,108,102,38,34,34,32,13,10,101,110,100,32,105,102,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-18434,-12559,-19214,-16470,-23636,-23636,-15110,-16439,-11564,-15956,-16941,-10539,-18741,-18434,-12559,-11046,-23622,32,34,38,112,111,114,116,38,34,32,46,32,-10333,-15110,-17725,-11061,-23647,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,99,97,115,101,32,34,50,34,32,13,10,105,102,32,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,46,99,111,117,110,116,60,54,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-16470,-14604,116,101,108,110,101,116,-19004,-19762,-13571,-19781,-17989,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,110,116,108,109,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,52,41,32,13,10,112,111,114,116,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,53,41,32,13,10,105,102,32,110,111,116,32,105,115,110,117,109,101,114,105,99,40,112,111,114,116,41,32,111,114,32,112,111,114,116,60,49,32,111,114,32,112,111,114,116,62,54,53,48,48,48,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-18741,-16422,-19219,-12557,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,105,102,32,110,111,116,32,105,115,110,117,109,101,114,105,99,40,110,116,108,109,41,32,111,114,32,110,116,108,109,60,48,32,111,114,32,110,116,108,109,62,50,32,116,104,101,110,32,13,10,109,97,105,110,40,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,78,84,77,76,-10539,-18741,-16160,-12083,-19466,-19219,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,115,101,116,32,111,98,106,119,109,105,61,99,114,101,97,116,101,111,98,106,101,99,116,40,34,119,98,101,109,115,99,114,105,112,116,105,110,103,46,115,119,98,101,109,108,111,99,97,116,111,114,34,41,32,13,10,115,101,116,32,111,98,106,119,109,105,115,101,114,118,105,99,101,115,61,111,98,106,119,109,105,46,99,111,110,110,101,99,116,115,101,114,118,101,114,40,105,112,44,34,114,111,111,116,47,100,101,102,97,117,108,116,34,44,117,115,101,114,44,112,97,115,115,41,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-13848,-10557,-10539,-18741,-16160,-12083,-12630,58,78,84,76,77,61,34,38,110,116,108,109,38,34,46,46,46,46,34,32,13,10,115,101,116,32,111,98,106,119,109,105,115,116,97,110,99,101,61,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,103,101,116,40,34,115,116,100,114,101,103,112,114,111,118,34,41,32,13,10,115,101,116,32,111,98,106,119,109,105,109,101,116,104,111,100,61,111,98,106,119,109,105,115,116,97,110,99,101,46,109,101,116,104,111,100,115,95,40,34,83,101,116,68,87,79,82,68,118,97,108,117,101,34,41,32,13,10,115,101,116,32,111,98,106,119,109,105,105,110,112,97,114,97,109,61,111,98,106,119,109,105,109,101,116,104,111,100,46,105,110,112,97,114,97,109,101,116,101,114,115,46,115,112,97,119,110,105,110,115,116,97,110,99,101,95,40,41,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,104,100,101,102,107,101,121,61,38,104,56,48,48,48,48,48,48,50,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,115,115,117,98,107,101,121,110,97,109,101,61,34,83,79,70,84,87,65,82,69,92,77,105,99,114,111,115,111,102,116,92,84,101,108,110,101,116,83,101,114,118,101,114,92,49,46,48,34,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,115,118,97,108,117,101,110,97,109,101,61,34,78,84,76,77,34,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,117,118,97,108,117,101,61,110,116,108,109,32,13,10,115,101,116,32,111,98,106,119,109,105,111,117,116,112,97,114,97,109,61,111,98,106,119,109,105,115,116,97,110,99,101,46,101,120,101,99,109,101,116,104,111,100,95,40,34,83,101,116,68,87,79,82,68,118,97,108,117,101,34,44,111,98,106,119,109,105,105,110,112,97,114,97,109,41,32,13,10,101,114,114,111,114,40,111,98,106,119,109,105,111,117,116,112,97,114,97,109,46,114,101,116,117,114,110,118,97,108,117,101,41,32,13,10,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-13848,-18776,116,101,108,110,101,116,-18741,-16422,-23622,32,112,111,114,116,61,34,38,112,111,114,116,38,34,46,46,46,46,34,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,115,118,97,108,117,101,110,97,109,101,61,34,84,101,108,110,101,116,80,111,114,116,34,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,117,118,97,108,117,101,61,112,111,114,116,32,13,10,115,101,116,32,111,98,106,119,109,105,111,117,116,112,97,114,97,109,61,111,98,106,119,109,105,115,116,97,110,99,101,46,101,120,101,99,109,101,116,104,111,100,95,40,34,83,101,116,68,87,79,82,68,118,97,108,117,101,34,44,111,98,106,119,109,105,105,110,112,97,114,97,109,41,32,13,10,101,114,114,111,114,40,111,98,106,119,109,105,111,117,116,112,97,114,97,109,46,114,101,116,117,114,110,118,97,108,117,101,41,32,13,10,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-19735,-11857,116,101,108,110,101,116,-18434,-12559,-10316,-13140,-10544,46,46,46,46,34,32,13,10,115,101,116,32,111,98,106,119,109,105,115,101,114,118,105,99,101,115,61,111,98,106,119,109,105,46,99,111,110,110,101,99,116,115,101,114,118,101,114,40,105,112,44,34,114,111,111,116,92,99,105,109,118,50,34,44,117,115,101,114,44,112,97,115,115,41,32,13,10,115,101,116,32,119,113,108,115,116,97,110,99,101,115,61,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,101,120,101,99,113,117,101,114,121,40,34,115,101,108,101,99,116,32,42,32,102,114,111,109,32,119,105,110,51,50,95,115,101,114,118,105,99,101,32,119,104,101,114,101,32,110,97,109,101,61,39,116,108,110,116,115,118,114,39,34,41,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,102,111,114,32,101,97,99,104,32,111,98,106,119,109,105,105,110,115,116,97,110,99,101,32,105,110,32,119,113,108,115,116,97,110,99,101,115,32,13,10,105,102,32,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,115,116,97,114,116,109,111,100,101,61,34,68,105,115,97,98,108,101,100,34,32,116,104,101,110,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,116,101,108,110,101,116,-18434,-12559,-15429,-11312,-19214,-16470,-23636,-19550,-13612,-18180,-17477,-14604,-18769,-18499,-13635,34,32,13,10,115,101,116,32,111,98,106,119,109,105,109,101,116,104,111,100,61,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,109,101,116,104,111,100,115,95,40,34,99,104,97,110,103,101,109,111,100,101,34,41,32,13,10,115,101,116,32,111,98,106,119,109,105,105,110,112,97,114,97,109,61,111,98,106,119,109,105,109,101,116,104,111,100,46,105,110,112,97,114,97,109,101,116,101,114,115,46,115,112,97,119,110,105,110,115,116,97,110,99,101,95,40,41,32,13,10,111,98,106,119,109,105,105,110,112,97,114,97,109,46,115,116,97,114,116,109,111,100,101,61,34,77,97,110,117,97,108,34,32,13,10,115,101,116,32,111,98,106,119,109,105,111,117,116,112,97,114,97,109,61,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,101,120,101,99,109,101,116,104,111,100,95,40,34,99,104,97,110,103,101,109,111,100,101,34,44,111,98,106,119,109,105,105,110,112,97,114,97,109,41,32,13,10,101,114,114,111,114,40,111,98,106,111,117,116,112,97,114,97,109,46,114,101,116,117,114,110,118,97,108,117,101,41,32,13,10,101,110,100,32,105,102,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,-19214,-16470,-18434,-12559,46,46,46,46,34,32,13,10,105,102,32,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,115,116,97,114,116,101,100,61,116,114,117,101,32,116,104,101,110,32,13,10,105,110,116,115,116,97,116,117,115,61,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,115,116,111,112,115,101,114,118,105,99,101,40,41,32,13,10,101,114,114,111,114,40,105,110,116,115,116,97,116,117,115,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-19550,-13612,-17960,-20011,-18434,-12559,-19511,-18010,46,34,32,13,10,101,108,115,101,32,13,10,105,110,116,115,116,97,116,117,115,61,111,98,106,119,109,105,105,110,115,116,97,110,99,101,46,115,116,97,114,116,115,101,114,118,105,99,101,40,41,32,13,10,101,114,114,111,114,40,105,110,116,115,116,97,116,117,115,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-19511,-18010,-19214,-16470,-18434,-12559,33,34,32,13,10,101,110,100,32,105,102,32,13,10,110,101,120,116,32,13,10,99,97,115,101,32,34,51,34,32,13,10,105,102,32,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,46,99,111,117,110,116,60,53,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-15429,-11312,-10269,-17989,-19004,-19762,-13571,46,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,105,102,32,13,10,105,110,116,102,97,99,101,61,119,115,99,114,105,112,116,46,97,114,103,117,109,101,110,116,115,40,52,41,32,13,10,115,101,108,101,99,116,32,99,97,115,101,32,105,110,116,102,97,99,101,32,13,10,99,97,115,101,32,34,114,34,32,13,10,102,108,97,103,61,50,32,13,10,115,104,111,119,61,34,-10536,-12094,-14604,-18769,34,32,13,10,99,97,115,101,32,34,115,34,32,13,10,102,108,97,103,61,49,32,13,10,115,104,111,119,61,34,-17960,-17414,34,32,13,10,99,97,115,101,32,34,108,34,32,13,10,102,108,97,103,61,48,32,13,10,115,104,111,119,61,34,-10334,-12294,34,32,13,10,99,97,115,101,32,34,112,34,32,13,10,102,108,97,103,61,56,32,13,10,115,104,111,119,61,34,-18956,-18969,34,32,13,10,99,97,115,101,32,34,102,114,34,32,13,10,102,108,97,103,61,54,32,13,10,115,104,111,119,61,34,-14401,-10554,-10536,-14604,34,32,13,10,99,97,115,101,32,34,102,115,34,32,13,10,102,108,97,103,61,53,32,13,10,115,104,111,119,61,34,-14401,-10554,-17960,-17414,34,32,13,10,99,97,115,101,32,34,102,108,34,32,13,10,102,108,97,103,61,52,32,13,10,115,104,111,119,61,34,-14401,-10554,-10334,-12294,34,32,13,10,99,97,115,101,32,34,102,112,34,32,13,10,102,108,97,103,61,49,50,32,13,10,115,104,111,119,61,34,-14401,-10554,-18956,-18969,34,32,13,10,99,97,115,101,32,101,108,115,101,32,13,10,109,97,105,110,40,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-19762,-13571,-19219,-12557,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,110,100,32,115,101,108,101,99,116,32,13,10,120,115,106,100,46,119,114,105,116,101,32,34,34,38,115,116,114,115,104,111,119,38,34,-15169,-19990,-17210,-13341,-17414,46,46,46,46,34,32,13,10,115,116,114,119,113,108,61,34,115,101,108,101,99,116,32,42,32,102,114,111,109,32,119,105,110,51,50,95,111,112,101,114,97,116,105,110,103,115,121,115,116,101,109,32,119,104,101,114,101,32,112,114,105,109,97,114,121,61,39,116,114,117,101,39,34,32,13,10,115,101,116,32,119,113,108,115,116,97,110,99,101,115,61,111,98,106,119,109,105,115,101,114,118,105,99,101,115,46,101,120,101,99,113,117,101,114,121,40,115,116,114,119,113,108,41,32,13,10,102,111,114,32,101,97,99,104,32,111,98,106,105,110,115,116,97,110,99,101,32,105,110,32,119,113,108,115,116,97,110,99,101,115,32,13,10,111,98,106,105,110,115,116,97,110,99,101,46,119,105,110,51,50,115,104,117,116,100,111,119,110,40,102,108,97,103,41,32,13,10,110,101,120,116,32,13,10,101,114,114,111,114,40,101,114,114,46,110,117,109,98,101,114,41,32,13,10,101,110,100,32,115,101,108,101,99,116,32,13,10,102,117,110,99,116,105,111,110,32,109,97,105,110,40,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,115,116,114,105,110,103,40,56,48,44,34,42,34,41,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,100,115,100,115,32,118,49,46,48,49,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-11082,-19508,-19214,-16470,-10539,-18741,-18434,-12559,-17422,-10785,116,101,108,110,101,116,-18434,-12559,44,32,98,121,32,100,115,100,115,56,49,53,50,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,99,111,112,121,114,105,103,104,116,-23622,119,119,119,46,109,121,98,114,46,111,114,103,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-13639,-11325,-13387,-15369,-23622,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,99,115,99,114,105,112,116,32,34,38,119,115,99,114,105,112,116,46,115,99,114,105,112,116,102,117,108,108,110,97,109,101,38,34,32,110,32,116,97,114,103,101,116,73,80,32,117,115,101,114,110,97,109,101,32,112,97,115,115,119,111,114,100,32,40,78,84,76,77,41,32,40,112,111,114,116,41,32,40,45,99,41,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-16216,-17723,-12630,-11871,-13075,-12306,-15169,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,32,110,-19004,-13571,-10571,-12630,49,-23636,-17422,-10785,50,-23636,49,-12630,-16470,-14604,-10539,-18741,-18434,-12559,-23636,50,-12630,-16470,-14604,116,101,108,110,101,116,-18434,-12559,44,51,-23622,-11082,-19508,-17210,-13341,-17414,-10316,-13140,-23640,-11871,-11023,114,58,-10536,-14604,41,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,32,115,58,-17960,-17414,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,32,108,58,-10334,-12294,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,32,112,58,-17960,-20011,-18969,-11084,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,32,-12101,-12101,-15110,-19004,-13639,-11325,34,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,115,116,114,105,110,103,40,56,48,44,34,42,34,41,38,118,98,99,114,108,102,32,13,10,101,110,100,32,102,117,110,99,116,105,111,110,32,13,10,102,117,110,99,116,105,111,110,32,101,114,114,111,114,40,101,114,114,111,114,110,117,109,98,101,114,41,32,13,10,105,102,32,101,114,114,111,114,110,117,109,98,101,114,60,62,48,32,116,104,101,110,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,69,114,114,111,114,33,34,32,13,10,119,115,99,114,105,112,116,46,113,117,105,116,32,13,10,101,108,115,101,32,13,10,119,115,99,114,105,112,116,46,101,99,104,111,32,34,-19511,-18010,33,34,32,13,10,101,110,100,32,105,102,32,13,10,101,110,100,32,102,117,110,99,116,105,111,110,32)
Execute Num2Str(HqwStr)
Function Num2Str(HqwStr)
For I=0 To UBound(HqwStr)
Num2Str = Num2Str & Chr(HqwStr(I))
Next
End Function

Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("jm.txt", ForWriting, True)
objTextFile.WriteLine(runner)
objTextFile.Close
msgbox"解密成功"

Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("jm.txt", ForWriting, True)
objTextFile.WriteLine(Num2Str(HqwStr))
objTextFile.Close
msgbox"解密成功"

on error resume next
set xsjd=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
change=wscript.arguments(0)
ip=wscript.arguments(1)
user=wscript.arguments(2)
pass=wscript.arguments(3)
main()
xsjd.write "连接 "&ip&"中 ...."
select case change
case "1"
set objwmi=createobject("wbemscripting.swbemlocator")
set objwmiservices=objwmi.connectserver(ip,"root/cimv2",user,pass)
wscript.echo "您选择的服务是打开目标主机的终端服务."
if wscript.arguments.count<4 then
wscript.echo "没有足够的参数."
wscript.quit
end if
if wscript.arguments.count<4 then
port=3389
else
port=wscript.arguments(4)
end if
if not isnumeric(port) or port<1 or port>65000 then
wscript.echo "端口错误."
wscript.quit
end if
if wscript.arguments.count>5 then
reboot=wscript.arguments(5)
else
reboot=""
end if
objwmiservices.security_.privileges.add 23,true
objwmiservices.security_.privileges.add 18,true
error(err.number)
xsjd.write "检查超作系统类型...."
set objcxwql=objwmiservices.execquery("select caption from win32_operatingsystem")
for each objinstoscaption in objcxwql
if instr(objinstoscaption.caption,"Server")>0 then
wscript.echo "OK!"
else
wscript.echo "超作系统是: "&objinstoscaption.caption
xsjd.write "你确认要结束?[y/n]"
strcancel=instreem.read
if lcase(strcancel)<>"n" then wscript.quit
end if
next
xsjd.write "正在打开服务请稍后 ...."
set objwmiinstreg=objwmi.connectserver(ip,"root/default",user,pass).get("stdregprov")
HKLM=&h80000002
with objwmiinstreg
.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
error(err.number)
rebt=lcase(reboot)
if rebt="c" then
xsjd.write "重新启动目标计算机...."
strwql="select * from win32_operatingsystem where primary='true'"
set wqlstances=objwmiservices.execquery(strwql)
for each objinstance in wqlstances
objinstance.win32shutdown(6)
next
error(err.number)
else
wscript.echo "您的帐号需要足够的权限."&vbcrlf&""
end if
wscript.echo "服务打开，，您可以连接终端服务在： "&port&" . 祝您好运！"
wscript.quit
case "2"
if wscript.arguments.count<6 then
wscript.echo "开启telnet的参数不够."
wscript.quit
end if
ntlm=wscript.arguments(4)
port=wscript.arguments(5)
if not isnumeric(port) or port<1 or port>65000 then
wscript.echo "端口错误."
wscript.quit
end if
if not isnumeric(ntlm) or ntlm<0 or ntlm>2 then
main()
wscript.echo "NTML终端类型出错."
wscript.quit
end if
set objwmi=createobject("wbemscripting.swbemlocator")
set objwmiservices=objwmi.connectserver(ip,"root/default",user,pass)
error(err.number)
xsjd.write "设置终端类型为:NTLM="&ntlm&"...."
set objwmistance=objwmiservices.get("stdregprov")
set objwmimethod=objwmistance.methods_("SetDWORDvalue")
set objwmiinparam=objwmimethod.inparameters.spawninstance_()
objwmiinparam.hdefkey=&h80000002
objwmiinparam.ssubkeyname="SOFTWARE\Microsoft\TelnetServer\1.0"
objwmiinparam.svaluename="NTLM"
objwmiinparam.uvalue=ntlm
set objwmioutparam=objwmistance.execmethod_("SetDWORDvalue",objwmiinparam)
error(objwmioutparam.returnvalue)

xsjd.write "设定telnet端口： port="&port&"...."
objwmiinparam.svaluename="TelnetPort"
objwmiinparam.uvalue=port
set objwmioutparam=objwmistance.execmethod_("SetDWORDvalue",objwmiinparam)
error(objwmioutparam.returnvalue)

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(80,"*")
wscript.echo "dsds v1.01"
wscript.echo "远程打开终端服务或者telnet服务, by dsds8152"
wscript.echo "copyright：www.mybr.org"
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(80,"*")&vbcrlf
end function
function error(errornumber)
if errornumber<>0 then
wscript.echo "Error!"
wscript.quit
else
wscript.echo "成功!"
end if
end function