vbscript初心者です。ご教授頂けますと幸いです。

ネットワーク監視ログが毎朝出力され、そのログの中身を、各サーバにログインし手作業で確認を行っています。
この作業を、VBscriptで行いたいと思っているのですが、どうもうまくいかず困っています。

正常時のログには必ず「1,2」と文字列が出力されます。
この文字列を検索対象にして、「1,2」の記述があれば、新規の結果確認ログに「ネットワークは正常です」とコメントを付けて、ファイルを出力し、

「1,2」が見つからなかった場合は、そのログファイルの3行目のみを、新規の結果ログファイルに抽出する、VBscriptを作成したいと思っています。

異常時のログファイルには、異常を知らせるコメントが3行記述されてます。必要な行は、3行目だけなので、3行目を結果ログとして出力したい。

以下、構文ですがVB初心者であり、色々なサイトを見て作ってみましたが全然動かず今回、ここに投稿しました。

'検索対象のテキストファイルのオープン
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFs = CreateObject("Scripting.FileSystemObject")
Set objFs = Fs.OpenTextFile(NlbTmp)

If Instr(A,"1,2") > 0 Then
MsgBox "ネットワークは正常です"
Else

”異常の場合の条件分岐が分からず・・・”


Set oText = CreateObject("Scriptting.FileSystemObject").CreateTextFile( 結果ログ.log, True )

str = Fs.ReadLine
Fs.WriteLine(str)
End If


自分で作成するのが初めてな物で本当によろしくお願い致します。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

1.変数の誤用を避けるため、最初にOption Explicit文を置きます。


 この文があると、変数を事前定義せずに使うとエラーになります。
 この文が無いと変数名を間違えてもエラーにならないので、誤動作
 する可能性が高くなります。
2.Set WshShell = WScript.CreateObject("WScript.Shell") ?
 使わないオブジェクトは作らないようにします。
3.ファイルアクセスオブジェクト
 Dim objFs
 Set objFs = CreateObject("Scripting.FileSystemObject")
4.入力ファイルオブジェクト
 Dim inFle
 Set inFile = objFs.OpenTextFile("C:\~", 1) '1は入力モード
5.出力ファイルオブジェクト
 Dim outFile
 Set outFile = objFs.CreateTextFile("C:\~", True) 'Trueは上書き可
6.テキストの読み込み
 Dim text
 text = inFile.ReadLine() '1行分の読み込み
7.テキスト内に"1,2"があるかを調べる
 掲題のようにInStrでも良いし、RegExpを使っても良いでしょう。
 http://msdn.microsoft.com/ja-jp/library/cc392403 …
8.条件分岐
 If InStr(text, "1,2") > 0 Then
    WScript.Echo "ネットワークは正常です"
 Else
    '3行目をtextに読み込む
    outFile.WriteLine text '改行付きで書き込む
 End If
 '終了

この回答への補足

nda23さん

ご返信遅くなりすみません。

ご回答頂いた情報を元に作成してみます。
結果ご連絡させて頂きます。

補足日時:2009/05/22 15:08
    • good
    • 0
この回答へのお礼

nda23さん

ご連絡遅くなりすみませんでした。
無事、解決できました。
今後ともよろしくお願いいたします。

お礼日時:2009/05/25 13:19

小生もvbscript初心者ですので、


答えられるかどうかは分かりませんが。
補足要求です。

>ネットワーク監視ログが毎朝出力され、そのログの中身を、各サーバにログインし手作業で確認を行っています。
ログインもVBscriptで行う?

>正常時のログには必ず「1,2」と文字列が出力されます。
正常時のログファイルと異常時のログファイルは同じもの?
また特定の文字列(1,2)は何行目?
正常、異常に関わらず、データは3行固定なのでしょうか?


作成したコード全体の開示はできますか?
vbscriptは開発環境初が貧弱ですので、読み込みや書き込み、比較などを分解して、
それぞれコーディングする方が理解しやすいと思います。
それぞれ上手く動作したら組み合わせる訳です。

二度手間かも知れませんが、まとめてコーディングすると、
どこで間違えているか分かりません。

この回答への補足

kiki_sさん

ご返信遅くなりすみません。情報が不足でした。。

ログインは、VBscriptでは行いません。
ログファイルが対象SVからFTPで転送されてきます。

