Vbscript Функция печати Выход

Question

У меня есть создать VBscript перечислить пользователей в группе

Function GetUserInGroup() 
strComputer = "localhost" 
Set colGroups = GetObject("WinNT://" & strComputer & "") 
colGroups.Filter = Array("group") 
For Each objGroup In colGroups 
    For Each objUser in objGroup.Members 
     If objUser.name = "yayantritaryana" Then 
      WScript.stdout.write objGroup.Name + " " 
     End If 
    Next 
Next 
End Function 
WScript.stdout.write "Group=" + GetUserInGroup 

Но когда я исполняю его, выход is'nt, что я ожидал

Выход I Wanted как

Group=Administrator SQLAdmin Sysadmin 

Может кто-нибудь мне помочь?

Answer 1

A Function имеет цель (например, доставку строки разделенных пробелами имен групп). Для этого вы задаете желаемый результат имени функции (другие языки используют своего рода оператора возврата):

Function GetUserInGroup() 
    GetUserInGroup = "pi pa po" 
End Function 

WScript.stdout.write "Group=" & GetUserInGroup() 

выход:

cscript 29053176.vbs 
Group=pi pa po 

функция не должна иметь side-effects (как ваш

WScript.stdout.write objGroup.Name + " " 

, который печатает имена на консоли before, вы выводите «Group =» в последней строке вашего скрипта). Вместо этого объедините objGroup.Names.

Оператор для конкатенации строк &.

Список возможных функций вызова функции должен быть заключен(); этот список параметров() являются незаконными для вызовов Sub.

Некоторые дополнительного кода в качестве пищи для размышлений:

Function GetUserInGroup() 
    For Each s In Split("pi pa po") 
     GetUserInGroup = GetUserInGroup & s & "*" 
'  GetUserInGroup = GetUserInGroup() & s & "*" 
    Next 
End Function 

WScript.stdout.write "Group=" & GetUserInGroup()