• 締切済み

VB2008でコマンド実行

VB2008のフォームからボタンをクリックして、ＤＯＳコマンドを実行したいのですが うまくいきません。 http://dobon.net/vb/dotnet/process/standardoutput.html にあるサンプルをそのまま貼り付けて実行したら Console.WriteLine(results)の実行結果が空白になります。 Debugで見ると BasePriority = {"プロセスは終了しているため、要求された情報は利用できません。"} という表示があるのですが、このサイトのコメントでは、出来ると書いてあるので何が 悪いのか分かりません。 分かる方がいらっしゃったら教えてください。お願いします。

画像を拡大する

みんなの回答

noname#259269
noname#259269
回答No.3

Windows Form から Console.WriteLine を実行しても何も出ないでしょう。 MsgBox(results) で結果が見れると思いますが。

PUNCHI_PUNTA
質問者

お礼

ありがとうございます。 メッセージボックスもやってみましたが、resultsに値が入っていないので 表示しても真っ白でした。 デバッグしながらなので、Console.WriteLine の結果は出力Windowには出ると思います。

回答No.2

コマンドプロンプトの画面で直接DOSコマンドが実行できますか？ WindowsXP＋VB2005の環境では、Consoleアプリ、Windowsアプリどちらも動きます。

PUNCHI_PUNTA
質問者

お礼

ありがとうございます。 コマンドプロンプトでは問題なく実行できます。 ドライブ C のボリューム ラベルがありません。 ボリューム シリアル番号は B0D4-FFEA です c:\ のディレクトリ autoexec.bat [Fujitsu] [inetpub] [Intel] [Program Files] [temp] [Users] [Windows] 1 個のファイル 1,741 バイト 7 個のディレクトリ 160,944,467,968 バイトの空き領域 のように表示されます。

回答No.1

このサンプルはcmd.exeに"dir C:\"を指定して実行していますね。 単純に貴方のPCにCドライブが無いため出力が無いのではないでしょうか。

PUNCHI_PUNTA
質問者

お礼

