レジストリの処理

  レジストリキーの列挙



  
<JOB>
<SCRIPT
	language="VBScript"
	src="http://lightbox.on.coocan.jp/host/vbs/baseFunction.vbs"
></SCRIPT>
<SCRIPT
	language="VBScript"
	src="http://lightbox.on.coocan.jp/host/vbs/wmiReg.vbs"
></SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
strPath = "Software\Microsoft\Internet Explorer\MenuExt"
bRet = WMIRegEnumKey( HKEY_CURRENT_USER, strPath, aKeys )

if not bRet then
	Wscript.Echo ErrorMessage
	Wscript.Quit
end if

For Each data In aKeys

	Wscript.Echo data

Next

</SCRIPT>
</JOB>
  



  
C:\laylaClass>cscript test.wsf
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

リンクのURL
リンクのテキスト
画像のURL
−◎AMAZON リンク
−◎この画像で続きを読むリンク
−◎この画像を使用したHTML
−◎リンクのURLとテキスト
−◎レビュージャンプ
−●このページのURL
−★★BODY
−★ブラウザの情報をメール(basp21)で送る
−★ブラウザの情報をメール(CDO.Message)で送る
−★手書きブログ用カスタムカラー保存・復帰
  



  WMIRegEnumKey



  
' **********************************************************
' 列挙
' **********************************************************
Function WMIRegEnumKey( nType, strPath, aKeys )
	WMIRegEnumKey = False

	LoadWMIReg

	on error resume next
	WMIRet = objRegistry.EnumKey( nType, strPath, aKeys )
	if Err.Number <> 0 then
		ErrorMessage = Err.Description
		Exit Function
	end if
	if WMIRet <> 0 then
		ErrorMessage = Hex( WMIRet )
		Exit Function
	end if
	on error goto 0

	WMIRegEnumKey = True
End Function
  










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





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

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