[ГрМакс]

Всем спасибо вопрос решился.
Кому интересно вот кусок кода:

Код:

Option Explicit
Dim ObjExec,WshShell,s,IsBreak,ArrS,ColStr,ColFiles,i
Set WshShell = WScript.CreateObject("WScript.Shell")
Set ObjExec=WshShell.Exec("dsquery computer -inactive 24")
s=""
IsBreak=False
Do While True 
   If (Not ObjExec.StdOut.AtEndOfStream) Then
    s=s+ObjExec.StdOut.ReadAll
  End If
  If IsBreak Then
    Exit Do  
  End If
  If ObjExec.Status=1 Then
    IsBreak=True
  Else
    WScript.Sleep 100
  End If
Loop
ArrS=Split(s,vbCrLf) 
ColFiles=UBound(ArrS) 
For i=0 To ColFiles-1
s = ArrS(i)
msgbox DosToWin(S)
Next
Function DosToWin(S)
Dim i,k,ss
  ss=""
  For i=1 To Len(S) 
    k = Asc(Mid(s,i,1))  
    If (128 <= k) And (k <= 175) Then
      k=k+64
    ElseIf (224 <= k) And (k <= 239) Then
      k=k+16
    ElseIf k = 240 Then
      k=168
    ElseIf k = 241 Then
      k=184
    End If
    ss=ss+Chr(k) 
  Next
  DosToWin=ss  
End Function