0

今日、問題のあるコード スニペットを持ってきました。

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 つの問題が発生します。

  1. コマンドに /C を追加しても、CMD プログラムは終了しませんでした。
  2. よく調べてみると、(Len() 関数を使用して) CMD ipconfig /all で 6000 文字を超えていることがわかりましたが、このプログラムでは、コマンドが 4000 文字しか返さなかったことがわかりました。

何か問題があることは事実ですが、Set mac = CreateObject("WScript.Shell").Exec("cmd.exe /C ipconfig /all")他の回答などを確認してもわかりません。

4

1 に答える 1