Hi, first of all let me say thanks for this great resource. I have written a little script to rename Windows 95 NetBios names. It works fine, but there is a silly little problem that I am trying to fix. When the script asks for a selection for the school. It goes to the proper section but then when I ask for input again the choice that I previously entered is at the start of where I have to type in the next gets command. Example I press a and then it prompts me to type in the users first letter and lastname the a I previously picked is the first character and I have to delete it with backspace. So what I'm looking for is a way to supress the first choice. The code is below. Thanks in advance for any help. code
--------------------------------------------
:Set_name
Cls
Color g+/n
At (4,10) "Rename Computer Utility"
At ( 6,10) "Select Location...."
Color w+/n
At ( 8,10) "A.... Administration "
At ( 9,10) "B.... Baldwin "
At (10,10) "C.... Booker T. Washington"
At (11,10) "D.... Burling "
At (12,10) "E.... Carson "
At (13,10) "F.... Central "
At (14,10) "G.... Delair "
At (15,10) "H.... Fine "
At (16,10) "I.... Franklin "
At (17,10) "J.... Longfellow "
At (18,10) "K.... Roosevelt "
At (19,10) "L.... Middle School "
At (20,10) "M.... High School "
Color r+/n
At (22,10) "Q.... quit"
Color w+/n
Do
?"Make your Selection"
Get $entry
Until $entry = 'q' Or ($entry >='a' And $entry <= 'n')
Goto $entry
:q
Exit
:a
$Schl = AD
?"Enter users first letter and complete last name seperated by a hyphen:"
Gets $UName
Goto change_namead
:b
$Schl = BA
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:c
$Schl = BW
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:d
$Schl = BU
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:e
$Schl = CA
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:f
$Schl = CE
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:g
$Schl = DE
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:h
$Schl = FI
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:i
$Schl = FR
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:j
$Schl = LO
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:k
$Schl = RO
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:l
$Schl = PM
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:m
$Schl = PH
?"Enter room number:"
Gets $UName
?"Enter computer number"
Gets $No
Goto change_name
:change_namead
WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName","$Schl-$Uname","REG_SZ")
$new = $Schl+$uname
Goto end
:change_name
WriteValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName","ComputerName","$Schl-$Uname-$No","REG_SZ")
$new = $Schl+$uname+$No
:end
If @ERROR=0 ?"Success, Computer is now called $new"EndIf
If @ERROR=1 ?"Sorry did not work try again"EndIf
---------------------------------------------
end code
