scripting - Monitor Drive. Using VB Script -


i want monitor drive file changes, using vbscript. have below code. works fine instancecreationevent , instancedeletionevent. instancemodificationevent not happening. googling got know need use cim_datafile instead of cim_directorycontainsfile monitor instancemodificationevent. not sure how modify code. can help.

fyi: 1 script should monitor folders , subfolders in drive.

ps: suggestion improve code , performance or other ideas welcome.

my code:

dim arrfolders  dim strcomputer  dim objwmiservice  dim strfolder  dim strcommand  dim  dim strquery   strchangefile = "monitorfolder_log.txt" strmailidfile = "monitorfolder_mailids.txt"  'check if log file exists, if not ceate new file , exit script. restart script again. set ofso = createobject("scripting.filesystemobject")      if not ofso.fileexists(strchangefile)      'wscript.echo "change log file not found. creating new file..."     set otxtfile = ofso.createtextfile(strchangefile)       wscript.echo strchangefile & " file created." & vbcrlf & "please restart script." & vbcrlf     wscript.quit end if  'prompt drive should monitored. if not valid drive, exit script. strdrive = inputbox("enter drive monitor: " & vbcrlf & "e.g.: input c monitor c:\ drive.", "monitor folder - oracle", "e") if strdrive = ""     wscript.echo "not valid drive. terminating script."     wscript.quit end if  'append ":" drive name. strdrive = strdrive & ":"  'read mail ids. set objfsomailid = createobject("scripting.filesystemobject") set otsmailid = objfsomailid.opentextfile(strmailidfile) strmailidslist = otsmailid.readall otsmailid.close 'wscript.echo strmailidslist  'array store existing folder paths should monitored. arrfolders = array() = 0  set fso = createobject("scripting.filesystemobject") showsubfolders fso.getfolder(strdrive)  sub showsubfolders(folder)     each subfolder in folder.subfolders     = + 1         folderpath = "" & subfolder.path & ""     folderpath = replace(folderpath ,"\","\\\\")     redim preserve arrfolders(i)     arrfolders(i) = folderpath     'wscript.echo & " " & arrfolders(i)         showsubfolders subfolder     next end sub   'set first path drive. arrfolders(0) = strdrive & "\\\\"  'use wmi query file changes. strcomputer = "."  set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2")  'loop throught array of folders setting monitor each  = 0  each strfolder in arrfolders     'create event sink     'wscript.echo "setup folder: " & strfolder & vblf    strcommand = "set eventsink" & & " = wscript.createobject" & "(""wbemscripting.swbemsink"", ""sink" & & "_"")"     executeglobal strcommand    'setup notification     strquery = "select * " _            & "from __instanceoperationevent " _            & "within 1 " _            & "where targetinstance isa 'cim_directorycontainsfile'" _            & "  , targetinstance.groupcomponent = " & "'win32_directory.name=""" & strfolder & """'"    strcommand = "objwmiservice.execnotificationqueryasync eventsink" & & ", strquery"    executeglobal strcommand     'create onobjectready sub     strcommand = "sub sink" & & "_onobjectready(objobject, " &  "objasynccontext)" & vblf _              & "  'wscript.echo objobject.targetinstance.partcomponent" & vblf _              & "  sendnotification(objobject)" & vblf _              & "end sub"    'wscript.echo strcommand     executeglobal strcommand     = + 1  next   'wait events. wscript.echo "waiting events..."  = 0  while (true)     wscript.sleep(1000)  wend   function sendnotification(objobject)      streventtype = objobject.path_.class     strpartcomp = split(objobject.targetinstance.partcomponent, "=")     strfilename = replace(strpartcomp(1), "\\", "\")      wscript.echo streventtype     wscript.echo strfilename      'some more code send mail , logs...  end function

monitoring entire filesystem file creation not feasible. eat system resources , might severly affect system operation. ever monitor selected folders. following should work:

const interval = 1  set monitor = createmonitor("c:\foo")   set evt = monitor.nextevent()   select case evt.path_.class     case "__instancecreationevent"     : sendnotification evt.targetinstance     case "__instancemodificationevent" : ...     case "__instancedeletionevent"     : ...   end select loop  function createmonitor(path)   set wmi = getobject("winmgmts://./root/cimv2")   set fso = createobject("scripting.filesystemobject")    path = split(fso.getabsolutepathname(path), ":")   drv  = path(0) & ":"   dir  = replace(path(1), "\", "\\")   if right(dir, 2) <> "\\" dir = dir & "\\"    query = "select * __instanceoperationevent" & _           " within " & interval & _           " targetinstance isa 'cim_datafile'" & _           " , targetinstance.drive='" & drv & "'" & _           " , targetinstance.path='" & dir & "'"   set createmonitor = wmi.execnotificationquery(query) end function  sub sendnotification(tgtinst)   'send notification end sub

you should run monitors different folders separate processes, because nextevent() blocking operation.


Comments

Post a Comment

Popular posts from this blog

c# - Send Image in Json : 400 Bad request -

from android trying send image class of data, iis webservice. (c#) the problem 400 bad request . the image being encoded base64 . , placed json rest of class elements. my guess base64 not valid inside json. server not understand it. if set string "" , post accepted fine. so question is, how make base64 valid within json array? ( tried url.encode no success). or how should send image android webservice? gson gson = new gson(); string json = gson.tojson(record); // record has param { string base64photo } how big image? i'm pretty sure surpassing iis json size limit (default 4 mb). check http://geekswithblogs.net/frankw/archive/2008/08/05/how-to-configure-maxjsonlength-in-asp.net-ajax-applications.aspx or http://www.webtrenches.com/post.cfm/iis7-file-upload-size-limits good luck!
Read more

javascript - addthis share facebook and google+ url -

i attempting use addthis create simple url shares whichever current page user on when click share button. of right now, have twitter working. when user clicks, able see url populated in tweet box. when user clicks facebook or google+, url doesn't seem show in share box. <ul class="addthis_toolbox addthis_default_style "> <li><a class="addthis_button_facebook"><img src="/img/facebook-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_twitter"><img src="/img/twitter-social.png" width="20" height="20" border="0" alt="share" /></a></li> <li><a class="addthis_button_google_plusone_share"><img src="/img/google-social.png" width="20" height="20" border="0" alt="s...
Read more

ios - Show keyboard with UITextField in the input accessory view -

i have buttona , when buttona clicked, want keyboard show uitextfield in inputaccessoryview. there way have keyboard show manually , set inputaccessoryview without having uitextfield initially? thanks. you cannot summon keyboard without object can become first responder. there 2 ways work around: subclass uiview , implement uikeyinput protocol in it. example: in .h file: @interface inputobject : uiview<uikeyinput> @property (nonatomic, copy) nsstring *text; @property (nonatomic, strong) uiview *inputaccessoryview; // must override inputaccessoryview , since it's readonly default @end in .m file, implement protocol: - (bool)canbecomefirstresponder { return yes; } - (bool)hastext { return [self.text length]; } - (void)inserttext:(nsstring *)text { nsstring *selftext = self.text ? self.text : @""; self.text = [selftext stringbyappendingstring:text]; [[nsnotificationcenter defaultcenter] postnotificationname:kinputobjec...
Read more