Liomblr

vim.vbs, keepass.vbs

root = Left(WScript.ScriptFullName, 3)

Set sh = CreateObject("WScript.Shell")
sh.Environment("Process")("HOME") = root & "home"

cmd = root & "apps\Vim\gvim.exe"
For Each arg In WScript.Arguments
    cmd = cmd & " """ & arg & """"
Next
sh.Run cmd

root = Left(WScript.ScriptFullName, 3)

cmd = root & "apps\KeePass\KeePass.exe " & root & "home\KeePass.kdbx"
If WScript.Arguments.Count > 0 Then
    cmd = cmd & " -preselect:""" & WScript.Arguments(0) & """"
End If
CreateObject("WScript.Shell").Run cmd