通过VBA打开并保存密码保护的networking共享计算机上的文件

我正在使用下面的代码打开并保存位置10.42.XX文件我如何编写代码来提供用户名和密码来访问这台IP机器?

objPPTX.Presentations.Open "\\10.42.xx\Reports_New\PRESTIGE LEVEL\Pending IMs\Pending IMs Report Template_Dont ActiveWorkbook.ExportAsFixedFormat xlTypePDF, "\\10.42.XX\Reports_New\PRESTIGE LEVEL\Pending IMs\Pending IMs.pdf" 

先映射位置/驱动器,然后像这样传递用户名和密码variables

 Dim objNetwork as Object, persistent as Boolean persistent = false set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive "drivelettergoeshere:", ""\\10.42.xx\............", persistent, "username", "password"