; sus out the host name
$hostname = ReadValue( "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters" , "Hostname" )

$Selection = MessageBox( "Does the above hostname match the [barcoded] Asset Sticker on your PC?"," the hostname of this workstation is: $hostname", 36 )

If $Selection <> 6 goto no endif

goto done

:no

? "Lets fix it...."

color g+/n
? "Please enter the asset number for this PC: "
color w+/n
? gets $hostname

if $hostname = ""
goto no
else
writevalue( "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters" , "Hostname" ,
"$hostname" , "REG_SZ" )

:done
? "fixed, the HOST name is now: " $hostname

TO find the registry key I enterd "bart" as a host name, searched for "bart" and exported the key...

I later extened this script to write to the INI file, it also required the host name...

WRITEPROFILESTRING ("c:\sbs\config\conlive\confirm.ini" ,"client" ,"station" ,"$hostname")

contact johnhb@paradise.net.nz