It sounds as if nothing is defined.

It sounds as if nothing is defined. Try moving the top DIM and other variable definition lines into each of the callback functions.
Example:
Move these lines…
‘ DECLARE VARIABLES
Dim strComputer, objWMIService, strService, strParentService, colServiceList, errReturn, objService
‘ DEFINE SCRIPT ENVIRONMENT VARIABLES
strComputer = “.”
‘ SET GLOBAL VARIABLES
Set objWMIService = GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “
ootcimv2″)
Into each of the callback functions you are using.

Kết quả (Việt) 1:

Nghe có vẻ như nếu không có gì được định nghĩa. Hãy thử di chuyển DIM hàng đầu và các dòng định nghĩa biến vào mỗi của các chức năng gọi lại.Ví dụ:Di chuyển những dòng này...' TUYÊN BỐ BIẾNDim strComputer, objWMIService, strService, strParentService, colServiceList, errReturn, objService' XÁC ĐỊNH KỊCH BẢN BIẾN MÔI TRƯỜNGstrComputer = "."' ĐẶT BIẾN TOÀN CẦUThiết lập objWMIService = GetObject ("winmgmts: {impersonationLevel = mạo danh}! \" & strComputer & "
ootcimv2″)Vào mỗi của các chức năng gọi lại bạn đang sử dụng.

Kết quả (Việt) 2:

Nghe có vẻ như không có gì được xác định. Hãy thử di chuyển DIM đầu và dòng định nghĩa biến khác vào từng chức năng gọi lại.
Ví dụ:
Di chuyển những dòng này ...
'khai báo các biến
Dim strComputer, objWMIService, strService, strParentService, colServiceList, errReturn, objService
'DEFINE BIẾN MÔI TRƯỜNG SCRIPT
strComputer = "."
'BIẾN GLOBAL SET
Set objWMIService = GetObject ("winmgmts: {impersonationLevel = mạo danh} \!" & strComputer & " root cimv2")
vào từng chức năng gọi lại bạn đang sử dụng.