' open_index.vbs
Set fso = CreateObject("Scripting.FileSystemObject")
scriptPath = WScript.ScriptFullName
scriptFolder = fso.GetParentFolderName(scriptPath)
htmlPath = scriptFolder & "\html\index.html"
CreateObject("WScript.Shell").Run """" & htmlPath & """", 1, False