WshStdErrNumber.VBS V1.00 (C) yoshioka.teruo@nifty.com 2005-07-25

CScript.EXEŃG[IErr.NumberoȂVBScript

1. ړIApr

.VBSȂǂWSHXNvgCScript.EXEŎsāAG[Iꍇ́A
G[񂪕WG[ɏo͂܂B
AWScript.EXEŎsꍇƈāÂAƂɁA
Err.Numbero܂Bł́Aƍ邱Ƃ܂B
ŁAErr.NumberoƁAOn Error Resume NextȂǂŊ撣ƁA
x́AG[ӏ(s)ȂǏ񂪏o܂B
ƊȒPɁAXNvgG[IƂɁAErr.NumberWG[
o悤ɂ菇łB

2. gp@

(1) 

Class ScriptTerminate 
Sub Class_Terminate() 
If Err.Number<>0 And InStr(UCase(WScript.FullName),"\CSCRIPT.EXE")>0 Then
 WScript.StdErr.WriteLine "G[R[h: "&Err.Number&" &H"& Hex(Err.Number)
End If
End Sub 
End Class 
Set OnScriptTerminate=new ScriptTerminate 

̃IuWFNgQƂ͖IɉȂ̂ŁAXNvgIɎI
܂B̍ۂSub Class_Terminate()܂B

Sub Class_Terminate()ɃXNvgI̍ŏILqĂƁA
XNvg̏IWScript.Quit̉ōŏI܂B
G[NƂAG[o͂ɍŏI܂B 

G[Joς݂̉ߋErr.NumberĐݒ肵Ȃ悤A
䂪KvłB

̓Iɂ́AIɂ́AErr.ClearŃS~܂B
Err.Clear
WScript.Quit

ŏIł́AErr.Number<>0  CScript.EXEŎsꂽƂA
WG[Err.Numbero܂B

(2) Tv WshStdErrNumber.VBS / WshStdErrNumber.CMD

WshStdErrNumber.CMD́AWshStdErrNumber.VBSCScript.EXEŋN܂B

3. ⑫

(1) WSH
WSH2.0ȍ~KvłB
Windows 98/SE	WSH1.0	XVKv
Windows ME	WSH2.0
Windows 2000	WSH2.0
Windows XP	WSH5.6

4. 

1.00 2005-07-25 VK쐬B

5. ̑

y\tgz@WshStdErrNumber.VBS V1.00
yo^z@WshStdErrNumber.ZIP
y쌠ҁz@g  ƗY ( yoshioka.teruo@nifty.com )
yΉ@z@Windows 98/ME/2000/XP
yKv\tgz@Ȃ
yJz@Microsoft VBScript
y\tgʁz@t[\tgEFA
y]ڏz@Ȃ

ȏ