正常時と異常時のログの中身は別になります。
【正常時のログ】
WLBS クラスタ制御ユーティリティ
クラスタ 192.168.100.10
ホスト 1 はクラスタに参加してから 1 回、収束状態に入りました。
前回の収束が完了したのは大体次のとおりです: 2009/05/21 14:21:12
ホスト 1 はクラスタの一部として次のホストを既定値で収束しました:
1, 2

【異常時のログ】
WLBS クラスタ制御ユーティリティ
クラスタ 192.168.100.10
ホスト 1 は停止していてクラスタの収束状態を取得できません

以上がログの中身です。異常時のログは、ほぼ全て固定で出力されます。

補足日時:2009/05/22 15:01
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QvbsでExcelのシートをコピーするには

vbsでExcelのシートをコピーすることができず、困っています。

雛形のAファイル(Excel)のシートを別のBファイル(Excel)にコピーしたいのですが、
下記コーディングでは、「実行時エラー この変数は宣言されていません。: 'before'」となります。

xlsSheet.Copy before:=xlsBook2.Worksheets("Sheet1")

Excelのマクロに記載して、Excelのコマンドボタンから呼び出すなどすれば動くのですが、
ハンディ端末のサーバ側アプリがvbsで、vbsから行いたいのです。

vbsでExcelファイルのシートをコピーすることはできないのでしょうか。

ご存知の方、ご教授いただければ幸いです。

Aベストアンサー

>xlsSheet.Copy before:=xlsBook2.Worksheets("Sheet1")

VBScriptでは、名前付き引数の指定はできないので、代わりに不要な引数を省略します。

コピーメソッドの仕様は

Copy(Before, After)

ですから

xlsheet.Copy(xlsBook2.Worksheets("Sheet1"))

とやれば、Beforeのみ指定した事になります。

xlsheet.Copy(,xlsBook2.Worksheets("Sheet2"))

とやれば、Afterのみ指定した事になります(カンマがある事に注目)

xlsheet.Copy(xlsBook2.Worksheets("Sheet1"),xlsBook2.Worksheets("Sheet2"))

とやれば、BeforeとAfterの両方を指定した事になります。

xlsheet.Copy()

とやれば、BeforeとAfterの両方を省略した事になります。

このようにVBSでは

Before:=~~~

After:=~~~

のような名前付き引数は指定できません。

>xlsSheet.Copy before:=xlsBook2.Worksheets("Sheet1")

VBScriptでは、名前付き引数の指定はできないので、代わりに不要な引数を省略します。

コピーメソッドの仕様は

Copy(Before, After)

ですから

xlsheet.Copy(xlsBook2.Worksheets("Sheet1"))

とやれば、Beforeのみ指定した事になります。

xlsheet.Copy(,xlsBook2.Worksheets("Sheet2"))

とやれば、Afterのみ指定した事になります(カンマがある事に注目)

xlsheet.Copy(xlsBook2.Worksheets("Sheet1"),xlsBook2.Worksheets("Sheet2"))

とやれば、Be...続きを読む

QVB4でエラーが出ます CreateObject Scripting.FileSystemObject

VB6で
Set fso = CreateObject("Scripting.FileSystemObject")

と書いてうまく動いていたbasを

VB4のプログラムに移植したところうまく動かないのですが、
どなたか分かりませんでしょうか?

Aベストアンサー

 
具体的に「どのように」うまく動かないのか書いていないので、よくわかりません。
PCの電源は入ってますよね?(一応、念のため)

実行時エラー429なら、実行環境に必要なライブラリ(scrrun.dll : Microsoft Scripting Runtime)が入っていないだけでは?
 

QVBS★Excel★スクリプト★引数の取得

VBSは初心者というか、やったことがありません。ど素人になります。
説明がとてもぎこちないのもその辺からだと思いますが、宜しくお願いします。
VBのシステムからVBSファイル
<内容>
Dim wbname
Dim mypara
Dim file_path
Dim oApp
file_path = "C:\share\Excel\1234.xls"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
On Error Resume Next
oApp.UserControl = True
oApp.Workbooks.Open "C:\share\Excel\1234.xls"
Set oApp = Nothing
WScript.Quit
を指定して起動すると(1)Excelで作成したシステムが稼動するように作りたいのですが、(1)を起動する環境設定があり、C:\Documents and Settings\MBS\デスクトップ\1111.vbs #CODE
#CODEが引数になります。
その#CODEをVBSで取得したいのですが、単体で1111.vbsを動かすとExcelファイルは動きます。
元のシステムではexeファイルしかみないようなのですが、例えば電卓とかメモ帳とかは動きます。vbsファイルだけは動きません。どのようにすれば動くかアドバイスをお願いします。
宜しくお願いします。

