| <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>
| |