C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 58 を表示中)
■33250 / )  Re[9]: vbscriptのメソッド名
□投稿者/ sikuminalex (5回)-(2009/02/24(Tue) 15:19:36)
HTMLに組み込んだ下記コードを実行すると、
「エラー」と「undefined」が返ってきます。


function cmd(szIPAddr){
//var ip = szIPAddr;
//alert(szIPAddr);
//execScript(ttt(szIPAddr), VBScript);
rc = ttt(szIPAddr);
alert(rc);
}

</script>

<SCRIPT LANGUAGE="VBScript" type="text/vbscript">

function ttt(szIPAddr)
Set objWMIService = GetObject("winmgmts:\\.")
Set PingSet = objWMIService.ExecQuery ("Select * From Win32_PingStatus Where Address = 'szIPAddr'")

For Each Ping In PingSet

Select Case Ping.StatusCode
Case 0
MsgBox "Success"
Case 11010
MsgBox "Request Timed Out"
Case Else
MsgBox "エラー"
End Select

Next
end function

</SCRIPT>

ちなみに、VBSCIPTのみを拡張子.vbsにて実行すると「Success」が返ってきます。
この違いはなにが考えられますか。

-ping.vbs-

Set objWMIService = GetObject("winmgmts:\\.")
Set PingSet = objWMIService.ExecQuery ("Select * From Win32_PingStatus Where Address = '190.190.20.244'")

For Each Ping In PingSet

Select Case Ping.StatusCode
Case 0
MsgBox "Success"
Case 11010
MsgBox "Request Timed Out"
Case Else
MsgBox "エラー"
End Select

Next
返信 編集キー/


管理者用

- Child Tree -