在dos下，用：net user > i:zzz.txt，就可以得到系统用户信息，请问在VFP下如何获得同样的用户信息，谢谢帮助！已解决问题）

*--枚举用户和组

LOCAL oWbemLocator, oWMIService, oItems, oItem
oWbemLocator = CREATEOBJECT("WbemScripting.SWbemLocator")
oWMIService = oWbemLocator.ConnectServer(".","root/cimv2")
oItems = oWMIService.ExecQuery("SELECT Name FROM Win32_Account")
FOR EACH oItem IN oItems
    ? oItem.Name
ENDFOR

[[it] 本帖最后由 yrt888 于 2008-3-14 09:38 编辑 [/it]]

谢谢解答，我不想RUN，因为RUN，就会占用CPU的，虽然只是一两秒，当也不爽啊，请在帮助！