VBSは初心者というか、やったことがありません。ど素人になります。
説明がとてもぎこちないのもその辺からだと思いますが、宜しくお願いします。
VBのシステムからVBSファイル
<内容>
Dim wbname
Dim mypara
Dim file_path
Dim oApp
file_path = "C:\share\Excel\1234.xls"
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
On Error Resume Next
oApp.UserControl = True
oApp.Workbooks.Open "C:\share\Excel\1234.xls"
Set oApp = Nothing
WScript.Quit
を指定して起動する...続きを読む

Aベストアンサー

VBScript の中で

WScript.Arguments(0)

のようにすれば一つめの引数を取得できます。
>例えば電卓とかメモ帳とかは動きます。vbsファイルだけは動きません。
の意味が良くわかりません。
質問文のプログラムではそういう部分が無いようですが・・

QVBScript(WScript)のバッチファイル実行

お世話になります。

VBScriptで困っています。
ご存知の方、ご教示願えますでしょうか。

Windowsでバッチファイルを実行したときに、DOS画面(コマンドプロンプト)が一瞬パッて表示されるかと思います。
現在開発中のシステムで、プログラムからバッチファイルを自動で実行する処理を入れております。
通常ならばバッチファイルを実行した場合、DOS画面が表示されてしまいますが
DOS画面を出さないようにプログラムを組んでいます。

つまり、VBScriptからバッチファイルを実行しております。
以下、VBScriptのソースを記載します。

Set objShell = WScript.CreateObject("WScript.Shell")
fcresult = objShell.Run("C:\abc.bat", 0, True)
wscript.quit fcresult

上記のVBSを実行すると、必然的に「abc.bat」が実行されます。
しかし、現在僕が使っている環境ですとDOS画面が表示されません(←これがやりたいこと)

しかし、お客さんの環境で同じ様にVBSからバッチファイルを実行すると
「C:\WINDOWS\System32\CScript.exe」という名前でDOS画面が起動されてしまいます。

周りの環境でもVBSからバッチをたたくような処理を行ってみましたが、DOS画面が起動されず。。。
正直、再現が難しいため大変困っております。
お客さんの環境では100%再現されます。

全くもって原因がつかめておりません。
Windowsのセキュリティの設定でしょうか!?

ご存知の方いらっしゃいましたら、知恵をお貸しください。

よろしくお願いいたします。

お世話になります。

VBScriptで困っています。
ご存知の方、ご教示願えますでしょうか。

Windowsでバッチファイルを実行したときに、DOS画面(コマンドプロンプト)が一瞬パッて表示されるかと思います。
現在開発中のシステムで、プログラムからバッチファイルを自動で実行する処理を入れております。
通常ならばバッチファイルを実行した場合、DOS画面が表示されてしまいますが
DOS画面を出さないようにプログラムを組んでいます。

つまり、VBScriptからバッチファイルを実行しております。
以下、V...続きを読む

Aベストアンサー

レジストリーの中を覗くと
質問者のパソコンでは次のようになってませんか?
=============================

HKEY_CLASSES_ROOT
----VBSFile
---------Shell

--------------Open
------------------Command

右ペインのデータ  %SystemRoot%\System32\WScript.exe "%1" %*

--------------Open2
------------------Command

右ペインのデータ  %SystemRoot%\System32\CScript.exe "%1" %*
 
==============================

当方のも上記のようになってます。

で、この状態で、コピーのBatを作り、質問者のコードを実行すると
DOS画面は表示されませんでしたが、

OpenとOpen2のデータを入れ替えて実行してみたところ
「C:\WINDOWS\System32\CScript.exe」のDOS画面がでました。
 
ということで、その関係先のレジストリーがどうなっているか調べてみたらどうでしょう。
 

レジストリーの中を覗くと
質問者のパソコンでは次のようになってませんか?
=============================

HKEY_CLASSES_ROOT
----VBSFile
---------Shell

--------------Open
------------------Command

右ペインのデータ  %SystemRoot%\System32\WScript.exe "%1" %*

--------------Open2
------------------Command

右ペインのデータ  %SystemRoot%\System32\CScript.exe "%1" %*
 
=============================...続きを読む

QVBSでEXCELのXLSTARTにあるマクロを実行するには

VBSを実行したときに既にEXCELを開いている場合にはFor Each wb In Workbooksを使ってXLSTARTフォルダにあるファイルのVBAマクロを実行できます。しかし、EXCELを開いていない場合にはCreateObject("Excel.Application")でEXCELを開いてもXLSTARTフォルダにあるファイルそのものが見つかりません。VBSを使わず、プログラムファイルからEXCELを開く場合にはXLSTARTフォルダにあるファイルも問題もなく開きます。どうすればEXCELを開いていない場合でもVBSでEXCELのXLSTARTにあるマクロを実行できるでしょうか?
因みにXLSTARTのフォルダパスは不特定多数の環境(OSはWindows95-XP、EXCELは97-2007の組合せ)で特定されていないものとします。さらにツール、オプションの全般タブの「起動時に全てのファイルを開くフォルダ」にはXLSTARTが指定されているものとします。

Aベストアンサー

回答3の補足へのアドバイスというか私の勉強です。

あまり試していないのですが下のようなことができることがわかりました。

-----
Set WShell = CreateObject("WScript.Shell")
WShell.Run "C:\Test\Test.xls" 'Excelファイルを開く
WScript.Sleep 3000 '表示されるまで待つように調整
Set objExcel = GetObject("C:\Test\Test.xls")
objExcel.Application.Run "PERSONAL.XLS!CommonMacro1"
-----

QExcelVBAから,引数を渡してVBscriptを実行したいのですが,こんなこと出来ますか?

ExcelVBAでワークシートを監視している状態で,VBscriptを実行して,IEを操作したいと考えています。ただ,このとき,監視していたワークシートの中の数値を引数としてVbscriptに渡したいと考えています。このようなことが出来るのでしょうか?出来るのであれば教えてください。

もし,引数として渡すことが出来ないのであればVBscriptの方から,ワークシートのセルを読みに行かせるという方法もあると思うのですが,VBAの方でワークシートの値を更新するので,VBAとVBscriptの両方が同時に同じセルを操作したりすると,不具合が起こったりするのではないかと心配です。ですから,ワークシートの読み書きはVBAにやらせて,VBAから,引数のようにして必要なデータをVBscriptに渡せないかと考えています。

しかし,エラー処理などをして,上記の不具合が解消できるのであれば,引数で渡すのではなく,ワークシートを読みに行く形でも良いのかなと思っていますが,そうすると,VBscriptで既に開いているワークシートを特定して,所定のエクセルシートを操作できるようにしなければなりません。その際の具体的な方法等が分れば,教えていただきたいです。(UWSCでいうところの,getactiveoleobject?みたいなのがあれば,それを中心に,サンプルコードを御提示いただきたいです。)

どうか,よろしくお願いします。

ExcelVBAでワークシートを監視している状態で,VBscriptを実行して,IEを操作したいと考えています。ただ,このとき,監視していたワークシートの中の数値を引数としてVbscriptに渡したいと考えています。このようなことが出来るのでしょうか?出来るのであれば教えてください。

もし,引数として渡すことが出来ないのであればVBscriptの方から,ワークシートのセルを読みに行かせるという方法もあると思うのですが,VBAの方でワークシートの値を更新するので,VBAとVBscriptの両方が同時に同じセルを操作した...続きを読む

Aベストアンサー

Wscript Arguements について調べてみてください。
https://msdn.microsoft.com/ja-jp/library/cc364473.aspx
のVBScriptを、Q.vbs とかの名前で保存します。
Excel VBA からは
Shell "wscript.exe C:\test\Q.vbs ""aa"" "" bb"
などと実行すると、aa bb が渡されて aaとbbが返ってきます。

QVBSでExcelシートのコピー

VBSである決まったExcelシートを別なExcelファイルにシートコピーできる方法はないですか?

