[port139ml:03935] Re: MS03-026のワームが出現???

[Tomoki Sanaki <sanaki@xxxxxxxxxxxx>]

佐名木という者です。

# いまだに DCOM がよく分からない...

WSH 5.6? から リモートホストにスクリプトが送り込めるようになりました。
WshRemote オブジェクト
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/wslrfremote_wshobject.asp
この機能に DCOM 使っているようです。

WSH 5.6 の入っている W2k だと、以下の WSH スクリプトでも DCOM の動作を
確認できるかもしれません。
# WinXP ではなぜか動作しない...!?

a.vbs は、単純に実行されたホストに c:\a.txt というファイルを作るだけです。
んでもって、
hostA に a.vbs と b.vbs を用意して、
(b.vbs の 3 行目で a.vbs のファイルパスを修正する必要がある)
(b.vbs の 3 行目で リモートホスト{hostB}のアドレスを修正する必要がある)
(a.vbs,b.vbs ともに hostA です)
(hostB では、WSHRemote という DCOM を有効にする)

b.vbs を実行すると、hostB に c:\a.txt ができていると DCOM 成功です。

これだと、管理端末でスクリプトを作って、各端末にスクリプトを一斉配信。
なんて、すばらしいリモート管理もできるかなぁ。と思いました。
# リモート管理です!!。....黒いことなどは考えていないですよ。

-------------- a.vbs ------------------------------
Set FSObj = WScript.CreateObject("Scripting.FileSystemObject")
Set FileObj = FSObj.CreateTextFile("c:\a.txt")
FileObj.Write("jajajafa")
FileObj.Close
Set FileObj = Nothing
Set FSObj = Nothing
WScript.Quit
-------------- a.vbs ------------------------------

-------------- b.vbs ------------------------------
Dim Controller, RemoteScript
Set Controller = WScript.CreateObject("WSHController")
Set RemoteScript = Controller.CreateScript("c:\a.vbs","\\192.168.0.1")
WScript.Echo "start"
RemoteScript.Execute
WScript.Echo "begin"

While RemoteScript.Status <> 2 
    WScript.Echo RemoteScript.Status
    WScript.Sleep 100
Wend
WScript.Echo "done"
WScript.Quit
-------------- b.vbs ------------------------------

Makoto Shiotsuki wrote on 2003-8/3(日) 21:59:48
>一応、DCOMが無効になっていることはieenで確認しましたが...

以上、よろしくお願いします

2003-8/20(水) 19:35:51 作成開始

 -----------------------------------------------------
 佐名木 智貴(Tomoki Sanaki) 
    E-mail=active@xxxxxxxxxxxxxxxxxx
 PGP FingerPrint 
 = 34E5 2A31 45C8 2CB5 3CED  0B46 F328 A402 7182 DCC6