1 '--- start of OLD vbslib include ------------------------------------------------------
\r
2 '// vbslib
\82Í
\81A3-clause BSD
\83\89\83C
\83Z
\83\93\83X
\82Å
\92ñ
\8b\9f\82³
\82ê
\82Ä
\82¢
\82Ü
\82·
\81B
\r
3 '//
\82±
\82±
\82Í
\81A
\8fC
\90³
\82µ
\82È
\82¢
\82Å
\82
\82¾
\82³
\82¢
\81B
\89º
\8bL
\83\81\83C
\83\93\8aÖ
\90\94\82©
\82ç
\83X
\83N
\83\8a\83v
\83g
\82ð
\8bL
\8fq
\82µ
\82Ä
\82
\82¾
\82³
\82¢
\81B
\r
4 '//
\82l
\82r
\83I
\83t
\83B
\83X
\82â
\83R
\83\93\83p
\83C
\83\89\82ª
\82 \82ê
\82Î
\81A
\89º
\8bL
\82Ì
\82\87\81Q
\82\84\82\85\82\82\82\95\82\87 \82ð
\82X
\82X
\82È
\82Ç
\82É
\82·
\82ê
\82Î
\81A
\83f
\83o
\83b
\83K
\82ª
\8eg
\82¦
\82Ü
\82·
\81B
\r
5 '//
\82r
\82\94\82\8f\82\90\96½
\97ß
\82ð
\8bL
\8fq
\82·
\82ê
\82Î
\81A
\83f
\83o
\83b
\83K
\82Í
\83u
\83\8c\81[
\83N
\82µ
\82Ü
\82·
\81B
\8fÚ
\82µ
\82
\82Í vbslib
\82Ì
\90à
\96¾
\8f\91\82Ì
\8dÅ
\8cã
\82Ì
\81u
\8d¢
\82Á
\82½
\82Æ
\82«
\82Í
\81v
\81B
\r
6 Dim g_debug, g_debug_params, g_admin, g_vbslib_path, g_CommandPrompt, g_fs, g_sh, g_AppKey, g_Vers
\r
7 If IsEmpty( g_fs ) Then
\r
8 Dim g_MainPath, g_SrcPath : g_SrcPath = WScript.ScriptFullName : g_MainPath = g_SrcPath
\r
9 Set g_Vers = CreateObject("Scripting.Dictionary") : g_Vers.Add "vbslib", 4.0
\r
11 '--- start of parameters for vbslib include -------------------------------
\r