windows8.1でQUERY USERの結果を取得したい

Question

前提・実現したいこと

windows8.1において
ユーザ、パスワードを指定せずにQUERY USERの結果をプログラムで取得したいです。
取得する方法があれば教えてください。
もしくは、プログラムでユーザ、パスワードを実行時に取得して指定できるなら
それでも構わないですが、さすがに出来ないと思うので…

該当のソースコード

VisualBasic.Netのコンソールアプリケーションのsub mainにおいて以下のコード

        Dim p As New System.Diagnostics.Process
        p.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
        p.StartInfo.UseShellExecute = False
        p.StartInfo.RedirectStandardOutput = True
        p.StartInfo.RedirectStandardInput = False
        p.StartInfo.CreateNoWindow = True
        p.StartInfo.Arguments = "/C QUERY USER"

        p.Start()

        Dim results As String = p.StandardOutput.ReadToEnd()

        p.WaitForExit()
        p.Close()

このresultsの内容がブランクになる
デバッグ実行時に
System.Environment.GetEnvironmentVariable("ComSpec")の結果として
"C:\WINDOWS\system32\cmd.exe"
が取れていることは確認しています。

試したこと

提示のコードでwindows10では取得できました。
・p.StartInfo.Verb = "RunAs"
・IWshRuntimeLibrary.WshShell
・バッチを作成し、それを呼び出す

VisualBasic.Netのプログラムとして上記は試してみましたが取得できませんでした。

p.StartInfo.Arguments = "/C PING www.yahoo.co.jo"
とすればpingの結果は取得できます。

自分で起動したコマンドプロンプトからの入力では取得できます。

VB.netで「query session」の結果を取得する方法
に記載してある通り、ユーザ名とパスワードを設定すると取得できました。

補足情報（FW/ツールのバージョンなど）

windows8.1
Microsoft Visual Studio Community 2019

10月OSシェア、Windows 10の増加が続く
…サポート対象外にする。というのも有りですかね。

Comments

[dodox86]

1. ソースコードや説明中では「VisualBasic」と書いていますが、「Visual Basic .NET(VB.NET)」ですよね。細かいことですが、正確に記載した方が良いです。

2. コードで、
> p.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")

の部分で、ちゃんと環境変数ComSpecの値が取れていて、FileNameにセットできていますか？　できていないので、正しく実行できていないということはありませんか。

3. ご提示のプログラムはコンソールアプリケーションでしょうか。それともWindows FormsなどのGUIアプリでしょうか。それらも詳細に提示しましょう。続きを読む ∨

[xail2222]

質問修正しました。念のためここにも記載します。
1.Visual Basic.NETです。コードの部分については、.netとかくと表示されなくなるためVisual Basicとするしかなかったのです。それに合わせて文中もVisual Basicと記載していましたが文中においては.Netをつけるよう修正しました。

2.FileNameに正しい値は取得できています。またpingにすると結果は取れます。

3.コンソールアプリケーションです。