Break On

$objWMIService = GetObject("winmgmts:\\.\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_POTSModem",,48)
For Each $objItem in $colItems
	If InStr($objItem.Description,'Wireless') And $objItem.Status = 'OK'
		$comport = $objItem.AttachedTo
  	EndIf
Next

$puttykey = 'HKEY_CURRENT_USER\Software\SimonTatham\PuTTY\Sessions\Default%20Settings'
$nul = WriteValue($puttykey,'Protocol','serial',REG_SZ)
$nul = WriteValue($puttykey,'SerialLine',$comport,REG_SZ)

Del 'c:\logfiles\sprintcard.txt'

Run 'cmd /c echo ati1 | plink > c:\logfiles\sprintcard.txt'

Sleep 5
$nul = FindPROC(@wksta,'plink.exe',1)
Sleep 3

$SprintData = Readfile('c:\logfiles\sprintcard.txt')
For Each $line in $SprintData
	Select
		Case InStr($line,'Manufacturer')	$man=Trim(SubStr($line,InStr($line,':')+1))
		Case InStr($line,'Model')		$mod=Trim(SubStr($line,InStr($line,':')+1))
		Case InStr($line,'Revision')		$rev=Trim(SubStr($line,InStr($line,':')+1))
		Case InStr($line,'ESN')			$esn=Trim(SubStr($line,InStr($line,':')+1))
	EndSelect
Next

?
? 'Manufacturer: '+$man
? 'Model: '+$mod
? 'Revision: '+$rev
? 'ESN: '+$esn
? 'COM Port: '+$comport
?
? 'press enter'
Gets $k

Function FindPROC($COMPUTER,$PROC,optional $terminate)
	Dim $GetObject, $Select
	$GetObject="winmgmts:{impersonationLevel=impersonate}!//$COMPUTER"
	$select="select * from Win32_Process where Name='$PROC'"
	For Each $Process in GetObject("$GetObject").ExecQuery("$select")
		If $terminate		$Process.Terminate	EndIf
		$FindPROC=$Process.ProcessId
	Next
EndFunction

Function ReadFile($file)
	Dim $lf, $f, $_, $t
	$lf = Chr(10)
	$f = FreeFileHandle
	$_ = Open($f, $file)
	If @error Exit @error EndIf
	Do $t = $t + $lf + ReadLine($f) Until @error
	$_ = Close($f)
	$ReadFile = Split(SubStr($t, 2), $lf)
EndFunction