やりたいことは、Excelファイル「A.xls」内の「Sheet1」というシートをExcelファイル「B.xls」の一番末尾に「Sheet1」をコピーする、です。
(Excelのシート名上で右クリック→「移動またはコピー」→移動先ブック名を選択→「末尾へ移動」、「コピーを作成」にチェック、と同じことをVBS上で行いたいのですが。)

Aベストアンサー

こんな感じでしょうか?

Dim strFileDst
Dim strFileSrc
Dim strCopySheet


strFileDst = "C:\book1.xls" 'コピーする方
strFileSrc = "C:\book2.xls" 'コピーされる方

strCopySheet = "Sheet1" 'コピーする方のシート名


Call CopyExec



Sub CopyExec()
Dim objXls
Dim objBookDst
Dim objBookSrc

Set objXls = CreateObject("Excel.Application")

Set objBookDst = objXls.Workbooks.Open(strFileDst)
Set objBookSrc = objXls.Workbooks.Open(strFileSrc)

Call objBookDst.Sheets(strCopySheet).Copy(,objBookSrc.Sheets(objBookSrc.Sheets.Count))

objBookDst.Close False
objBookSrc.Close True
objBookDst.Close
objBookSrc.Close

objXls.Quit

Set objXls = Nothing


End Sub

こんな感じでしょうか?

Dim strFileDst
Dim strFileSrc
Dim strCopySheet


strFileDst = "C:\book1.xls" 'コピーする方
strFileSrc = "C:\book2.xls" 'コピーされる方

strCopySheet = "Sheet1" 'コピーする方のシート名


Call CopyExec



Sub CopyExec()
Dim objXls
Dim objBookDst
Dim objBookSrc

Set objXls = CreateObject("Excel.Application")

Set objBookDst = objXls.Workbooks.Open(strFileDst)
Set objBookSrc = objXls.Workbooks.Open(strFileSrc)

...続きを読む

QVBScriptでSQLに接続し、CSV出力したい

お世話になります。
VBScriptでSQLに接続し、CSV出力したいのですが、どうしても上手くいかないのでどうかアドバイスを頂けたらと思います。

検索したサンプルを基に作成したプログラムです。

--------------------------------------
Dim ObjConn
Dim objFso
Dim objCsv
Dim objRc

Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "Provider=SQLOLEDB;Server=XXXXX;Database=XXXXX;UID=XXXXX;PWD=XXXXX"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objRc = Server.CreateObject("ADODB.Recordset")
Set objCsv = objFso.CreateTextFile("C:\テスト.csv", True )

sql = "select * from `商品マスタ`"

objRc.Open sql, ObjConn

Dim i
Dim Buffer

Do While not objRc.EOF

Buffer = ""
For i = 0 to objRc.Fields.Count - 1
if Buffer <> "" then
Buffer = Buffer & ","
end if
Buffer = Buffer & objRc.Fields(i).Value
objCsv.WriteLine(Buffer)
Next

objRc.MoveNext
Loop
--------------------------------------
これを実行すると、無限ループのような状態になり、テスト.csvに延々改行のみが出力されます。(文字は何も出力されない)
sql文の結果としては正しくは10レコードだけなので、For~Nextのループも10回しか繰り返さない筈なのですが、延々繰り返してしまっています。
objRc.RecordCount をやってレコード数を調べてみようともしましたが、結果としては何も返ってきません。
カーソルタイプによっては『-1』しか返らないとのことですが、-1すら返りません。
つまり、接続の時点で失敗していると思われるのですが、どこが間違っているのかが分かりません。

お詳しい方、ご教示いただけないでしょうか。
どうぞ、宜しくお願いいたします。

お世話になります。
VBScriptでSQLに接続し、CSV出力したいのですが、どうしても上手くいかないのでどうかアドバイスを頂けたらと思います。

検索したサンプルを基に作成したプログラムです。

--------------------------------------
Dim ObjConn
Dim objFso
Dim objCsv
Dim objRc

Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "Provider=SQLOLEDB;Server=XXXXX;Database=XXXXX;UID=XXXXX;PWD=XXXXX"
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objRc = Server.Cr...続きを読む

Aベストアンサー

まずは以下の2行を入れ替える。
objCsv.WriteLine(Buffer)
Next
1行分のBufferを組み立ててからWriteLineでしょ。

確認のためには、シンプルなパターンを作りませんか?
Doループを構成する行(3行)とForループをコメントアウトして、
一回だけfields(0)だけを書き出す。

