偷懒的方法:Private Sub Command1_Click()Shell "cmd.exe /c" & "net use \\192.168.1.1\Mark /delete"Shell "cmd.exe /c" & "net use \\192.168.1.1\Mark /user:username password"End Sub