ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
【DF 用】 オンラインインストーラ : VBScript ( No.13 )
日時: 2014/04/09 11:13
名前: lightbox



http://winofsql.jp/wsf/df.wsf

ベクターに登録されている、DF をダウンロードインストールします。
この URL は変更される可能性が高いので注意して下さい。






<JOB>
<COMMENT>
************************************************************
 WEB WSH 実行スケルトン
************************************************************
</COMMENT>

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
	language="VBScript"
	src="http://homepage2.nifty.com/lightbox/laylaClass.vbs">
</SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://homepage2.nifty.com/lightbox/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "toolFunction.vbs" )

' 管理者として実行を強制する
Set obj = Wscript.CreateObject("Shell.Application")
if Wscript.Arguments.Count = 0 then
	obj.ShellExecute "cscript.exe", WScript.ScriptFullName & " runas & pause", "", "runas", 1
	Wscript.Quit
end if

' ***********************************************************
' ダウンロードする URL
' ***********************************************************
strDownloadPlace = "http://ftp.vector.co.jp/pack/win95/util/text/diff/df141.lzh"

' ***********************************************************
' ダウンロード
' ***********************************************************
ret = HTTPDownload( strDownloadPlace, TempDir & "\df.lzh" )
if not ret then
	Wscript.Echo ErrorMessage
	Wscript.Quit
end if

Wscript.Echo strDownloadPlace & vbCrLf & " をダウンロードしました"

' ***********************************************************
' 解凍ソフトの一時ダウンロード
' ***********************************************************
strDownloadPlace = "http://homepage2.nifty.com/lightbox/Lhasa.exe"

' ***********************************************************
' ダウンロード
' ***********************************************************
ret = HTTPDownload( strDownloadPlace, TempDir & "\Lhasa.exe" )
if not ret then
	Wscript.Echo ErrorMessage
	Wscript.Quit
end if

Wscript.Echo "解凍ソフトをダウンロードしました"

strCommand = Dd( TempDir & "\Lhasa.exe" ) & " -d- -a -q -f -e- " & Dd(TempDir & "\df.lzh")
RunSync(strCommand)

Wscript.Echo "ソフトウェアをテンポラリフォルダに解凍しました"

GetFso

' ***********************************************************
' 解凍ディレクトリの移動
' ***********************************************************
Call Fso.CopyFolder( TempDir & "\df", ProgDir & "\", True )
Wscript.Echo "ソフトウェアをプログラムフォルダへコピーしました"

Call Fso.DeleteFolder( TempDir & "\df" )
Wscript.Echo "テンポラリフォルダのファイルを削除しました"

' ***********************************************************
' ダウンロードファイルの削除
' ***********************************************************
Call Fso.DeleteFile( TempDir & "\df.lzh", True )
Call Fso.DeleteFile( TempDir & "\Lhasa.exe", True )
Wscript.Echo "ダウンロードファイルを削除しました"

' ***********************************************************
' ショートカット作成
' ***********************************************************
if YesNo("デスクトップにショートカットを作成しますか?") then

	Set obj = WshShell.CreateShortcut( DesktopDir & "\df.lnk")
	obj.TargetPath = Dd( ProgDir & "\df\DF.exe")
	obj.WindowStyle = 1
	obj.IconLocation = ProgDir & "\df\DF.exe"
	obj.Description = "DF"
	obj.WorkingDirectory = ProgDir & "\df"
	obj.Save
	Wscript.Echo "デスクトップにショートカットを作成しました"

end if

MsgOk( "処理が終了しました   " )

</SCRIPT>

</JOB>