Dim js As Shell
Dim sRet As String
Dim jres As ShellSyncResult
js.Initialize("js", "runas", Array As String ("/noprofile", "/user:Administrator", "cmd", "/c", File.Combine(File.DirData, "Update/Updater.bat")))
jres = js.RunSynchronous(5000) '<- maybe you will have to change this to a greater value for waiting
sRet = jres.StdErr