Obtaining computer name

[fhutt]

Hello,
I have been able to obtain the user name in my computer with:
set use $tcl_platform(user)
But, I don't see a similar way to obtain the name of the running computer.
Is there some method to get the name of the computer?
Thanks

 

[fdservices]

In windows the computer name is stored in a variable %computername%

In linux the command "hostname" returns the computer name.

Andrew

 

[mikrom]

Yes, try to obtain the computername from system environment:
envir.tcl

[COLOR=#0000ff]# list all evironment variables[/color]
[COLOR=#804040][b]foreach[/b][/color] key [[COLOR=#804040][b]lsort[/b][/color] [[COLOR=#804040][b]array[/b][/color] names env]] {
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"[/color][COLOR=#008080]$key[/color][COLOR=#ff00ff] = [/color][COLOR=#008080]$env[/color][COLOR=#ff00ff]([/color][COLOR=#008080]$key[/color][COLOR=#ff00ff])"[/color]
}

[COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"***********************"[/color]

[COLOR=#0000ff]# on Windows there is variable COMPUTERNAME[/color]
[COLOR=#804040][b]set[/b][/color] computer_name [COLOR=#008080]$env[/color](COMPUTERNAME)
[COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"computername = '[/color][COLOR=#008080]$computer_name[/color][COLOR=#ff00ff]'"[/color]

[COLOR=#0000ff]# check if variable exists then print it[/color]
[COLOR=#804040][b]set[/b][/color] var_name {COMPUTERNAME} 
[COLOR=#804040][b]if[/b][/color] {[[COLOR=#804040][b]info[/b][/color] exists env([COLOR=#008080]$var_name[/color])]} {
  [COLOR=#804040][b]set[/b][/color] var_value [COLOR=#008080]$env[/color]([COLOR=#008080]$var_name[/color])
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"variable [/color][COLOR=#008080]$var_name[/color][COLOR=#ff00ff] found: '[/color][COLOR=#008080]$var_value[/color][COLOR=#ff00ff]'"[/color]
} [COLOR=#804040][b]else[/b][/color] {
  [COLOR=#804040][b]puts[/b][/color] [COLOR=#ff00ff]"variable [/color][COLOR=#008080]$var_name[/color][COLOR=#ff00ff] was not found !"[/color]
}

Output:

C:\Users\Work>tclsh envir.tcl
ALLUSERSPROFILE = C:\ProgramData
...
...
windir = %SystemRoot%
***********************
computername = 'DANKA-PC'
variable COMPUTERNAME found: 'DANKA-PC'

 

[fhutt]

That's great. Just what I was looking for.
Thanks a lot.