Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Network domain or workgroup
Message
 
To
22/12/2008 16:54:26
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01369239
Message ID:
01369270
Views:
11
This message has been marked as the solution to the initial question of the thread.
OK, last one, What about WMI?
loLocator		= CREATEOBJECT('WBEMScripting.SWBEMLocator')
loWMI			= loLocator.ConnectServer()
loItems			= loWMI.ExecQuery("Select * from Win32_ComputerSystem")

For Each loItem in loItems
    ? Iif(loItem.PartOfDomain, "Computer Domain: " + loItem.Domain, "Workgroup: " + loItem.Workgroup)
Next
[Updated]
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?

"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare

"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform