vbスクリプト内の変数

Question

私は、テキストファイル（C：\ textfile.txt）の内容をとり、Windowsイベントログに書き込むvbスクリプトを作成しました。私はC：\ textfile.txtからテキストを "プル"する変数 "strContents"の問題があります。誰もこの変数を書く方法を知っていますか？

ありがとうございます。

CONST INFORMATION = 4 
    Const ForReading = 1 

    Set WshShell = WScript.CreateObject("WScript.Shell") 
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.OpenTextFile("C:\textfile.txt", ForReading) 
     strContents = objFile.ReadAll 
    objFile.Close 


    wscript.echo strContents 
    strCommand = "eventcreate /T Information /ID 100 /L Application /SO     eventlog /D " "strContents" 
    WshShell.Run strcommand 

Answer 1

strCommand = "eventcreate /T Information /ID 100 /L Application /SO eventlog /D """ & strContents & """" 
'                    ^^   ^^ 
' This becomes one double quote -------------------------------------------------+ |    | | 
' This is the string concatenation operator ----------------------------------------+    | | 
' This is the string concatenation operator ------------------------------------------------------+ | 
' This becomes one double quote ---------------------------------------------------------------------+ 

' Another way to execute "command-line" commands 
' that displays errors and output of the command 

dim WSE 
set WSE = WshShell.Exec(strCommand) 
WScript.Echo "======== STDERR ========" 
do until WSE.StdErr.AtEndOfStream 
    WScript.Echo WSE.StdErr.ReadLine 
loop 
WScript.Echo "======== STDOUT ========" 
do until WSE.StdOut.AtEndOfStream 
    WScript.Echo WSE.StdOut.ReadLine 
loop