Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 'WScript.Echo objArgs(I) WScript.Echo objArgs.Item(I) Next

まんま Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next For Each x in WScript.Arguments WScript.Echo x Next

WScript.Sleep 3000 WScript.Echo "foo" 単位はミリ秒

WScript.Quit 1 WScript.Echo "foo"

Set myExcel = GetObject("c:\foo.xls") myExcel.Application.Visible = True myExcel.Application.WorkBooks.Add

WScript.Echo 1, 2, "foo"

まんま Dim Controller, RemoteScript Set Controller = WScript.CreateObject("WSHController") Set RemoteScript = Controller.CreateScript("2011112200.vbs", "remoteserver") WScript.ConnectObject RemoteScript, "remote_" RemoteScript.Execute Do W…

Set myExcel = WScript.CreateObject("Excel.Application") myExcel.Visible = True myExcel.WorkBooks.Add strPrefix 不明

WScript.Echo WScript.Version 5.7

WScript.StdOut.Write WScript.StdIn.ReadLine

WScript.StdErr.Write WScript.StdIn.ReadLine

WScript.StdErr.Write "Hello!!" CScript でないと、「ハンドルが無効です。」とエラーに

WScript.Echo WScript.ScriptName

WScript.Echo WScript.ScriptFullName

まんま WScript.Echo WScript.Path

まんま WScript.Echo WScript.Name

まんま WScript.Echo WScript.Interactive CScript /B とすると挙動が変わるようだ

まんま WScript.Echo WScript.FullName

For Each x in WScript.Arguments MsgBox x Next まんま Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 WScript.Echo objArgs(I) Next

http://msdn.microsoft.com/ja-jp/library/cc364455.aspx のリファレンスを中心に読んでみようダブルクリックを前提としているためか？コマンド名が書いていない？ WScript.Echo "Hello World!" をダブルクリック、Wscript、Cscript などで起動してみたWscri…

Dim X(3) X = "foo" X(0) = "FOO" MsgBox X MsgBox X(0) 分離していない。「型が一致しません。」のエラー。

x = "foo" X = "FOO" MSGBOX x ' FOO MSGBOX X ' FOO

MsgBox "foo" & _ " bar" リファレンスには載っていなかった？？？

Class Foo Function foo1 MsgBox "foo1" End Function Function foo2 MsgBox "foo2" End Function End Class Set obj = New Foo With obj .foo1 .foo2 End With 入れ子 Class Foo Function foo1 MsgBox "foo1" End Function Function foo2 MsgBox "foo2" End…

While Null MsgBox "foo" Wend x = 0 While x < 1 MsgBox x & " : " & "bar" x = x + 1 Wend Exit するのはないの？

数値 x = 10 Select Case x Case 10 MsgBox "1 : " & x Case 20 MsgBox "2 : " & x Case 20 MsgBox "3 : " & x Case Else MsgBox "4 : " & x End Select 条件が重複していても怒られないようだ 文字列 x = "bar" Select Case x Case "foo" MsgBox "1 : " & x…

MsgBox "foo" ' hoge MsgBox "foo" : Rem hoge Rem MsgBox "foo"

Dim A() ReDim A(10,1) A(0,0) = 1 A(0,1) = "foo" ReDim Preserve A(10,1) MsgBox A(0,0) MsgBox A(0,1) 「最大 60 次元まで宣言することができます」。なぜ、60？

まんま Dim MyValue, Response Randomize ' 乱数ジェネレータを初期化します。 Do Until Response = vbNo MyValue = Int((6 * Rnd) + 1) ' 1 〜 6 のランダムな値を生成します。 MsgBox MyValue Response = MsgBox ("繰り返しますか ? ", vbYesNo) Loop 同じ…

オブジェクトへの参照を設定するものらしい。 Class Foo Private m_x Public Property Set x(val) Set m_x = val End Property Public Property Get x Set x = m_x End Property End Class Set x = new Foo Set x.x = new Foo MsgBox x.x.x で「オブジェクト…