aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Hostname/Ada/hostname.adb Normal file
View file

@ -0,0 +1,7 @@
with Ada.Text_IO; use Ada.Text_IO;
with GNAT.Sockets;
procedure Demo is
begin
Put_Line (GNAT.Sockets.Host_Name);
end Demo;

1
Task/Hostname/Batch-File/hostname-1.bat Normal file
View file

@ -0,0 +1 @@
Hostname

1
Task/Hostname/Batch-File/hostname-2.bat Normal file
View file

@ -0,0 +1 @@
for /f "tokens=*" %%a in ('hostname') do set "hostname=%%a"

1
Task/Hostname/Batch-File/hostname-3.bat Normal file
View file

@ -0,0 +1 @@
set computername

1
Task/Hostname/Batch-File/hostname-4.bat Normal file
View file

@ -0,0 +1 @@
echo %computername%

6
Task/Hostname/Batch-File/hostname-5.bat Normal file
View file

@ -0,0 +1,6 @@
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Domain
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Domain

15
Task/Hostname/COBOL/hostname.cob Normal file
View file

@ -0,0 +1,15 @@
identification division.
program-id. hostname.
data division.
working-storage section.
01 hostname pic x(256).
01 nullpos pic 999 value 1.
procedure division.
call "gethostname" using hostname by value length of hostname
string hostname delimited by low-value into hostname
with pointer nullpos
display "Host: " hostname(1 : nullpos - 1)
goback.
end program hostname.

1
Task/Hostname/Emacs-Lisp/hostname.el Normal file
View file

@ -0,0 +1 @@
(system-name)

4
Task/Hostname/Pluto/hostname.pluto Normal file
View file

@ -0,0 +1,4 @@
os.execute("hostname > tmp")
local hostname = io.contents("tmp"):rstrip()
print($"Hostname is {hostname}")
os.remove("tmp")

1
Task/Hostname/PowerShell/hostname-1.ps1 Normal file
View file

@ -0,0 +1 @@
$Env:COMPUTERNAME

1
Task/Hostname/PowerShell/hostname-2.ps1 Normal file
View file

@ -0,0 +1 @@
[Net.Dns]::GetHostName()

1
Task/Hostname/Rebol/hostname.rebol Normal file
View file

@ -0,0 +1 @@
print read dns://

2
Task/Hostname/Rye/hostname.rye Normal file
View file

@ -0,0 +1,2 @@
cc os
host-info?

2
Task/Hostname/VBScript/hostname.vbs Normal file
View file

@ -0,0 +1,2 @@
Set objNetwork = CreateObject("WScript.Network")
WScript.Echo objNetwork.ComputerName