今日、問題のあるコード スニペットを持ってきました。
Set mac = CreateObject("WScript.Shell").Exec("cmd.exe /C ipconfig /all")
Do While mac.Status = 0
WScript.Sleep 100
Loop
MsgBox "Your MAC address is " & vbNewLine & Left(Right(mac.StdOut.ReadAll, 775),756), vbExclamation, "Physical Address"
Set mac = Nothing
私の目標は、コンピューターの物理アドレスを見つけて、それを msgbox で返すことです。
ただし、このプログラムを実行すると、次の 2 つの問題が発生します。
- コマンドに /C を追加しても、CMD プログラムは終了しませんでした。
- よく調べてみると、(Len() 関数を使用して) CMD ipconfig /all で 6000 文字を超えていることがわかりましたが、このプログラムでは、コマンドが 4000 文字しか返さなかったことがわかりました。
何か問題があることは事実ですが、Set mac = CreateObject("WScript.Shell").Exec("cmd.exe /C ipconfig /all")
他の回答などを確認してもわかりません。