将文本文件中的行放在Shell CMD中。 VB.net

Question

我假设有一种方法可以使这个子？我假设Do Until Loop是要走的路，我只是不知道如何构建一个。

Sub Main() 
    'Declare Command 
    Dim sCommand As String 
    'Declare File where Users are Located 
    Dim strFile As String = "C:\TestDUsers.txt" 
    'Running from Admin Comptuer so permissions are fine 
    'Want to replace the ******** section with each username from text file 
    sCommand = "pushd \\*********\C$ && whoami.exe >> C:\File.txt" 

    'Load the File and perform the loop???? 

    Using sr As New StreamReader(File.Open(strFile, FileMode.Open)) 

    End Using 

    Console.WriteLine() 
    Console.Clear() 

    End Sub 

Answer 1

事情是这样的，如果我明白你的问题正确：

Sub Main() 
    HandleJavaInfo() 
End Sub 

Sub HandleJavaInfo() 
    Dim strFile As String = "C:\Users\pseal2\Desktop\TestDUsers.txt" 
    Dim strCommand = "pushd \\*********\C$ && whoami.exe >> C:\Users\pseal2\Desktop\Javainfo." 

    Dim strLines() As String = IO.File.ReadAllLines(strFile) 
    For Each strUserName As String In strLines 

     'execute the command as shell or process 

     'Example using Shell (run the command whitout showing the window for the user) 
     Dim ThisCommand As String = strCommand.Replace("*********", strUserName) 
     Shell(ThisCommand, AppWinStyle.Hide) 

     'Example using process 
     Process.Start("pushd", "\\" & strUserName & "\C$ && whoami.exe >> C:\Users\pseal2\Desktop\Javainfo.") 

    Next 
End Sub 

现在，你只告诉我们你想要做什么，而不是你想要达到的目标。如果你确切地告诉我们目标是什么，那么它可能是一些其他的.Net方式来做你想做的事情，而不是脱壳成DOS命令，你可以得到更准确的答案。