|
REM **********************************************************
REM 実行中のスクリプトのタイプ
REM 1:WSH, 2:HTA, 3:ASP, 0:不明
REM **********************************************************
Function ScriptType( )
Dim nType
nType = 0
if IsObject( Wscript ) then
nType = 1
else
if IsObject( window ) then
nType = 2
else
if IsObject( Server ) then
nType = 3
end if
end if
end if
ScriptType = nType
End Function
| |