DropBox Freezes Out Explorer

Option Explicit
Const DROPBOX_FOLDER = "C:\Program Files\Dropbox\"
Const DROPBOX_EXE = "Dropbox.exe"

KillProcess(DROPBOX_EXE)
StartApplication(DROPBOX_FOLDER & DROPBOX_EXE)

Sub KillProcess(p_strProcess)
    Dim objService, objProcess
    Dim colProcesses
    Dim strProcessKill

    Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

    Set colProcesses = objService.ExecQuery("Select * from Win32_Process Where Name = '" & p_strProcess & "'")
    For Each objProcess in colProcesses
        objProcess.Terminate()
    Next
End Sub

Sub StartApplication(p_strAppPath)
    Dim objShell
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run("""" & p_strAppPath & """")
End Sub

Buy me a coffee

Related posts that you may also like to read

• 

  Working with Dropbox Files from Drafts on iOS

  06 Jul 2016

  Like many who blog I keep a list of topic ideas which I plan to blog about at some point. When I get some time to write I pick a topic that I like the look of and get some words thrashed out. I was surprised when I saw something in last week’s MacStories members’ newsletter that directly related to something rather niche I had on my list.

  As I expect you’ve already guessed, this post is about that particular topic. It’s about getting text to and from the iOS app Drafts from Dropbox.

  Read More
• 

  VBScript: Flip Line Endings

  28 Jun 2015

  Recently I was working for a client who had particularly strict controls around access and tools that I could use. Whilst the bulk of the work I was carrying out on their Linux box could be managed using vi, I found it a little limiting when analysing some of the log files the work was producing. On the Windows machine I was using to access the files I only had Windows notepad and this really doesn’t handle Linux file endings well. As a result I put together a quick VBScript to help with this.

  Read More
• 

  A Self Installing VBScript

  28 Feb 2014

  Over the years I’ve been doing technical support I’ve had quite a few useful VBS scripts that I’d copy over to a user’s machine. Then if it necessary, they could be run again at a later date (by remote control or referring the user to it’s location and get them to run it). However I quickly tired of manually doing this and dealing with the instances where I’d accidentally copied the script to the user’s desktop instead of the location I’d really wanted. As a result I created some extra lines to add into these scripts that would install the script to the desired location and then run it from there. This meant I could run it from a flash or network drive and it would automatically go to the right place - even updating older scripts.

  Read More
• 

  Random Files Generator

  26 Aug 2013

  Whilst doing some house keeping on some old VBScript files the other day I came across one for creating test files. I’ve blogged previously about creating test files using my MTF utility and whilst it or fsutil can be very useful, this script filled a particular niche. It was created as part of a test suite of scripts it creates multiple files of a specific size filled with random printable content.

  Read More