vb6 用inte上传文件发生无法连接至远程服务器错误，代码如下还请大师指点谢谢诶
Private Sub Command1_Click()
CommonDialog1.ShowOpen

Inet1.URL = "192.168.0.109"
Inet1.Protocol = icFTP
Inet1.UserName = "Administrator"
Inet1.Password = "luting99"
Inet1.Execute , "PUT " & CommonDialog1.FileName & "1.txt"
Do While Inet1.StillExecuting
DoEvents
Loop
MsgBox "上传完毕!", vbInformation, "提示"
End Sub

不行啊。。。版主有没有实际的例子，求指导