QVBSからWordとExcelのマクロを呼ぶときの違い

VBSにDrag&Dropしたファイル名を引数にマクロをコールしています。
Excelのマクロは問題なく動作したのですが、Wordのマクロを呼ぶとVBSで予期せぬエラーが起きてしまいます。

Excelのマクロを使うときは以下のコードです。このコードは問題なく動きます。
01: Dim oApp
02: Dim WshArgs
03: Dim oFileSystem
04: Dim MacroFileName
05: Set WshArgs = WScript.Arguments
06: Set oFileSystem = createObject("Scripting.FileSystemObject")
07: MacroFileName = oFileSystem.getParentFolderName(Wscript.ScriptFullName)&"xxx.xlsm"
08: Set oApp = CreateObject("Excel.Application")
09: oApp.Visible = True
10: oApp.Workbooks.Open MacroFileName
11: oApp.Run "MacroName",WshArgs(0)
12: ' マクロ付ファイルは自身の中で閉じる

Wordのマクロを使うときは、以下の行だけ変更しました。
07: MacroFileName = oFileSystem.getParentFolderName(Wscript.ScriptFullName)&"xxx.docm"
08: Set oApp = CreateObject("Word.Application")
10: oApp.Documents.Open MacroFileName

すると、Wordを開きマクロを実行し、マクロ内の記述によりWordを終了します。
しかし、VBSにて11行目2文字目で予期せぬエラーが発生します。
引数なしのマクロであればWordでも問題なく動作します。

VBSにDrag&Dropしたファイル名を引数にマクロをコールしています。
Excelのマクロは問題なく動作したのですが、Wordのマクロを呼ぶとVBSで予期せぬエラーが起きてしまいます。

Excelのマクロを使うときは以下のコードです。このコードは問題なく動きます。
01: Dim oApp
02: Dim WshArgs
03: Dim oFileSystem
04: Dim MacroFileName
05: Set WshArgs = WScript.Arguments
06: Set oFileSystem = createObject("Scripting.FileSystemObject")
07: MacroFileName = oFileSystem.getParentFolderName(Wscr...続きを読む

Aベストアンサー

以下のようなコードでやってみましたが、特に問題は発生しませんね。
おそらく、Wordに搭載されているマクロ自体の問題ではありませんか?


'//
Dim oApp
Dim WshArgs
Dim oFileSystem
Dim MacroFileName
Set WshArgs = WScript.Arguments
Set oFileSystem = createObject("Scripting.FileSystemObject")
MacroFileName = oFileSystem.getParentFolderName(Wscript.ScriptFullName)&"\Test1.docm"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open MacroFileName
oApp.Run "MacroName",WshArgs(0)
'//

ちなみに、ExcelもWordも同じ内容のマクロを使っています。
Sub MacroName(arg As String)
arg = LCase(arg)
If arg = "t" Then
MsgBox Time
ElseIf arg = "d" Then
MsgBox Date
Else
MsgBox Date & " " & Time
End If
End Sub

以下のようなコードでやってみましたが、特に問題は発生しませんね。
おそらく、Wordに搭載されているマクロ自体の問題ではありませんか?


'//
Dim oApp
Dim WshArgs
Dim oFileSystem
Dim MacroFileName
Set WshArgs = WScript.Arguments
Set oFileSystem = createObject("Scripting.FileSystemObject")
MacroFileName = oFileSystem.getParentFolderName(Wscript.ScriptFullName)&"\Test1.docm"
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open MacroFileName
oApp.Run ...続きを読む

QVBScriptでのWEBページ(firefox)のHTML ソース出力方法について

Windows7/firefoxにおいて、VBScriptによりHTMLソースを取得しようとしています。
他の質問を参考にしたところ、IEでは下記のソースによって取得できるようですが、
firefoxではどのようにすれば良いのでしょうか。

【IE の場合に取得できるソース】
Dim objIE
Dim strBody

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate "http://www.XXXXX.co.jp/"

Do Until objIE.Busy = False
WScript.sleep(250)
Loop'

strBody = objIE.Document.all(0).outerHtml
WScript.echo strBody

Aベストアンサー

以下に同等の内容がありますよ。
https://oshiete.goo.ne.jp/qa/8611462.html


人気Q&Aランキング