Here is a quickie

[Mike Gagnon]

To get the computer name

Shell = CreateObject("WScript.Shell")
CompName = Shell.ExpandEnvironmentStrings("%COMPUTERNAME%")
MESSAGEBOX(compname)

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[rgbean]

Mike,
Is that really easier than

messagebox(GETENV("COMPUTERNAME"))

Note: Not all OSs set a COMPUTERNAME environment variable!

Rick

 

[Mike Gagnon]

Rick

I always try to use FoxPro outside of the regular everyday usage. You are right that ther is an internal function that does similar things, but its always nice to know that there are other ways.. Here are more values to retrieve.

Shell = CreateObject("WScript.Shell")
lcStr = "Computer name: "+Shell.ExpandEnvironmentStrings("%COMPUTERNAME%")+CHR(13)
lcStr=lcStr+ "OS: "+Shell.ExpandEnvironmentStrings("%OS%")+CHR(13)
lcStr=lcStr+ "Paths :" +Shell.ExpandEnvironmentStrings("%PATH%")+CHR(13)
lcStr=lcStr+ "Home Path: "+Shell.ExpandEnvironmentStrings("%HOMEPATH%")+CHR(13)
lcStr=lcStr+ "ClientName : "+Shell.ExpandEnvironmentStrings("%CLIENTNAME%")+CHR(13)
lcStr=lcStr+ "Temp directory :" +Shell.ExpandEnvironmentStrings("%TMP%")+CHR(13)
MESSAGEBOX(lcStr)

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[terosoft]

One more:

CompName = UPPER(ALLTRIM(LEFT(SYS(0),AT("#",SYS(0))-1)))

Issuing SYS(0) alone will give you computer name AND current user name.

Gerardo Czajkowski

 

[agoeddeke]

While we're at it:

o=CREATEOBJECT("mswinsock.winsock")
ComputerName = o.LocalHostName

Andy