WEB WSH

  テスト中サンプルコード



  
<JOB>
<COMMENT>
************************************************************
 標準的なオブジェクト
************************************************************
</COMMENT>
<OBJECT id="WshShell" progid="WScript.Shell" />
<OBJECT id="WshNetwork" progid="WScript.Network" />
<OBJECT id="Fso" progid="Scripting.FileSystemObject" />
<OBJECT id="Dic" progid="Scripting.Dictionary" />
<OBJECT id="Shell" progid="Shell.Application" />

<OBJECT id="Cn" progid="ADODB.Connection" />
<OBJECT id="Rs" progid="ADODB.Recordset" />
<OBJECT id="Stream" progid="ADODB.Stream" />
<OBJECT id="Adox" progid="ADOX.Catalog" />

<REFERENCE object="ADODB.Connection" />

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

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

Wscript.Echo Ss(laylaGetVersion)

strTarget = "layla001"
strPath = "." & strTarget
' 対象キー削除
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strPath & "\ShellNew" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strPath )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open\command" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget & "\shell" )
Call WMIRegDeleteKey( HKEY_CLASSES_ROOT, strTarget )

Call WMIRegCreateKey( HKEY_CLASSES_ROOT, strPath & "\ShellNew" )

Call WMIRegSetStringValue( HKEY_CLASSES_ROOT, strPath, Empty, strTarget )

strCommand = _
"wscript.exe ""C:\Program Files\laylaClass\" & strTarget & ".vbs"" ""%1"""
Call WMIRegSetStringValue( _
	HKEY_CLASSES_ROOT, _
	strPath & "\ShellNew", "Command", strCommand )

Call WMIRegCreateKey( HKEY_CLASSES_ROOT, strTarget & "\shell\open\command" )
Call WMIRegSetStringValue( HKEY_CLASSES_ROOT, strTarget, Empty, "HTML作成" )

strCommand = """notepad.exe"" ""%1"""
Call WMIRegSetStringValue( _
	HKEY_CLASSES_ROOT, _
	strTarget & "\shell\open\command", Empty, strCommand )

</SCRIPT>
</JOB>
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