Shell関数でIPアドレスをtextファイルに取得するには？

解決

---

VB6.0で
Shell "ipconfig / All > ""C:\Documents  and  _      Settings\arc\nowIP.txt"" "
としたのですが、フォルダにnowIP.txtが出来てません。
どうすればよいでしょうか？

編集 削除

---

まずは、 and とSettingsの間にある不器用なスペースをどうにかすべきかと

編集 削除

---

スペース以外にも、アンダーバー？っぽいゴミも混じってるよね？

編集 削除

---

ipconfig / All 

→
ipconfig -all では？(WindowsXP Proの場合)

編集 削除

---

Shell "ipconfig /all >""C:\Documents and Settings\arc\nowIP.txt"" "

すいません書き込む時に行がずれてしまったのでスペース・アンダーバーでソースをつなげようとしたのが上手くいかなかったみたいです。
ちなみにコマンドプロンプトで
ipconfig /all >"C:\Documents and Settings\arc\nowIP.txt
と入力した場合は上手くいったのですがVBでやろうとすると上手くいかないのです・・・

編集 削除

---

|ω・`) 
パイプしてくれるのってコマンドインタプリタさんのはずなので、
cmd /c ipconfig -all > foo.txt
となるのかも。

編集 削除

---

みなさん助言ありがとうございます。
cmd/c ためしてみましたが上手くいきませんでした。

編集 削除

---

cmd /c ipconfig -all > foo.txt
みたいなＢＡＴを作成して
shellでＢＡＴを起動するのれす。
それがいやならwshの出番れす。

編集 削除

---

wshの使い方を教えていただけたらありがたいのですが。

編集 削除

---

こんな感じ
あとはファイルに出力してね

Set WshShell = CreateObject("WScript.Shell")
Set oExec    = WshShell.Exec("ipconfig -all")

Do While True

     If Not oExec.StdOut.AtEndOfStream Then
          l = oExec.StdOut.ReadLine
          Debug.Print l
     Else
          Exit Do
     End If
Loop

編集 削除

---

ごめんなさい！！
cmd/c で出来ました。
cmdと/cの間にスペースを入れるの忘れてたみたです。

みなさま本当にありがとうございました。

編集 削除

---

あんさんすいません。
わざわざwsh教えてくださってありがとうございました。
今後必要になったら活用させていただきます。勉強になりました。

編集 削除

---

いえいえ
wshだと
いちいちファイル作らなくていいから
便利ですよ

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。