$login=InputBox("Ввод учётных данных", 'Введите логин', 'user_name')
$pass=InputBox("Ввод учётных данных", 'Введите пароль', 'my_pass')
run(@ComSpec & " /k net use \\server " & $pass & " /user:" & $login)
; run(@ComSpec & " /c net use \\server " & $pass & " /user:" & $login)