VBScriptを使用した関数からの戻り値

Question

vbscriptを初めて使用しています。私は以下のPingTest関数から戻り値を取得しようとしていますが、関数定義（私はWindows 10を使用しています）でエラーが発生します。

Function PingTest(hostName) as Boolean 

のように、関数の戻り値の型を指定

Function PingTest(hostName) 
    ' Standard housekeeping 
    Dim colPingResults, objPingResult, strQuery 

    ' Define the WMI query 
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & hostName & "'" 

    ' Run the WMI query 
    colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery) 

    ' Translate the query results to either True or False 
    For Each objPingResult In colPingResults 
     If Not IsObject(objPingResult) Then 
      PingTest = False 
     ElseIf objPingResult.StatusCode = 0 Then 
      PingTest = True 
     Else 
      PingTest = False 
     End If 
    Next 
    colPingResults = Nothing 
End Function 


Dim output 
output= PingTest("www.google.com") 

WScript.Echo output 

Answer 1

illegal in VBscriptです。二思想に

：

型付き暗く -

Dim output As Boolean = PingTest("www.google.com") 

のようにはどちらか、VBScriptのではありません。 colPingResultsにオブジェクトを割り当てるにはSetが必要です。