$node = "L1A3456789"
$sAsset=SubStr($node,2,6)
Select
Case $sAsset >= "000001" AND $sAsset <= "999999"
	? $sAsset
EndSelect 

IF $sAsset=val($sAsset)
  ? $sAsset
ENDIF

$node = "L1A3456789"

$RegExPattern = '(\d{6})'



$Matches = RegExpFind($RegExPattern, $node, 1, 0)

? "Match = " + $Matches[0][0]



Function RegExpFind($Pattern, $String, $IgnoreCase, $Global)



   Dim $regEx, $Match, $Matches, $i, $j, $k ; Create variable.

   Dim $Results[0]

   $regEx = createobject("VBscript.RegExp") ; Create a regular expression.



   $regEx.Pattern    = $Pattern             ; Set pattern.

   $regEx.IgnoreCase = val($IgnoreCase)     ; Set case insensitivity.

   $regEx.Global     = val($Global)         ; Set global applicability.



   $Matches = $regEx.Execute($String)        ; Execute search.



   $k=0

   For Each $Match in $Matches              ; Iterate Matches collection.

      Dim $MatchValue[0]

      ReDim Preserve $Results[$k]



      $MatchValue[0] = $Match.Value



      if $Match.Submatches.count > 0

         for $i=0 to $Match.Submatches.count

            ReDim Preserve $MatchValue[$i+1]

            $MatchValue[$i+1] = $Match.Submatches($i)

         next

      endif

      $Results[$k] = $MatchValue

      $k=$k+1

   Next

   $RegExpFind = $Results

EndFunction  

Quote:

---

to check if the first letter is a w or l and then verify that there are 6 numbers following the w/l.

---

break ON

$nodes = "L1A3456789", "L123456789"
$RegExPattern = "^(W|L)(\d{6})"

for each $node in $nodes
	if RegExpTest($RegExPattern, $node, 1)
    	? "-Found match:    " + $node
	else
    	? "-No Match found: " + $node
	endif
next

Function RegExpTest($Pattern, $String, $IgnoreCase)

   Dim $regEx, $Match, $Matches             ; Create variable.

   $regEx = createobject("VBscript.RegExp") ; Create a regular expression.

   $regEx.Pattern    = $Pattern             ; Set pattern.
   $regEx.IgnoreCase = val($IgnoreCase)     ; Set case insensitivity.

   $RegExpTest = $regEx.Test($String)       ; Execute test search.
EndFunction
  

$sType=SubStr(@WKSTA,1,1)

Select
Case $sType = "S"
	$sLocation=SubStr(@WKSTA,2,4)
	$sFunction=SubStr(@WKSTA,6,1)
	$sNode=SubStr(@WKSTA,7,2)
	Select
	Case $sLocation >= "0002" AND $sLocation <= "0999"
		Select
		Case $sFunction >= "A" AND $sFunction <= "z"
			Select
			Case $sNode >= "01" AND $sNode <= "99"
				$computername = "Store"	;  One of the above
			EndSelect
		EndSelect
	EndSelect
Case $sType = "W" OR $sType = "L"
	$sAsset=SubStr(@WKSTA,2,6)
	Select
	Case $sAsset=Val($sAsset)
		If $sAsset >= "000001" AND $sAsset <= "999999"
			$computername = "Corp"
		EndIf
	EndSelect
EndSelect

Return
Exit 

 $machine = "W094562a154"
$computername = "Failed"
 
$sType=SubStr($machine,1,1)

Select
Case $sType = "S"
	$sLocation=SubStr($machine,2,4)
	$sFunction=SubStr($machine,6,1)
	$sNode=SubStr($machine,7,2)
	$sLocation2=Val($sLocation)
	Select
	Case Len($sLocation2) = 1 
		$sLocation3 = SubStr($sLocation,4)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case $sFunction = "N" OR $sFunction = "L" OR $sFunction = "R" OR $sFunction = "H"
				 OR $sFunction = "E" OR $sFunction = "K" OR $sFunction = "S" OR $sFunction = "V"
					Select
					Case $sNode >= "01" AND $sNode <= "99"
						$computername = "Store"
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 2 
		$sLocation3 = SubStr($sLocation,3)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case $sFunction = "N" OR $sFunction = "L" OR $sFunction = "R" OR $sFunction = "H"
				 OR $sFunction = "E" OR $sFunction = "K" OR $sFunction = "S" OR $sFunction = "V"
					Select
					Case $sNode >= "01" AND $sNode <= "99"
						$computername = "Store"
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 3 
		$sLocation3 = SubStr($sLocation,2)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case $sFunction = "N" OR $sFunction = "L" OR $sFunction = "R" OR $sFunction = "H" 
				OR $sFunction = "E" OR $sFunction = "K" OR $sFunction = "S" OR $sFunction = "V"
					Select
					Case $sNode >= "01" AND $sNode <= "99"
						$computername = "Store"
					EndSelect
				EndSelect
			EndSelect
		EndIf
	EndSelect
Case $sType = "W" OR $sType = "L"
	$sAsset=SubStr($machine,2,6)
	$sAsset2=Val($sAsset)
	If Len($sAsset2) < 6
		$sAsset = SubStr($machine,3,5)
	EndIf
	Select
	Case $sAsset=$sAsset2
		If $sAsset >= "000001" AND $sAsset <= "999999"
			$computername = "Corp"
		EndIf
	EndSelect
EndSelect

? $computername

Case $sFunction = "N" OR $sFunction = "L" OR $sFunction = "R" OR $sFunction = "H"

OR $sFunction = "E" OR $sFunction = "K" OR $sFunction = "S" OR $sFunction = "V"

;...

Case $sNode >= "01" AND $sNode <= "99"

CASE INSTR('NLRHEKSV',$sFunction)

;...

Case $sNode=VAL($sNode)

 Dim $sType, $sLocation, $sLocation2, $sLocation3, $sFunction, $sNode, $sAsset, $sAsset2, $sAsset2

$machine = "S0002N01"
$computername = "Failed"
 
$sType=SubStr($machine,1,1)

Select
Case $sType = "S"
	$sLocation=SubStr($machine,2,4)
	$sFunction=SubStr($machine,6,1)
	$sNode=SubStr($machine,7,2)
	$sLocation2=Val($sLocation)
	Select
	Case Len($sLocation2) = 1 
		$sLocation3 = SubStr($sLocation,4)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 2 
		$sLocation3 = SubStr($sLocation,3)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	Case Len($sLocation2) = 3 
		$sLocation3 = SubStr($sLocation,2)
		If $sLocation2=$sLocation3
			Select
			Case $sLocation >= "0002" AND $sLocation <= "0999"
				Select
				Case InStr('NLRHEKSV',$sFunction)
					$sNode2=Val($sNode)
					Select
					Case Len($sNode2) = 1
						$sNode3 = SubStr($sNode,2)
							If InStr('123456789',$sNode2) AND $sNode2=$sNode3
								$computername = "Store"
							EndIf
					Case Len($sNode2) = 2
						If $sNode=$sNode2 AND ($sNode >= "01" AND $sNode <= "99")
								$computername = "Store"
						EndIf
					EndSelect
				EndSelect
			EndSelect
		EndIf
	EndSelect
Case InStr('WL',$sType)
	$sAsset=SubStr($machine,2,6)
	$sAsset2=Val($sAsset)
	If Len($sAsset2) < 6
		$sAsset = SubStr($machine,3,5)
	EndIf
	Select
	Case $sAsset=$sAsset2
		If $sAsset >= "000001" AND $sAsset <= "999999"
			$computername = "Corp"
		EndIf
	EndSelect
EndSelect

? $computername