Top / JUNK / リモートシェル

リモートシェルを使って指定したサーバーで dir を実行し、結果をもらうサンプル

Sub Main()
    Using p As New Process()
        With p.StartInfo
            .FileName = "winrs"
            .Arguments = "-r:(サーバー名) dir c:\windows\system32"
            .RedirectStandardOutput = True
            .UseShellExecute = False
        End With
        p.Start()
        Dim tsk As Task(Of String) = p.StandardOutput.ReadToEndAsync()
        p.WaitForExit()
        tsk.Wait()
        Console.WriteLine(tsk.Result)
    End Using
    Console.ReadKey()
End Sub



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   最終更新のRSS
Last-modified: 2020-03-02 (月) 12:50:15 (34d)