VB Select Case ã¯ã‚‚ã£ã¨ä½¿ãˆã‚‹
ãŸã¨ãˆã°ã€æ¬¡ã®ã‚ˆã†ãªä½¿ã„æ–¹ãŒã§ãã¾ã™ã€‚ Age = InputBox("å¹´é½¢ã¯ï¼Ÿ") Select Case Age Case Is < 20 MsgBox "未æˆå¹´ã§ã™ã？" Case 30 To 39 MsgBox "３ï¼ä»£ã§ã™ã？" Case 77, 88, 99 MsgBox "喜寿ã‹ç±³å¯¿ã‹ç™½å¯¿ã§ã™ã？" Case Else MsgBox Age & "ã§ã™ã‹ãƒ»ãƒ»ãƒ»ã€‚" End Select ã“れらを組ã¿åˆã‚ã›ãŸæ¬¡ã®ã‚ˆã†ãªæ›¸ã方も有効ã§ã™ã€‚ Case 14, 20 To 30, Is >= 100 ã“ã®æ–‡ã¯ã€€ã€Œï¼‘ï¼”ã‹ã€ï¼’ï¼ã€œï¼“ï¼ã®é–“ã‹ã€ï¼‘ï¼ï¼ä»¥ä¸Šã€ã¨ã„ã†æ¡ä»¶ã‚’表ã—ã¾ã™ã€‚ ã¡ã‚‡ã£ã¨é¢ç™½ã„ã®ã¯ To ãŒæ–‡å—列ã«å¯¾ã—ã¦ã‚‚使ãˆã‚‹ç‚¹ã§ã™ã€‚ãŸã¨ãˆã°ã€æ¬¡ã®ã‚ˆã†ãªæ›¸ã方も有効ã§ã™ã€‚ Case "ã‹" To "ã“ã‚“ã‚“" ã“ã®æ¡ä»¶ã¯ã‚ã„ã†ãˆãŠé †ã§ã€Œå§‹ã‚ã®æ–‡å—ãŒã€Œã‹ã€è¡Œã ã£ãŸã‚‰ã€ã¨ã„ã†æ¡ä»¶ã‚’表ã—ã¾ã™ã€‚
å…¨ã¦ã¯æ™‚ã®ä¸ã«â€¦ : ã€VBS】テã‚ストファイルを作æˆã™ã‚‹
2008/4/1123:55 ã€VBS】テã‚ストファイルを作æˆã™ã‚‹ VBScriptã§ãƒ†ã‚ストファイルを作æˆã™ã‚‹æ–¹æ³•ã«ã¤ã„ã¦èª¬æ˜Žã—ã¾ã™ã€‚ テã‚ストファイルを作æˆã™ã‚‹ã«ã¯ã€ãƒ•ã‚¡ã‚¤ãƒ«ã‚·ã‚¹ãƒ†ãƒ オブジェクト（FileSystemObject）ã®CreateTextFileメソッドを利用ã—ã¾ã™ã€‚ テã‚ストファイルã¸ã®å‡ºåŠ›æ–¹æ³•ã¯ã€ä»¥ä¸‹ã®æ–¹æ³•ãŒã‚ã‚Šã¾ã™ã€‚ 1.CreateTextFileã®æˆ»ã‚Šå€¤ã§ã‚ã‚‹TextStreamオブジェクトを利用ã™ã‚‹ã€‚ 2.OpenAsTextStreamã®æˆ»ã‚Šå€¤ã§ã‚ã‚‹TextStreamオブジェクトを利用ã™ã‚‹ã€‚ 以下ã€ã‚µãƒ³ãƒ—ル。 ã€1.CreateTextFileã®æˆ»ã‚Šå€¤ã§ã‚ã‚‹TextStreamオブジェクトを利用ã™ã‚‹ã€‘ Dim FSO Dim oLog Set FSO = CreateObject("Scripting.FileSystemObject") Set oLog
VBScript Tips (Tips0118)
[カレントフォルダをå–å¾—ã™ã‚‹] カレントフォルダをå–å¾—ã—ã¾ã™ã€‚ ã€ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã€‘ [tips0118.vbs] Option Explicit On Error Resume Next Dim objWshShell ' WshShell オブジェクト Set objWshShell = WScript.CreateObject("WScript.Shell") If Err.Number = 0 Then WScript.Echo "ç¾åœ¨ã®ãƒ•ã‚©ãƒ«ãƒ€ã¯ " & objWshShell.CurrentDirectory & " ã§ã™ã€‚" Else WScript.Echo "エラー: " & Err.Description End If Set objWshShell = Nothing ã€å®Ÿè¡Œçµæžœã€‘ C:\Temp> cscript //NoLogo tips0118.vbs ç¾åœ¨ã®ãƒ•ã‚©ãƒ«
Character Setscharset=
Character Sets charset= Some Basic Ones charset=big5Chinese Traditional (Big5) charset=euc-krKorean (EUC) charset=iso-8859-1Western Alphabet charset=iso-8859-2Central European Alphabet (ISO) charset=iso-8859-3Latin 3 Alphabet (ISO) charset=iso-8859-4Baltic Alphabet (ISO) charset=iso-8859-5Cyrillic Alphabet (ISO) charset=iso-8859-6Arabic Alphabet (ISO) charset=iso-8859-7Greek Alphabet (ISO) charset
VBScript Tips
[VBScript Tips] â—基本プãƒã‚°ãƒ©ãƒ ・文å—列を画é¢ã«å‡ºåŠ›ã™ã‚‹ ・起動時ã®å¼•æ•°ã‚’å–å¾—ã™ã‚‹ ・起動時ã®å¼•æ•°ã‚’å–å¾—ã™ã‚‹ï¼ˆã‚ªãƒ—ション指定ã‚ã‚Šï¼ãªã—） ・ãƒãƒ¼ã‚¸ãƒ§ãƒ³ç•ªå·ã‚’å–å¾—ã™ã‚‹ ・コマンドåã®å–å¾—ã¨å¼·åˆ¶çµ‚了 ・起動スクリプトåã‚’å–å¾—ã™ã‚‹ ・標準入出力を使用ã™ã‚‹ï¼ˆç°¡æ˜“é›»å“） ・処ç†ã‚’一時åœæ¢ã™ã‚‹ ・数値ã®æ•´æ•°éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ ・数値を丸ã‚る（四æ¨äº”入） ・数値ã®åˆ‡ã‚Šæ¨ã¦ ・数値ã®åˆ‡ã‚Šä¸Šã’ ・８進数ã¨ï¼‘６進数ã«å¤‰æ›ã™ã‚‹ ・Ｎ進数ã«å¤‰æ›ã™ã‚‹ ・１〜１ï¼ã®ä¹±æ•°ã‚’発生ã•ã›ã‚‹ ・絶対値を計算ã™ã‚‹ ・πã®å€¤ã‚’計算ã™ã‚‹ ・余弦，æ£å¼¦ï¼Œæ£æŽ¥ã‚’計算ã™ã‚‹ ・指数関数を使ã£ã¦ã¿ã‚‹ ・文å—をコードã«å¤‰æ›ã™ã‚‹ ・コードを文å—ã«å¤‰æ›ã™ã‚‹ ・文å—列ã®é•·ã•ã‚’å–å¾—ã™ã‚‹ï¼ˆUNICODE） ・文å—列ã®é•·ã•ã‚’å–å¾—ã™ã‚‹ï¼ˆASCII） ・文å—列ã®ä¸€éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ï¼ˆUNICODE） ・文å—列ã®ä¸€éƒ¨åˆ†ã‚’å–å¾—ã™ã‚‹ï¼ˆASCII） ・文å—列
改行ã€ã‚¿ãƒ–æ–‡å—ãªã©ã®å®šæ•°
VB.NETã®å ´åˆæ”¹è¡Œã€ã‚¿ãƒ–æ–‡å—ãªã©ã®å®šæ•°ã¯ã€VB6ã¨åŒæ§˜ã«ã€vbCrLfã€vbTabãªã©ãŒä½¿ãˆã¾ã™ã€‚ã•ã‚‰ã«ControlCharsモジュールã®ãƒ¡ãƒ³ãƒã¨ã—ã¦ã‚‚登録ã•ã‚Œã¦ã„ã¾ã™ã€‚ Dim s As String 'ã‚ャリッジリターン文å—ã¨ãƒ©ã‚¤ãƒ³ãƒ•ã‚£ãƒ¼ãƒ‰æ–‡å— s = vbCrLf s = ControlChars.CrLf 'ã‚ãƒ£ãƒªãƒƒã‚¸ãƒªã‚¿ãƒ¼ãƒ³æ–‡å— s = vbCr s = ControlChars.Cr 'ãƒ©ã‚¤ãƒ³ãƒ•ã‚£ãƒ¼ãƒ‰æ–‡å— s = vbLf s = ControlChars.Lf '改行文å—（Windowsã§ã¯vbCrLfã¨åŒã˜ï¼‰ s = vbNewLine s = ControlChars.NewLine '値0ã‚’æŒã¤æ–‡å— s = vbNullChar s = ControlChars.NullChar 'ã‚¿ãƒ–æ–‡å— s = vbTab s = ControlChars.Tab 'ãƒãƒƒã‚¯ã‚¹
Microsoft Corporation
Microsoft Learn. Spark possibility. Build skills that open doors. See all you can do with documentation, hands-on training, and certifications to help you get the most from Microsoft products. Learn by doing Gain the skills you can apply to everyday situations through hands-on training personalized to your needs, at your own pace or with our global network of learning partners. Take training Find
Windows TIPS 全インデックス ― ï¼ IT
――――― Tech TIPS（旧Windows TIPS）全インデックス ――――― （本ページã¯ãŸã ã„ã¾æ›´æ–°ã‚’åœæ¢ã—ã¦ãŠã‚Šã¾ã™ã€‚→新ç€TIPSインデックス） Microsoft Azureã§éŽåŽ»ã«ç™ºç”Ÿã—ãŸéšœå®³ã®å±¥æ´ã‚’確èªã™ã‚‹ Microsoft Azureã§éŽåŽ»ã«ç™ºç”Ÿã—ãŸéšœå®³ã®å±¥æ´ã‚’確èªã™ã‚‹æ–¹æ³•ã‚’紹介ã™ã‚‹ã€‚発生ã™ã‚‹éšœå®³å†…容ãªã©ã‚’把æ¡ã—ã¦ãŠã‘ã°ã€äº‹å‰ã«è‡ªç¤¾ã‚µãƒ¼ãƒ“スã¸ã®å¯¾ç–ã‚‚è¡Œãˆã‚‹ã ã‚ã†ã€‚
ï¼ IT：é‹ç”¨ã€€Windows管ç†è€…ã®ãŸã‚ã®Windows Script Host入門　第1回 WSHã®å†…éƒ¨æ§‹é€ ã€€1．Windows管ç†ã«WSHを活用ã—よã†
管ç†ä½œæ¥ã§ã¯ã€æ±ºã¾ã‚Šãã£ãŸä¸€é€£ã®å‡¦ç†ã‚’実行ã—ãŸã‚Šã€åŒã˜å‡¦ç†ã‚’ç¹°ã‚Šè¿”ã—ãŸã‚Šã™ã‚‹ã“ã¨ãŒå¤šã„。WSHã§è‡ªå‹•åŒ–・çœåŠ›åŒ–を図ã‚ã†ã€‚ ãƒãƒƒãƒˆãƒ¯ãƒ¼ã‚¯ç®¡ç†è€…ã®æ¯Žæ—¥ã¯æ†‚鬱ã 。新è¦ã®ãƒ¦ãƒ¼ã‚¶ãƒ¼ã®è¿½åŠ ã‚„ãƒ¦ãƒ¼ã‚¶ãƒ¼æƒ…å ±ã®å¤‰æ›´ã€å…±æœ‰è³‡æºã®ãƒ¡ãƒ³ãƒ†ãƒŠãƒ³ã‚¹ã€éšœå®³ã®åŽŸå› 追求ãªã©ã€ä»•äº‹ã¯æ¬¡ã‹ã‚‰æ¬¡ã¸ã¨çµ‚ã‚ã‚ŠãŒãªã„。ã—ã‹ã‚‚実際ã®ä½œæ¥ã¨ã„ã£ãŸã‚‰ã€åŒã˜ã‚³ãƒžãƒ³ãƒ‰ã‚„ツールを繰り返ã—実行ã—ãŸã‚Šã€æ±ºã¾ã‚Šãã£ãŸä¸€é€£ã®ã‚³ãƒžãƒ³ãƒ‰ã‚„ãƒ„ãƒ¼ãƒ«ã‚’é †ã«å®Ÿè¡Œã—ãŸã‚Šã™ã‚‹ã ã‘ã®ã†ã‚“ã–ã‚Šã™ã‚‹å†…容ã ã£ãŸã‚Šã™ã‚‹ã‚‚ã®ã 。 周知ã®ã¨ãŠã‚Šã€Windowsã®ãƒ¡ãƒªãƒƒãƒˆã¯GUI環境ã ã¨ã„ã†ã“ã¨ã 。アプリケーションã¯ã‚‚ã¡ã‚ã‚“ã®ã“ã¨ã€Windows環境を管ç†ã™ã‚‹å„種ã®ç®¡ç†ãƒ„ールもGUI化ã•ã‚ŒãŸã“ã¨ã§ã€åˆå¿ƒè€…管ç†è€…ã§ã‚‚管ç†ä½œæ¥ã«æ‰‹ã‚’ã¤ã‘られるよã†ã«ãªã£ãŸã€‚グラフィカル・アプリケーションã®ãƒ¦ãƒ¼ã‚¶ãƒ¼ã¯ã€ãƒ¡ãƒ‹ãƒ¥ãƒ¼ã‚„ダイアãƒã‚°ã®è¡¨ç¤ºã«ã‚ˆã‚Šã€è‡ªåˆ†ã«ã©ã®ã‚ˆã†ãªæ“作ãŒè¨±ã•ã‚Œã¦ã„ã‚‹ã®ã‹ï¼ˆè¨±ã•ã‚Œã¦ã„ãªã„ã®ã‹
ディレクトリ内ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®å‡¦ç†
カレントディレクトリã«ãƒã‚°ãƒ•ã‚¡ã‚¤ãƒ«ãŒå¤šæ•°ã‚ã‚Šã€log_file_name.20051212 ã®ã‚ˆã†ãªãƒ•ã‚¡ã‚¤ãƒ«åã‚’æŒã£ã¦ã„ã¾ã™ã€‚ã“ã‚Œã¯æ¯Žæ—¥1ã¤ã ã‘作æˆã•ã‚Œã‚‹ãƒ•ã‚¡ã‚¤ãƒ«ã§ã€ã“れらを一括ã§ã²ã¨ã¤ã²ã¨ã¤åˆ¥ã€…ã®zip 書庫ã«åœ§ç¸®ã™ã‚‹å‡¦ç†ã‚’è¡Œã„ã¾ã™ã€‚ ( 例 : log_file_name.20051212 ã‚’ access.log ã«ã—㦠20051212.zip 内ã«ã‚«ã‚¿ãƒã‚° ) 1) ã¾ãšã€ä¸€è¦§è¡¨ç¤ºã—ã¦æƒ…å ±ã‚’ç¢ºèª Set objFolder = Fso.GetFolder( WshShell.CurrentDirectory ) Set objFiles = objFolder.Files strTargetName = "log_file_name" strFiles = "" For each objFile in objFiles if Fso.GetBaseName( objFile.Na
VBScript Guide
PDFã«ã‚ˆã‚‹MSフォント出力ã¯ãƒ•ã‚©ãƒ³ãƒˆã‚’埋ã‚è¾¼ã¿ã¾ã›ã‚“ / PDFã«ã‚ˆã‚‹ãƒ•ãƒªãƒ¼ãƒ•ã‚©ãƒ³ãƒˆå‡ºåŠ›ã¯ãƒ•ã‚©ãƒ³ãƒˆã‚’埋ã‚è¾¼ã¿ã¾ã™ 注æ„äº‹é … ◠パラメータä¿å˜é€ä¿¡ãƒœã‚¿ãƒ³ã§ã¯ã€çŠ¶æ…‹ã¨ãƒ‘ラメータãŒä¿å˜ã•ã‚Œã¾ã™ â— ç”»åƒãŒç¢ºå®šã—ãŸå ´åˆã¯ãƒ‘ラメータä¿å˜é€ä¿¡ãƒœã‚¿ãƒ³ã§ãƒ‘ラメータをä¿å˜ã—ã€ã€ŒãŠæ°—ã«å…¥ã‚Šã¾ãŸã¯ãƒ–ックマークã€ã«ä¿å˜ã™ã‚‹ 事ã«ã‚ˆã£ã¦å®¹æ˜“ã«å†ç¾å¯èƒ½ã§ã™ â— &#æ–‡å—コード; ã§ã‚‚表示å¯èƒ½ãªã®ã§ã€ç‰¹æ®Šæ–‡å—ã¯ã“ã®æ›¸å¼ã‚’使ã„ã¾ã™ : 例 ! => ! â— ç”»åƒã«æž ç·šã‚’ä»˜åŠ ã—ãŸã„å ´åˆã¯ã€Œç”»åƒæž ã€ã‚³ãƒ³ãƒœãƒœãƒƒã‚¯ã‚¹ã‚’使用ã—ã¾ã™ ◠自由ã®ç¿¼ãƒ•ã‚©ãƒ³ãƒˆ âž¡ ( ☑ 表示サンプル ) ※ ç¦æ¢äº‹é … 当フォントファイル(TTFファイル本体)ã‚’ç„¡æ–ã§è²©å£²ã™ã‚‹è¡Œç‚º M+ FONTS ベース 個人・商用å•ã‚ãšç„¡æ–™ã§ã”利用ã„ãŸã ã‘ã¾ã™ã€‚ â— ã‚Šã„ã¦ãŒãç† âž¡ ( ☑ 表示サンプル ) â— ã‚Šã„ãƒãƒƒãƒ—角 âž¡ ( ☑ 表示サンプル )
データ型ã«ã¤ã„ã¦ç†è§£ã‚’æ·±ã‚よㆠ− ï¼ IT
明示的ãªåž‹å¤‰æ› ã§ã¯ã€å…ˆã»ã©ã®Xã¨Yã®å€¤ã‚’ãã‚Œãžã‚Œå…¥åŠ›ã—ã¦ã€æ•°å€¤ã¨ã—ã¦è¶³ã—ç®—ã—ãŸã„å ´åˆã¯ã©ã†ã™ã‚‹ã‹ã¨ã„ã†ã¨ã€é–¢æ•°ã‚’用ã„ãŸæ˜Žç¤ºçš„ãªåž‹å¤‰æ›ãŒå¿…è¦ã«ãªã‚‹ã€‚ å…ˆã»ã©ã®ã‚³ãƒ¼ãƒ‰ã‚’ã€é–¢æ•°ã‚’用ã„ã¦æ˜Žç¤ºçš„ã«åž‹å¤‰æ›ã‚’è¡Œã†ã‚ˆã†ã«ã™ã‚‹ã€‚ Option Explicit Dim strX, strY, dblX, dblY, dblSum strX = InputBox("Xã®å€¤ã‚’入力ã—ã¦ãã ã•ã„。") If IsNumeric(strX) Then dblX = CDbl(strX) Else dblX = 0 End If strY = InputBox("Yã®å€¤ã‚’入力ã—ã¦ãã ã•ã„。") If IsNumeric(strY) Then dblY = CDbl(strY) Else dblY = 0 End If dblSum = dblX + dblY MsgBox strX & "+" & strY & "=
WSH Links
関連サイトã¸ã®ãƒªãƒ³ã‚¯ VBスクリプトやã€Jscriptã€WSHã€Windows関係ã®ãƒšãƒ¼ã‚¸ã®ä½œè€…ã®æ–¹ï¼ç›¸äº’リンクã—ã¾ã—ょã†ã€‚ ãªãŠã€ã“ã®Windows Scripting Host Laboratoryã«ã¯ã€ã”自由ã«ãƒªãƒ³ã‚¯ã—ã¦ã„ãŸã ã„ã¦çµæ§‹ã§ã™ã€‚ 連絡ã„ãŸã ã‘ã‚Œã°ã€ã‚¸ãƒ£ãƒ³ãƒ«ã‚’å•ã‚ãšã€ã“ã¡ã‚‰ã‹ã‚‰ã‚‚リンクã•ã›ã¦ã„ãŸã ããŸã„ã¨æ€ã„ã¾ã™ã€‚ 以下ã®ãƒªãƒ³ã‚¯ã¯åŸºæœ¬çš„ã«ç™»éŒ²é †ã§ã™ã€‚ マイクãƒã‚½ãƒ•ãƒˆå…¬å¼ãƒ›ãƒ¼ãƒ ページ|WSH・スクリプト関連ページ|コンãƒãƒ¼ãƒãƒ³ãƒˆãƒ»é–¢é€£ã‚½ãƒ•ãƒˆ|エディタ|Windows・ãã®ä»–|ニュースグループ|æŽ²ç¤ºæ¿ |æ›¸ç± ãƒžã‚¤ã‚¯ãƒã‚½ãƒ•ãƒˆå…¬å¼ãƒ›ãƒ¼ãƒ ページ タイトル 作者 メモ
ï¼ IT：é‹ç”¨ã€€Windows管ç†è€…ã®ãŸã‚ã®Windows Script Host入門　第10回　WSHスクリプトã‹ã‚‰ã®ãƒ•ã‚¡ã‚¤ãƒ«æ“作（1）
ã“ã‚Œã¾ã§ã¯Windows Script Host（WSH）ã®å„標準オブジェクトã®ç´¹ä»‹ã¨ã€ãã®åŸºæœ¬çš„ãªä½¿ã„方を解説ã—ã¦ããŸã€‚今回ã¨æ¬¡å›žã¯ã€WSH標準オブジェクトã§ã¯ãªãã€æ±Žç”¨ã®COMオブジェクトã§ã‚ã‚‹FileSystemObject（FSO）をå–り上ã’る。FSOを利用ã™ã‚Œã°ã€WSHã®æ¨™æº–オブジェクトã ã‘ã§ã¯ä¸å¯èƒ½ãªã€ãƒ•ã‚¡ã‚¤ãƒ«ã®å–り扱ã„ãŒå¯èƒ½ã«ãªã‚‹ã€‚ FileSystemObjectオブジェクト ã„ã¾ã¾ã§è¿°ã¹ãŸã¨ãŠã‚Šã€FSOã¯ã€WSHã®æ¨™æº–オブジェクトã§ã¯ãªãã€Active Server Pagesãªã©ã€WSH以外ã®ã‚¹ã‚¯ãƒªãƒ—ティング環境ã‹ã‚‰ã‚‚利用ã§ãる汎用ã®COMオブジェクトã§ã‚る。Webページ用ã®ã‚¹ã‚¯ãƒªãƒ—ト言語ã¨ã—ã¦é–‹ç™ºã•ã‚ŒãŸVBScriptã‚„JScriptã®è¨€èªžä»•æ§˜ã‚„ã€WSHã®æ¨™æº–オブジェクトã ã‘ã§ã¯ãƒ•ã‚¡ã‚¤ãƒ«ã‚’扱ã†ã“ã¨ã¯ã§ããªã„。ã—ã‹ã—FSOを利用ã™ã‚Œã°ã€WSHスクリプトã‹ã‚‰ã®ãƒ•ã‚¡ã‚¤ãƒ«ã®èª
TechNet Script Center
Summary: Using PowerShell to identify RPC ports in use by capturing content from PowerShell We'd like to introduce you today to one of our newest bloggers! It's a froopingly awesome friend of ours, Joel Vickery, PFE. (did I mention Dr. Scripto is a big fan of books written by Douglas Adams?....oops!) Take it away Joel! Thanks Doc! So ...
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
http://win.just4fun.biz/WSH/%E3%83%87%E3%82%A3%E3%83%AC%E3%82%AF%E3%83%88%E3%83%AA%E5%86%85%E3%81%AE%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%A8%E3%83%95%E3%82%A9%E3%83%AB%E3%83%80%E4%B8%80%E8%A6%A7%E3%82%92%E5%8F%96%E5%BE%97%E3%81%99%E3%82%8B%E6%96%B9
https://support.microsoft.com/ja-jp/help/180751
http://homepage2.nifty.com/pasocon/nyumon/main.html
VBScript Example Programs and Sample Code
Windows Script Host Laboratory
{{#tags}}- {{label}}
{{/tags}}