VBS Скрипт открытия сетевой папки Windows удаленной машины

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "\\shsinet\E$\DISTRIB"
WScript.Sleep 4000
WshShell.AppActivate "Подключение к SANCHO-GK2.shsproject.com"
WScript.Sleep 500
WshShell.SendKeys "SHSPROJECT\shs"
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "5631855033"
WshShell.SendKeys "{ENTER}"