ExcelVBA 操作putty

Private Sub login(ip As String, userName As String, password As String)

    Dim TaskID As Long '设置进程id
    
    pc1 = "G:\服务器/putty.exe -ssh " & userName & "@" & ip & " -pw " & password
    
    TaskID = Shell(pc1, 1)
    
End Sub