スクリプトオンライン【２】

スクリプトオンライン【２】

日時： 2018/01/30 17:41
名前： lightbox

▼ ※ 使用上の注意

その場で実行するか、ダウンロードして実行するか自由ですが、本ソフトを使用した結果については、一切責任を負えせんのでご了承ください。



テンプレート
拡張子:<JOB>
<COMMENT>
************************************************************
 WEB WSH 実行スケルトン
************************************************************
</COMMENT>

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

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
Call laylaLoadFunction( "wmiReg.vbs" )




</SCRIPT>
</JOB>

MDB 作成 ( No.1 )

日時： 2018/01/30 17:41
名前： lightbox

http://winofsql.jp/wsf/createMdb.wsf

拡張子:<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

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

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

if CreateMdb(MyDocDir & "\新規.mdb") then
	MsgOk(MyDocDir & "\新規.mdb を作成しました")
	OpenDir(MyDocDir)
else
	MsgOk(ErrorMessage)
end if


</SCRIPT>
</JOB>

TeraPad Ver 0.93 のインストール( 開発者向け ) ( No.2 )

日時： 2018/01/30 17:38
名前： lightbox

拡張子:Program Files があるドライブに laylaClass というディレクトリを作成してインストールします
これは、vista が Program Files に対して特殊なセキュリティ保護を行っている為です



ユーザディレクトリを作って、Terapad.ini を作成しますが、一度設定ダイアログから
OK ボタンをクリックして、書き込みしたほうが良いでしょう。
(ショートカットは、SendTo にも作成します)


※ ini には、デフォルトで設定されない開発に最低限必要な設定がなされています
1) 行番号の常時表示
2) 拡張子の追加
3) スペース等の空白文字を全て目視可能にする
4) ウインドウのサイズを終了時に保存
5) タイトルにフルパスでファイルの場所を表示

ブラウザでダウンロード

テンプレート登録【MKEditor プロジェクト】 ( No.3 )

日時： 2018/01/30 17:42
名前： lightbox

http://winofsql.jp/wsf/newTemplate_layla002.wsf

拡張子:<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

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

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )

TargetPath = TemplateDir & "\layla002.tpl"
TeplateText = GetInline( "Template" )
Call PutTextFile( TargetPath, TeplateText )

TargetPath = TemplateDir & "\layla002.vbs"
VbsText = GetInline( "CopyTemplate" )
VbsText = Replace( VbsText, "$FROM", TemplateDir & "\layla002.tpl" )
Call PutTextFile( TargetPath, VbsText )

