折角なので何かの参考に、レジストリに登録しないで動かせましたが、ウチでは止まっていたサービス(COM+ System Application)を動かす必要がありました。
-----^ sakuraTest.wsc -----< cut hear
<?xml version="1.0"?>
<component>
<?component error="true" debug="true"?>
<registration
description="sakuraTest"
progid="sakuraTest.WSC"
version="1.00"
classid="{a24c7f52-9433-428e-8986-b09d950d4f70}"
>
</registration>
<public>
<property name="Titl">
<put/>
</property>
<method name="Popup2sec">
<PARAMETER name="strMsg"/>
</method>
</public>
<implements type="Behavior" id="Behavior"/>
<script language="JScript">
<![CDATA[
var description = new sakuraTest;
function sakuraTest()
{
this.put_Titl = put_Titl;
this.Popup2sec = Popup2sec;
}
var Titl = "Sakura Popup";
function put_Titl(newValue)
{
Titl = newValue;
}
function Popup2sec(strMsg)
{
var WshShell = new ActiveXObject("WScript.Shell");
var rtnCode = WshShell.Popup(strMsg, 2, Titl, 0);
return rtnCode;
}
]]>
</script>
</component>
-----$ sakuraTest.wsc -----< cut hear
ここから使う側
// test1.js
var sTest = GetObject("script:C:\\WSC\\sakuraTest.WSC");
sTest.Titl = "タイトル"; // property
sTest.Popup2sec("２秒表示"); // method
' test2.vbs
Set sTest = GetObject("script:C:\\WSC\\sakuraTest.WSC")
sTest.Titl = "タイトル" ' property
sTest.Popup2sec("２秒表示") ' method
# test3.pls
use Win32::OLE;
my $sTest=Win32::OLE->GetObject("script:C:\\WSC\\sakuraTest.WSC");
$sTest->{"Titl"} = "タイトル"; # property
$sTest->Popup2sec("２秒表示"); # method
エクスプローラから動かしたときと、マクロで動かしたときで、２秒で閉じるか閉じないかの違いがあります。