質問編集履歴
3
細かい修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,11 +18,11 @@
|
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|
|
21
|
-
コンソールアプリケーションのsub mainにおいて以下のコード
|
|
21
|
+
VisualBasic.Netのコンソールアプリケーションのsub mainにおいて以下のコード
|
|
22
22
|
|
|
23
23
|
|
|
24
24
|
|
|
25
|
-
```VisualBasic
|
|
25
|
+
```VisualBasic
|
|
26
26
|
|
|
27
27
|
Dim p As New System.Diagnostics.Process
|
|
28
28
|
|
|
@@ -80,7 +80,7 @@
|
|
|
80
80
|
|
|
81
81
|
|
|
82
82
|
|
|
83
|
-
VisualBasicのプログラムとして上記は試してみましたが取得できませんでした。
|
|
83
|
+
VisualBasic.Netのプログラムとして上記は試してみましたが取得できませんでした。
|
|
84
84
|
|
|
85
85
|
|
|
86
86
|
|
2
コンソールアプリケーション、VisualBasic.NET、"ComSpec"の結果を表示
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,7 +18,11 @@
|
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|
|
21
|
+
コンソールアプリケーションのsub mainにおいて以下のコード
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
21
|
-
```VisualBasic
|
|
25
|
+
```VisualBasic.NET
|
|
22
26
|
|
|
23
27
|
Dim p As New System.Diagnostics.Process
|
|
24
28
|
|
|
@@ -52,15 +56,21 @@
|
|
|
52
56
|
|
|
53
57
|
```
|
|
54
58
|
|
|
55
|
-
この
|
|
59
|
+
このresultsの内容がブランクになる
|
|
60
|
+
|
|
61
|
+
デバッグ実行時に
|
|
62
|
+
|
|
63
|
+
System.Environment.GetEnvironmentVariable("ComSpec")の結果として
|
|
64
|
+
|
|
65
|
+
"C:\WINDOWS\system32\cmd.exe"
|
|
66
|
+
|
|
67
|
+
が取れていることは確認しています。
|
|
56
68
|
|
|
57
69
|
|
|
58
70
|
|
|
59
71
|
### 試したこと
|
|
60
72
|
|
|
61
73
|
提示のコードでwindows10では取得できました。
|
|
62
|
-
|
|
63
|
-
|
|
64
74
|
|
|
65
75
|
・p.StartInfo.Verb = "RunAs"
|
|
66
76
|
|
|
@@ -71,6 +81,12 @@
|
|
|
71
81
|
|
|
72
82
|
|
|
73
83
|
VisualBasicのプログラムとして上記は試してみましたが取得できませんでした。
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
p.StartInfo.Arguments = "/C PING www.yahoo.co.jo"
|
|
88
|
+
|
|
89
|
+
とすればpingの結果は取得できます。
|
|
74
90
|
|
|
75
91
|
|
|
76
92
|
|
1
OSのシェアを補足
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -91,3 +91,11 @@
|
|
|
91
91
|
windows8.1
|
|
92
92
|
|
|
93
93
|
Microsoft Visual Studio Community 2019
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
|
|
98
|
+
|
|
99
|
+
[10月OSシェア、Windows 10の増加が続く](https://news.mynavi.jp/article/20201103-1448619/)
|
|
100
|
+
|
|
101
|
+
…サポート対象外にする。というのも有りですかね。
|