TargetPath = TempDir & "\layla002.reg"
ScriptPath = Replace( TemplateDir & "\layla002.vbs", "\", "\\" )
RegText = GetInline( "regData" )
RegText = Replace( RegText, "$SCRIPT", ScriptPath )
Call PutTextFileUnicode( TargetPath, RegText )

Call RunSync( "regedit.exe " & Dd(TargetPath) )

</SCRIPT>

<COMMENT>
************************************************************
 テンプレート
************************************************************
</COMMENT>
<RESOURCE id="Template">
<![CDATA[
// MKEditor for Windows Project
// Version 3.8
// ProjectFile: 

/* ProjectItem */
Type=ntBox
Level=0
Name=ボックス
Lock=0
Comment=
Ext=
begin/*
*/end

/* ProjectItem */
Type=ntTrash
Level=0
Name=ゴミ箱
Lock=0
Comment=
Ext=
begin/*
*/end

>
</RESOURCE>

<COMMENT>
************************************************************
 レジストリ登録用データ
************************************************************
</COMMENT>
<RESOURCE id="regData">
<![CDATA[
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.layla002]
@="layla002"

[-HKEY_CLASSES_ROOT\.layla002\ShellNew]

[HKEY_CLASSES_ROOT\.layla002\ShellNew]
"Command"="wscript.exe \"$SCRIPT\" \"%1\""

[HKEY_CLASSES_ROOT\layla002]
@="MKEditor プロジェクト"

[HKEY_CLASSES_ROOT\layla002\shell]

[HKEY_CLASSES_ROOT\layla002\shell\open]

[HKEY_CLASSES_ROOT\layla002\shell\open\command]
@="\"notepad.exe\" \"%1\""
>
</RESOURCE>

<COMMENT>
************************************************************
 登録用スクリプト
************************************************************
</COMMENT>
<RESOURCE id="CopyTemplate">
<![CDATA[
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
strTemplate = "_MKEditor.mkp"

on error resume next
strTarget = WScript.Arguments(0)
aData = Split( strTarget, "\" )
strTarget = ""
For I = 0 to Ubound( aData ) - 1
	strTarget = strTarget & aData( I ) & "\"
Next
if Fso.FileExists(strTarget & strTemplate) then
	if vbOK = MsgBox( "テンプレートファイルが既に存在しますが、置き換えますか?", vbOKCancel, "laylaClass" ) then
		Call Fso.CopyFile( "$FROM", strTarget & strTemplate, True )
	end if
else
	Call Fso.CopyFile( "$FROM", strTarget & strTemplate, False )
end if
on error goto 0
]]>
</RESOURCE>

</JOB>

簡易詳細設計書フォーマット作成 ( No.4 )

日時： 2009/07/12 14:10
名前： lightbox




( ※ Microsoft Excel がインストールされている必要があります )
( ※ マイ ドキュメントに作成されます )

Batch Helper オプジェクトのインストール ( No.5 )

日時： 2018/01/30 17:42
名前： lightbox

http://winofsql.jp/wsf/setupBatchHelper.wsf

拡張子:<JOB>
<COMMENT>
************************************************************
 WEB WSH 実行スケルトン
************************************************************
</COMMENT>

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

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

Crun2 110

' ***********************************************************
' ダウンロードする URL
' ***********************************************************
strDownloadPlace = "http://winofsql.jp/wsf/lbox.dll"

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

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

' ***********************************************************
' ダウンロードする URL
' ***********************************************************
strDownloadPlace = "http://winofsql.jp/wsf/BatchWsc.wsc"

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


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

GetWshShell

on error resume next
' インストールされているかどうか
strValue = WshShell.RegRead("HKCR\Lbox.BatchHelper\CLSID\")
if Err.Number = 0 then
	' 現在の情報でアンインストール
	strValue = "HKCR\CLSID\" & strValue
	strValue = strValue & "\InprocServer32\"
	strValue = WshShell.RegRead(strValue)
	strValue = "regsvr32.exe /u /s """ & strValue & """"
	Call RunSync( strValue )
end if
on error goto 0

strValue = "regsvr32.exe """ & SysDir & "\lbox.dll"""
Call RunSync( strValue )

on error resume next
strValue = WshShell.RegRead("HKCR\Lbox.BatchWsc\CLSID\")
if Err.Number = 0 then
	' 現在の情報でアンインストール
	strValue = "HKCR\CLSID\" & strValue
	strValue = strValue & "\ScriptletURL\"
	strValue = WshShell.RegRead(strValue)
	strValue = "regsvr32.exe scrobj.dll /s /u /n /i:""" & strValue & """"
	Call RunSync( strValue )
end if
on error goto 0

' BatchWsc.wsc のインストール
strValue = "regsvr32.exe scrobj.dll /n /i:file://""" & SysDir & "\BatchWsc.wsc" & """"
	Call RunSync( strValue )

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

</SCRIPT>

</JOB>

OSバージョン表示 ( No.6 )

日時： 2018/01/30 17:42
名前： lightbox

Double 型で返されます

http://winofsql.jp/wsf/DisplayOSVersion.wsf
拡張子:<JOB>
<COMMENT>
************************************************************
 WEB WSH 実行スケルトン
************************************************************
</COMMENT>

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

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Crun
Wscript.Echo GetOSVersion( )

</SCRIPT>
</JOB>

GUID 取得 ( No.7 )

日時： 2018/01/30 17:43
名前： lightbox

ブラウザでダウンロード


拡張子:<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン
************************************************************
</COMMENT>

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

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )

Call GetObj("TypeLib","Scriptlet.TypeLib")
strId = TypeLib.Guid
MsgOk "ctrl+c でクリップボードへコピーして下さい" & vbCrLf & vbCrLf & strId

</SCRIPT>
</JOB>

プライバシーポリシー