Kill all instances of a process except oldest (1st) instance (vbscript) -


i'm creating code aid in bigger process i've developed. piece me automate it. assuming have opened @ least 2 ie windows, first section below finds time 1st opened , set variable "strreturn". time colons removed. removed colons easier number comparison. since seems loop through these in order, have exit statement since first care about.

then, second statement, built kill instances of process, attempted modify kill 1 matches time in variable. however, nothing... i'm sure i'm implementing incorrectly. i've bolded parts i've modified original..well, attempted bold - you'll see asterisks...haha. clear i'm going wrong? tia

'============================================================= 'finds time first instance of iexplore process started  strcomputer = "." set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2")  set colprocesslist = objwmiservice.execquery _     ("select * win32_process name = 'iexplore.exe'")  each objprocess in colprocesslist     dtmstarttime = objprocess.creationdate     strreturn = replace(split(wmidatestringtodate(dtmstarttime), " ")(1), ":", "")  wscript.echo strreturn exit next  '............................................................. function wmidatestringtodate(dtmstart)     wmidatestringtodate = cdate(mid(dtmstart, 5, 2) & "/" & _         mid(dtmstart, 7, 2) & "/" & left(dtmstart, 4) _             & " " & mid (dtmstart, 9, 2) & ":" & _                 mid(dtmstart, 11, 2) & ":" & mid(dtmstart, _                     13, 2)) end function '=============================================================   '(supposed to) kill every instance of iexplore.exe except instance matching start time in strreturn variable (1st instance).  killproc "iexplore.exe"   sub killproc( myprocess )       dim blnrunning, colprocesses, objprocess       blnrunning = false  set colprocesses = getobject("winmgmts:{impersonationlevel=impersonate}").execquery( "select * win32_process", , 48 )           each objprocess in colprocesses           if lcase( myprocess ) = lcase( objprocess.name ) **and strreturn < replace(split(wmidatestringtodate(dtmstarttime), " ")(1), ":", "")** 'confirm process running          blnrunning = true 'get exact case actual process name                      myprocess  = objprocess.name 'kill process                       objprocess.terminate()                  end if          next          if blnrunning                   until not blnrunning                      set colprocesses = getobject("winmgmts:{impersonationlevel=impersonate}").execquery( "select * win32_process name = '"& myprocess & "'" )                      wscript.sleep 1000 'wait 1 second                       if colprocesses.count = **1** 'exit loop (changed 0 1)                         blnrunning = false                       end if                   loop             end if  end sub

i got work. overthinking it, tend do...

'============================================================= 'finds time first instance of iexplore process started  strcomputer = "." set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2")  set colprocesslist = objwmiservice.execquery _     ("select * win32_process name = 'iexplore.exe'")  each objprocess in colprocesslist     dtmstarttime = objprocess.creationdate     strreturn = replace(split(wmidatestringtodate(dtmstarttime), " ")(1), ":", "")  exit next  each objprocess in colprocesslist     dtmstarttime = objprocess.creationdate     strreturn1 = replace(split(wmidatestringtodate(dtmstarttime), " ")(1), ":", "")  if strreturn <> strreturn1 objprocess.terminate() end if next  '............................................................. function wmidatestringtodate(dtmstart)     wmidatestringtodate = cdate(mid(dtmstart, 5, 2) & "/" & _         mid(dtmstart, 7, 2) & "/" & left(dtmstart, 4) _             & " " & mid (dtmstart, 9, 2) & ":" & _                 mid(dtmstart, 11, 2) & ":" & mid(dtmstart, _                     13, 2)) end function '=============================================================

Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

java - No use of nillable="0" in SOAP Webservice -

i have received xsd 3rd party supplier generated java based system; used create soap endpoint receive data transfers. xsd not make use of nillable attribute defined within w3c/xsd namespace, example: <xs:complextype name="customer"> <xs:sequence> <xs:element minoccurs="1" maxoccurs="1" name="id" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="titleid" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="firstname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="familyname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="previousname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" nam...
Read more

ubuntu - Laravel 5.2 quickstart guide gives Not Found Error -

edit: think problem due not setting apache properly, these 2 links helped me. solution: http://laravel.io/forum/06-11-2014-not-found-but-route-exists https://www.digitalocean.com/community/tutorials/how-to-set-up-apache-virtual-hosts-on-ubuntu-14-04-lts end edit i'm following laravel 5.2 quickstart guide. https://laravel.com/docs/5.2/quickstart i'm running ubuntu 14.04.2 the website runs initially, when click on add task button run 404 not found error. as per guide run following commands setup complete quickstart project. git clone https://github.com/laravel/quickstart-basic quickstart cd quickstart composer install php artisan migrate additionally run following commands because i'm on ubuntu server: sudo chown -r www-data.www-data quickstart sudo chmod -r 755 quickstart sudo chmod 777 quickstart/storage the routes.php file looks like: <?php use app\task; use illuminate\http\request; route::group(['middleware' => ['web']]...
Read more