PowerShell Script to Query Wireless Modem and pull Asset Information.

Pulling a Wireless WAN Modem’s information while in the field is a daunting task. Here is a script to pull this information using AT commands with in a PowerShell script. The script was tested on a CF-53J Toughbook laptop with an embedded Sierra 7750 (Verizon LTE) modem. The script displays methods of capturing the information to a text file or writing the information to the registry.

QueryWANModem.ps1 – GitHub Link:

###################################################################
# ChangeLog -
# 2/2/14 BG - Added code to write information into the registry
# 4/9/13 BG - Added CGMR command to pull Firmware date.
###################################################################

$oInvocation = (Get-Variable MyInvocation).Value
$sCurrentDirectory = Split-Path $oInvocation.MyCommand.Path

Function fQueryModem($sQueryString, $sRegExp) {
    $oComPort = New-Object System.IO.Ports.SerialPort $sComPortNumber,$sComPortSpeed,None,8,1
    $oComPort.Open()
    $oComPort.Write("AT")
    $oComPort.Write($sQueryString + "`r")
    Start-Sleep -m 50
    $tVar = $oComPort.ReadExisting()
    $tVar = ($tVar -replace "OK","").trim()
    $oComPort.Close()

    If (!($sRegExp -eq "")) {$tVar -Match $sRegExp|Out-Null; $tVar = $Matches[0]}
    return $tVar
}

#AT Commands to pull information from Modems
#"MEID", "+CGSN"			#i.e. "990000780252708"
#"Modem Model", "+CGMM"		#i.e. "MC7750"
#"Phone Number", "+CNUM"	#i.e. "+CNUM: "Line 1","+15514972305",145"
#"SIM", "+ICCID"			#i.e. "ICCID: 89148000000148583496"
#"Firmware Date", "+GMR		#i.e. "33, SWI9600M_03.05.10.09ap r5700 carmd-en-10527 2013/03/12 10:37:48"
#*Commands pulled using AT+CLAC command...

#Grab COMPort number and max ComPort speed
$sComPortNumber = Get-WmiObject Win32_PotsModem | `
	Where-Object {$_.DeviceID -like "USB\VID*" -and $_.Status -like "OK"} | `
	foreach {$_.AttachedTo}
$sModemInfPath = Get-WmiObject Win32_PotsModem | `
	Where-Object {$_.DeviceID -like "USB\VID*" -and $_.Status -like "OK"} | `
	foreach {$_.ModemInfPath}
$sModemDriverVer = Get-WmiObject Win32_PnPSignedDriver | `
	Where-Object {$_.InfName -like $sModemInfPath} | `
	foreach {$_.DriverVersion}
$sComPortSpeed = Get-WMIObject Win32_PotsModem | `
	Where-Object {$_.DeviceID -like "USB\VID*" -and $_.Status -like "OK"} | `
	foreach {$_.MaxBaudRateToSerialPort}

#Populate Variables using fQueryModem Function Call
$sMEID = fQueryModem "+CGSN" "\d{15}"
$sModemModel = fQueryModem "+CGMM" "" #Match Everything
$sPhoneNumber = fQueryModem "+CNUM" "\d{11}"
$sSIM = fQueryModem "+ICCID" "\d{20}"
#$sFirmwareDate = fQueryModem "+GMR" "\d{4}/\d{2}/\d{2}"
$sFirmwareDate = fQueryModem "+GMR" ""

#Populate TXT file with captured variables
#$sDate = Get-Date -Format "MM/dd/yyyy"
#$sOutString = "Date: $sDate
#Username: $env:username
#MEID: $sMEID
#Modem Model: $sModemModel
#Phone Number: $sPhoneNumber
#SIM Number: $sSIM
#Firmware Date: $sFirmwareDate
#Modem Driver: $sModemDriverVer"
#$sOutString | Out-File -FilePath "$sCurrentDirectory\" + $sFirmwareDate + ".TXT" -Force

#Create Registry Key with Firmware Version
New-Item -Path HKLM:\Software -Name _BHN -Value "Default Value" -Force
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANFirmware" -PropertyType "String" -Value $sFirmwareDate
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANSIM" -PropertyType "String" -Value $sSIM
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANPhoneNumber" -PropertyType "String" -Value $sPhoneNumber
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANModel" -PropertyType "String" -Value $sModemModel
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANMEID" -PropertyType "String" -Value $sMEID
New-ItemProperty -Path HKLM:\Software\_BHN -Name "WWANComPort" -PropertyType "String" -Value $sComPortNumber

/BG