PsExec를 Shell.Exec()을 사용하여 MS Access에서 실행할 때 결과를 성공적으로 가져올 수 있습니까?

Question

쉘의 명령에 대해 PSEXEC을 사용하는 몇몇 서버의 디스크 상태를 가져 와서 테이블에 추가하려고합니다. 그러나 나는 쉘 결과에서 캡션 만 얻는다. 여기

내 코드입니다 :

Option Compare Database 
Option Explicit 

Const svrUname = "username" 
Const svrPass = "password" 
Const ForReading = 1 

Sub First() 
    Dim svr(2, 1) As String 

    svr(0, 0) = "" 
    svr(0, 1) = "server name" 
    svr(1, 0) = "PSEXEC \\(IPADD) -u " & svrUname & " -p " & svrPass " 
    svr(1, 1) = "" 

    Dim i As Integer 
    For i = 0 To 1 
     Call ShellRun(svr(i, 0) & "WMIC logicaldisk get size, caption, " _ 
     & "freespace", svr(i, 1)) 

    Next 

End Sub 
Public Sub ShellRun(sCmd As String, svrName As String) 
     ' Run a shell command, returning the output as a string 
     Dim oShell As Object 
     Dim oExec As Object 
     Dim oOutput As Object 
     Dim a As String 

     ' Run command 
     Set oShell = CreateObject("Wscript.Shell") 
     Set oExec = oShell.Exec(sCmd) 
     Set oOutput = oExec.StdOut 

     ' handle the results as they are written to and read from the StdOut object 
     Dim sInfo As String 
     Dim sLine As String 

     While Not oOutput.AtEndofStream 
      sLine = oOutput.Readline 
     Call EXTRACTINFO(sLine, svrName) 
     a = a & sLine 
SKIP: 
    Wend 
    MsgBox a 
    oExec.Terminate 

End Sub 

그 결과는 같다이

MS 액세스에서 실행할 때이 결과를 얻을 기대했다 것 같다 무엇

문제?

Answer 1

나는이 코드를 실행하면 :

Sub First() 

    Const svrUname = "username" 
    Const svrPass = "password" 
    Const ForReading = 1 

    Dim svr(2, 1) As String 

    svr(0, 0) = "" 
    svr(0, 1) = "server name" 
    svr(1, 0) = "PSEXEC \\(IPADD) -u " & svrUname & " -p " & svrPass 
    svr(1, 1) = "" 

    Dim i As Integer 
    For i = 0 To 0 
     Call ShellRun(svr(i, 0) & "WMIC logicaldisk get size, caption, " _ 
     & "freespace", svr(i, 1)) 
    Next 

End Sub 

Public Sub ShellRun(sCmd As String, svrName As String) 

    ' Run a shell command, returning the output as a string 
    Dim oShell As Object 
    Dim oExec As Object 
    Dim oOutput As Object 
    Dim a As String 

    ' Run command 
    Set oShell = CreateObject("Wscript.Shell") 
    Set oExec = oShell.Exec(sCmd) 
    Set oOutput = oExec.StdOut 

    ' handle the results as they are written to and read from the StdOut object 
    Dim sInfo As String 
    Dim sLine As String 

    While Not oOutput.AtEndofStream 
     sLine = oOutput.Readline 
     'Call EXTRACTINFO(sLine, svrName) 
     a = a & sLine 
SKIP: 
    Wend 
    MsgBox a 
    oExec.Terminate 

End Sub 

가 반환합니다 :

그래서 다시 한 번 확인하여 EXTRACTINFO 기능을.

명령 파일 :

C:\Folder\PsExec \\server -u user -p password WMIC logicaldisk get size, caption, freespace > C:\SomeFolder\DiskSize.txt 

그런 다음이 파일을 읽습니다.