<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)で送る
－★手書きブログ用カスタムカラー保存・復帰

' **********************************************************
' 列挙
' **********************************************************
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