; set connection string
$objConn = DBConnOpen('DRIVER={Microsoft Access Driver (*.mdb)}; UID=; PWD=; DBQ=$DBpath')
$recordset = DBGetRecordset($objConn,"SELECT ws_oldName FROM ws WHERE ws_oldName = '@wksta'")
$recordset1 = DBGetRecordset($objConn,"SELECT ws_newName FROM ws ORDER BY ws_newName")
$recordset2 = DBGetRecordset($objConn,"SELECT ws_newName FROM ws WHERE ws_oldName = '@WKSTA'")
If $recordset[0] = @WKSTA
	? 'Record for @WKSTA is listed as an old name! Proceed to change machine name'
	$ws_rename = $recordset2[0]
Else
	? 'No Record Found for @WKSTA!  Proceed to Add New Record'
	; got to get the last machine name number to increment
	$highNum = 0
	For Each $record1 In $recordset1
		;$recordsetfields=Split($record,Chr(10))
		$parseName = Left('$record1',6)
		; ? '$parseName' ;for debuging
		If $parseName = "NSJNPW"
			$parseNum = Right('$record1',5)
			; ? '$highNum' ;for debuging
			If '$parseNum' >= '$highNum'
				$highNum = '$parseNum'
			EndIf
		EndIf
	Next
	$wsNewName = CInt($highNum)
	$wsNewName = $wsNewName + 1
	If $wsNewName < '9999'
		? 'Verifying process with naming convention: $parseName @CRLF'
		$parseName = '$parseName'+'0'
		$wsNewName = '$parseName$wsNewName'
	Else
		$wsNewName = '$parseName$wsNewName'
	EndIf
? 'Process complete. New machine name number is: $wsNewName @CRLF'
? 'The new machine name will be: $wsNewName @CRLF 

for $numName = 0 to 16



	$strName=""+$numName

	while len($strName)<5

		$strName="0"+$strName

	loop



	? $strName

next 

select
	case $numName < 10	$strName="0000"+$numName
	case $numName < 100	$strName="000" +$numName
	case $numName < 1000	$strName="00"  +$numName
	case $numName < 10000	$strName="0"   +$numName
endselect

$sZeroFilled=Right("00000"+$iNumber,5)

Quote:

---

No need to make it that complicated:
Code:

---

$sZeroFilled=Right("00000"+$iNumber,5)

---

---

Quote:

---

Well... maybe you need to explain yourself better cuz I am not sure I understand.

The value of 00004 was known to you before you converted it to a string by padding with zeros so you should already know its value. Otherwwise, you can use Val() to get it again.

---

I am terrible at explaining so let me give it another go

Looking at the first post, the code runs through the recordset. In the process it parses the record and we then look at the numeric piece
Code:

---

 Right($record1,5) 

---

Next we use the if statement to find the high number when the records are being run. I don't really know what the record information is except a bunch of numbers.
When we built the database, it was populated with all of our workstations old names and they were assigned new names. The script is looking at this database to get the new name. The problem I found was the new name of approximately 200 "unknown old name" computer need a different naming convention and have to start at 00001. So, what I am attempting to do is to avoid creating a new record for the existing workstation entry. First, we identify the workstation and then we give it the proper prefix and then we have to give it the numeric value. We know that some computer names have been assigned with a number like 00005. Using the script as it shows in the first post, the next assigned number will be 00006. While this is a true statement, we want it to be assigned to the first free number (hypothetical) of 00004. So, I have been trying to figure out how to capture the low free number and high free number. If the low number exists or matches the high number, use it.
I hope this helps a little...

$highNum = 0

For Each $record1 In $recordset1

	If Not $highNum

		$parseNum=CInt(Right($record1,5))

		If $iNextNum AND $iNextNum<>$parseNum

			$highNum=$iNextNum

			"Gap found - using sequence number "+$highNum ?

		Else

			$iNextNum=$parseNum+1

		EndIf

	EndIf

Next

If Not $highNum $highNum=$iNextNum+1 EndIf

select a.seq
from table_a as a
full join table_a as b
on a.seq=b.seq-1
where b.seq is null

Quote:

---

Well, you already sort the records by the computername, so just compare each record to the previous one. If they differ by more than one then there is a gap.

Here is one way of doing it:
Code:

---

$highNum = 0
For Each $record1 In $recordset1
	If Not $highNum
		$parseNum=CInt(Right($record1,5))
		If $iNextNum AND $iNextNum<>$parseNum
			$highNum=$iNextNum
			"Gap found - using sequence number "+$highNum ?
		Else
			$iNextNum=$parseNum+1
		EndIf
	EndIf
Next
If Not $highNum $highNum=$iNextNum+1

---

---

Quote:

---

But why is this done in a login script and not via central admin script? Renaming workstations requires admin privs and a reboot anyway.

---