Const strcmd = "cmd /c net use \\xxx.yyy. de\ipc$ passwort /user:xyz_leserecht"
 
Set objshell = CreateObject("wscript.shell")
Set objexec = objshell.Exec(strcmd)
Do While objExec.StdOut.AtEndOfStream <> True
    strResults= objExec.StdOut.ReadAll
Loop
    WScript.Echo strResults