使用VBScript从函数返回值

Question

我是vbscript的新手。我试图从下面的PingTest函数获取返回值，但它在函数定义中给我一个错误（我正在使用Windows 10）。

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

指定函数的返回类型如

Function PingTest(hostName) as Boolean 

是illegal in VBscript。

关于第二个想法：

类型化变暗 - 在

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

不是VBScript中，无论是。并将对象分配到colPingResults需要Set。