How to hide Windows Script Host window?
<p>I started using today a program named "oblytile", which gives you the ability to add custom tiles to Metro UI in Windows 8/8.1. The program works fine, but I have one big issue when I open created tile to folder, program, file etc. for a short time a small black window (like CMD) pops up, like here:</p>

<p><a href="https://i.imgur.com/ZDYBxBc.png" rel="nofollow noreferrer"><img src="https://i.imgur.com/ZDYBxBc.png" alt="http://i.imgur.com/ZDYBxBc.png"></a></p>

<p>and after the window disappears the program I wanted opens. I have watched some YouTube videos and other people didn't have something like this. I checked folder in which one program stores data about tiles and I found out that evry time I click on custom tile in Metro UI a VBScript is started.</p>

<p>Sample tile VBScript:</p>

<pre><code>On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
strApp = "C:\Users\bluea_000\OneDrive"

arrPath = Split(strApp, "\")

For i = 0 to Ubound(arrPath) - 1
    strAppPath = strAppPath &amp; arrPath(i) &amp; "\"
Next 

objShell.CurrentDirectory = strAppPath
objShell.Run """C:\Users\bluea_000\OneDrive""" &amp; ""
If Err.Number &lt;&gt; 0 Then
    If InStr(1, strApp, "/") &gt; 0 then
    Else
        If InStr(1, strApp, "www.") &gt; 0 then
        Else
            If InStr(1, strApp, "shell:") &gt; 0 then
            Else
                If objFSO.folderExists(strApp) Then
                Else
                    If objFSO.FileExists(strApp) Then
                    Else
                        MsgBox strApp &amp; " not found", 16, "OblyTile"
                    End If
                End If
            End If
        End If
    End If
    Err.Clear
End If
</code></pre>

<p>Can anyone tell me how to hide this black window or fix it?</p>

<p>I asked on forum where the program was published, but probably the project has been abandoned and noone will answer me.</p>