Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Converting a VB script to VFP
Message
From
04/08/2004 09:28:50
 
 
To
04/08/2004 09:21:36
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00930631
Message ID:
00930634
Views:
8
Fernando, try replacing the Array('group') with @group to pass the array by reference. I think this or something close to it will work. Ran into something similar to it years ago so can't recall it exactly.
>Hi,
>
>I have the following VB script, that I need to convert to VFP:
>
>
>strComputer = "MyServer"
>
>Set colGroups = GetObject("WinNT://" & strComputer & "")
>
>colGroups.Filter = Array("group")
>
>For Each objGroup In colGroups
>    Wscript.Echo objGroup.Name
>    For Each objUser in objGroup.Members
>        Wscript.Echo vbTab & objUser.Name
>    Next
>Next
>
>I tried to convert to the following VFP code, but get stuck with the line "colGroups.Filter = Array ("group")"
>
>strComputer = "MyServer"
>
>colGroups = GetObject("WinNT://" + strComputer + "")
>
>colGroups.Filter = Array ("group")
>
>For Each objGroup In colGroups
>    Wait Window NoWait objGroup.Name
>    For Each objUser In objGroup.Members
>        Wait Window NoWait objUser.Name
>    Next
>Next
>
>Wait Clear
>
>How should it be?
>
>TIA,
>
>Fernando
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform