Проверьте подключение к общей сетевой папке, используя имя пользователя и пароль

Question

В моем приложении проверьте подключение к сетевой папке, используя следующий код

Dim myIP As IPHostEntry = Dns.GetHostEntry(txtNetworkDrive.Text.Trim.Split("\", options:=StringSplitOptions.RemoveEmptyEntries)(0))
            Dim IPAddress As String = myIP.AddressList.GetValue(0).ToString


            Dim xStr As New System.Security.SecureString
            For Each c As Char In txtNetworkPassword.Text.Trim
                xStr.AppendChar(c)
            Next

            Dim psi As New ProcessStartInfo()

            psi.UserName = txtNetworkusername.text
            psi.Password = xStr
            psi.Domain = IPAddress 
            psi.FileName = txtNetworkDrive.Text
            psi.UseShellExecute = False
            Process.Start(psi)

Вход как

Network drive = "\\Sys4\shareddocs"

Network password= "sys4"
Network Username="user"
IPaddress="198.168.0.24"

Но все время он показывает ошибку входа в систему, плохое имя пользователя и пароль. что я делаю не так? Как получить решения?