''' <summary>
'''
''' </summary>
''' <param name="Server"></param>
''' <param name="UserName"></param>
''' <param name="Password"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ConnectToServer(ByVal Server As String, ByVal UserName As String, ByVal Password As String) As String
Dim _process As System.Diagnostics.Process = New System.Diagnostics.Process
_process.StartInfo.FileName = "cmd.exe"
_process.StartInfo.UseShellExecute = False
_process.StartInfo.RedirectStandardInput = True
_process.StartInfo.RedirectStandardOutput = True
_process.StartInfo.CreateNoWindow = True
_process.Start()
'NET USE \\192.168.0.1 PASSWORD /USER:UserName
_process.StandardInput.WriteLine("net use " & Server & " " & Password & " /user:" & UserName)
_process.StandardInput.WriteLine("exit")
_process.WaitForExit()
Dim result As String = _process.StandardOutput.ReadToEnd
_process.Close()
ConnectToServer = result
End Function
使用Net Use命令打开连接
最新推荐文章于 2023-06-12 18:24:53 发布