ありがとうございます。 CドライブはOSの入っているドライブで存在しています。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • VB.NETでDOSコマンドの複数実行

    VB.NETでバッチファイルを使わずにDOSコマンドの複数実行をしたいのですが、 試しに Dim results As String 'ComSpecのパスを取得する psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") '出力を読み取れるようにする psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False 'ウィンドウを表示しないようにする psi.CreateNoWindow = True 'コマンドラインを指定（"/c"は実行後閉じるために必要） 'psi.Arguments = "/c " & asCmd & " /w" psi.Arguments = "/c " & "CD C:\" & " /w" '起動 p = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) psi.Arguments = "/c " & "DIR" & " /w" '起動 p = System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit() というプログラムを作成したのですが、DIRは実行されるのですが、 Cドライブに移動ができません。 　 何が悪いのでしょうか? 実現できる方法があればご教授ください。

  • VB.NETでのDOSコマンドを実行について

    VB.NETでのDOSコマンドを実行について いつも大変お世話になっています。 VB.NET上でバイナリデータを DOSコマンド「copy」で結合させたいのですが うまくいきません。ご助言ください。 Dim results As String Dim psi As New System.Diagnostics.ProcessStartInfo() 'ComSpecのパスを取得する psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") '出力を読み取れるようにする psi.RedirectStandardInput = False psi.RedirectStandardOutput = True psi.UseShellExecute = False 'ウィンドウを表示しないようにする psi.CreateNoWindow = True 'コマンドラインを指定（"/c"は実行後閉じるために必要） psi.Arguments = _ "/c copy /b /y "C:\Program Files\test\Data\out0001.bin"+"C:\Program Files\test\Data\out0002.bin" "C:\Program Files\test\Data\TEST.jpg"" '※コマンドの前後のダブルクォーテーションを省き、コマンドプロンプトで ' 直接実行した場合は成功しました。 '起動 Dim p As System.Diagnostics.Process=_ System.Diagnostics.Process.Start(psi) '出力を読み取る results = p.StandardOutput.ReadToEnd '出力された結果を表示 Console.WriteLine(results) 'WaitForExitはReadToEndの後である必要がある '(親プロセス、子プロセスでブロック防止のため) p.WaitForExit()

  • コマンド実行時の結果のリダイレクト

    お世話になっております。 【環境】 作業マシン：WINDOWS Server2008 (仮想） 開発ツール：VWD2010（VB) 使用DB：SQLServer2008R2 Webフォームにてアプリを開発しております。 ASP.NET VBでの開発の経験はおおよそ4ヶ月程です。 【質問内容】 コマンド実行し、その際プロンプトに表示される結果文字列を、 下記を参考に取得しています。 http://dobon.net/vb/dotnet/process/standardoutput.html 実行しているのは処理終了までに5分くらい掛かるexeで、 10秒毎に現在の処理進捗率を吐きます。 ですが現在はプロセスが終了するまで結果の参照ができません。 参考URL先にあります、 [プロセス名].StandardOutput.ReadToEnd この取得方法ではプロセスの終了まで待たねばなりません。 完了していないプロセスのoutput を参照するには どのようにすればよいのでしょうか。 何卒ご教授下さい。

  • DOSにコマンドを送って実行

    ＤＯＳモードでしか実行できないソフトがあるんですが、 ＶＢからそのソフトをＤＯＳで実行し、コマンドを送って、結果を得られるようにしたいのですが。 それと、ＤＯＳで実行している過程は表示されないようにしたいです。 そのソフトの使用方法は起動してコマンドを入力するだけで結果が出てきます。 どなたかご存知の方がいらっしゃいましたら宜しくお願い致します。

  • VBでDosコマンドを動かすには

    VB6でDosのコマンドを入力して実行させたいと思っているのですが、どのように設定すればいいのでしょうか？ わざわざVB6からDosプロンプトを起動させるわけではございません。 理想ではテキストボックスにコマンドを入力してボタンを押すと実行すると言う形にしたいのですが・・・。 ご存知の方ご指導よろしくお願いします たぶんAPIを使うのだと思いますがAPIまだまだ知識不足なので、分かりやすく解説していただければ助かります。 よろしくお願いします。

  • VBでDOSコマンドを実行し、結果をEXCELシートに貼りたい

    EXCELからVB等を使ってDOSコマンドを実行し、その実行結果を指定したEXCELシートに貼り付けることは出来ますでしょうか？例えば、EXCELシート内に配置したボタンを押すと、DOSコマンド「ipconfig」等が起動され、その出力結果を指定したEXCELシートに貼り付けるという動作をさせたいと考えています。よろしくお願いいたします。

  • VBプログラムから「管理者として実行」したい

    コマンドプロンプトで実行したいコマンドが 「route add ***.***.***.*** mask 255.255.255.255 ***.***.***.***」 (*は、任意のIP) だとします。 XPでは問題ないですが、Vista以降だと、管理者権限が必要なコマンドのため、 そもそもコマンドプロンプト自体を「管理者として実行」モードで起動する必要があります。 上記を、手作業で行う場合は、それで解決しますが、 同じ事を、VBのコードから実行したい場合、 System.Diagnostics.Process.Start を使い、（以下サンプルコード） --------------------------- Dim psi As New System.Diagnostics.ProcessStartInfo() psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") psi.UseShellExecute = False psi.CreateNoWindow = True psi.Arguments = "/c route add ***.***.***.*** mask 255.255.255.255 ***.***.***.***" Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) p.WaitForExit() ----------------------------------------------------------- とすると、XPでは、管理者権限を問われないので実行できますが、 Vista以降だと、コマンドが管理者権限で実行されていないためか実行が完了せず、コマンドの内容も行われていません。（route addコマンドの記述にミスは無いとします。） Vista以降の場合、手作業で、コマンドプロンプトを右クリックして「管理者として実行」を選んで起動し、コマンドを実行するのと同じ事を、 VBのコードから行うには、どうしたらいいのでしょうか？ 分かる方、教えてください。お願いします。

  • VB.2005でXMLを読み込む時のパス設定

    Javaで作成されたXMLをVB.net2005で読み取る際にVBでのXMLへのパス指定に関する質問です。開発環境はVisualStadio2005です。 javaで「D\Sample.xml」（適当なフォルダーに）を吐き出し。 ***VB***↓ Imports System.Xml Module Module1 Sub Main(ByVal args() As String) 'XMLファイルの読取り Dim xmlRdr As New XmlTextReader(args(0).Trim()) xmlRdr.Read() Console.WriteLine("タグ名：" + xmlRdr.LocalName) Console.WriteLine("値：" + xmlRdr.ReadString()) xmlRdr.Close() EnD Sub End Module プロジェクトのプロパティページのデバッグでコマンドライン引数指定で「D\Sample.xml」を指定。 しかし、読み込まれるのは\objの\Releaseと\のDebug上のxmlを読み込んでしまいます。しかも自動バックアップ？の関係で上記コードに無い作動（上記だと読み込みだけだが、先に作ったXML作成モジュールを実行してしまう）でXMLを自動作成してしまいます。 好きな場所のファイル名を指定させる方法を教えて下さい。 普段はEclipse＋Javaで開発を行っていてEclipseのパス設定感覚ではうまくいかないのですか？

  • Query sessionを実行させるには？

    お世話になります。   DOSコマンドの"QUERY SESSION"で得たセッション情報を元に、 処理を行いたいと考えております。   そこでVB2010にて下記のプログラムを試したのですが、肝心の"QUERY SESSION"が   『操作可能なプログラム(中略)として認識されていません。』として実行されません。   ---------------------------------------------------------         '--Processオブジェクトを作成         Dim pr As New System.Diagnostics.Process         pr.StartInfo.FileName = System.Environment.GetEnvironmentVariable("ComSpec")         p.StartInfo.UseShellExecute = False         p.StartInfo.RedirectStandardOutput = True         p.StartInfo.RedirectStandardInput = False           'コマンドラインを指定         pr.StartInfo.Arguments = "/c QUERY SESSION"  '<--------問題個所？           pr.Start()           '出力を読み取る         Dim results As String = pr.StandardOutput.ReadToEnd()           pr.WaitForExit()         pr.Close()   --------------------------------------------------------- 上記のコマンドラインの部分を、         pr.StartInfo.Arguments = "/c ipconfig" など他のDOSコマンドに変えると正常に動作するのですが、   例えば下記の様に別表現でQuery sessionを指定しても同様のエラーが返されるばかりです。         pr.StartInfo.Arguments = "C:\windows\System32\qwinsta.exe"   何が原因となっているのかも分からず困っております。   どうか、お知恵をお貸しください。宜しくお願い致します。

  • 【VB.NET】コマンドプロンプトの操作について

    　今晩は、質問させていただきます。どうぞよろしくお願いいたします。 　環境：　VB2008 Express Edition + Win7（もしくはVistaもしくはXP）　　でございます。 　VBからコマンドプロンプト（あまり使い方を存じません）を操作できているかどうか テストする為に、下記のように操作させてみましたがうまくいきません。。 　　・Debugフォルダにコマンドプロンプトを起動 　　　→コマンドプロンプトの内容表示（←成功） 　　・Debugフォルダにコマンドプロンプトを起動 　　　→「cd ../ 」 　　　→コマンドプロンプトの内容表示（←何故か何も表示されません。） 　http://soudan1.biglobe.ne.jp/qa5873147.html を参考にさせていただいて、コーディングいたしました↓ 　　Dim psi As New System.Diagnostics.ProcessStartInfo() 　　psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec") 　　psi.RedirectStandardInput = False '出力を読み取れるようにする 　　psi.RedirectStandardOutput = True 　　psi.UseShellExecute = False 　　psi.CreateNoWindow = True 'ウィンドウを表示しないようにする 　　 'コマンドラインを指定 　　psi.Arguments = "/c cd ../" 　'←ここです。 　　Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi) '起動 　　Threading.Thread.Sleep(1000) 　　Do 　　　　results = p.StandardOutput.ReadLine 　　　　temp = temp & results 　　　　Application.DoEvents() 　　　　cnt = cnt + 1 　　Loop Until cnt = 1000 　　p.WaitForExit() 　　MsgBox(temp) 　最後のMsgBoxに何も文字が表示されません。。。 　コード中の「ここです」の行をコメントアウトいたしますと、最後のMsgBoxに 「Microsoft Windows XP ～D:\～bin\Debug>」 とフォルダ名が表示できます。 　psi.Arguments = "/c cd ../" がちゃんと送れていないのでございましょうか？？ 　色々と試行錯誤しておりますが、うまくいきません。 試しにpsi.CreateNoWindow = False などとしてみても一瞬で画面が消えてしまうため うまくバグ取りの打開策が見いだせておりません。 　もしお詳しい方がいらっしゃいましたら是非ともアドバイスいただけないでしょうか。 どうぞよろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する