Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshFso = WScript.CreateObject("Scripting.FileSystemObject")

EDGE_EXE = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%\Microsoft\Edge\Application\msedge.exe")
SHARE_DIR = WshShell.ExpandEnvironmentStrings("%HOME%\opt\share\")
EDGE_PROFILE_DIR = SHARE_DIR + "edge\profile\"

If Not WshFso.FolderExists(EDGE_PROFILE_DIR) Then
   WshShell.Run("%ComSpec% /c md " + EDGE_PROFILE_DIR)
End If

WshShell.Run("""" + EDGE_EXE + """" + " --user-data-dir=" + EDGE_PROFILE_DIR + " --profile-directory=""Profile 1""")