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
