REM **********************************************************
REM WScript.Shell の取得
REM **********************************************************
Function GetWshShell( )
if not IsObject( WshShell ) then
Call GetObj( "WshShell", "WScript.Shell" )
end if
End Function
|