Functions/New-QR.ps1
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 |
function New-QR { <# .SYNOPSIS Create New Quick Response Code .DESCRIPTION Create New Quick Response Code Function uses Google API so script requires internet access. Script will compose QR request and then download generated image. New-QR returns the properties of the new QR code created. .PARAMETER Message Message to be encoded in QR code. Script will check the message length to ensure it does not exceed the max allowed size Purely numeric content allows for a larger storage capacity in code. Message Examples "TEL:0416123456" (Will call my cell phone) "SMSTO:0416123456:Hi Matt,`nI am at your desk." (An SMS to me. Note the new line character) "http://painterinfo.com" (Open this website) "This is the Pishkin Building" (A plain text message encoded in the QR Code) .PARAMETER Path File name of QR code to be created. Aliased to 'FileName' for backward compatibility. Can specify fullpath, please use .PNG file extension. If specifying fullpath ensure directory structure exists. .PARAMETER CHS This is the custom size of the image in pixels e.g. 150x150 This parameter is only read when -Size C parameter is specified. (Otherwise ignored) Min = 50x50 [approximate] Large QR codes may need to be physically larger to fit the data. Max = 547x547 .PARAMETER ECL Error Correction Level L - [Default] Allows recovery of up to 7% data loss M - Allows recovery of up to 15% data loss Q - Allows recovery of up to 25% data loss H - Allows recovery of up to 30% data loss Use L for maximum storage capacity in QR code Use H if you think the QR code might get damaged or if you want to embed plain text or logo after. .PARAMETER Enc Allowed encoding types are: UTF-8, Shift_JIS, ISO-8859-1 UTF-8 is default and recommended type .PARAMETER Margin Defaults to 4 and it is recommended to leave it at that. A white space margin of 4 is required for reliable QR code reading. Valid Values are 1..4 .PARAMETER Size The QR code's physical size in pixels, not to be confused with the data storage size. Function caters for several pre-set sizes and a custom size option S - 75x75 M - 150x150 [default] L - 300x300 X - 547x547 - This appears to be the maximum size that the API can produce. C - Custom size to be used - Warning too small will result QR code generation failure. If too large a value is specified then the 150x150 default will be generated instead. Use -CHS parameter in conjunction with -Size C or Custom size will default to 150x150 .EXAMPLE New-QR http://painterinfo.com Description ----------- Creates a new QR code (URL) Path to QR code image is returned by script .EXAMPLE New-QR -Message "This is a test" -Size C -CHS 200x200 Description ----------- Creates a new QR code (TEXT) Custom image size 200x200 is created. Path to QR code is returned by script .EXAMPLE ii (New-QR -message TEL:0754419999 -Size L -ECL H).fullname Description ----------- Creates a new QR code (Phone Number) and is opened with default image viewer. -Size L (image size is 300x300 pixels) -ECL H (30% of image is redundant) .EXAMPLE Import-Csv "C:\QR\users.csv" | New-QR -S L Description ----------- Using the following CSV, multiple 300x300 QR Codes are generated. "Message","FileName" "TEL:0416123456","C:\QR\Matt.png" "TEL:0417123456","C:\QR\John.png" "TEL:0418123456","C:\QR\Ruth.png" "TEL:0419123456","C:\QR\Fred.png" .INPUTS psObject (FileName,Message) .OUTPUTS psObject (FullName,ErrorCorrrection,Margin,Dimensions,DataSize) .NOTES NAME: New-QR PURPOSE: Generate QR codes with PowerShell VERSION: 1.0 AUTHOR: Matthew Painter LASTEDIT: 06/August/2011 # Source https://gallery.technet.microsoft.com/scriptcenter/f615d7e8-ed15-498d-b7cc-078377f523bf Changes * renamed FileName to Path to be more in line with other Powershell commands. Aliased to 'FileName' for backward compatibility * reordered parameters by position, also reordered .PARAMETER entries in comment help to match order in parameter section .LINK http://code.google.com/apis/chart/infographics/docs/qr_codes.html #> [CmdletBinding(SupportsShouldProcess, ConfirmImpact = 'low')] [Diagnostics.CodeAnalysis.SuppressMessageAttribute('PSShouldProcess', '')] param( [Parameter(Mandatory, Position = 0, HelpMessage = 'Message to be encoded', ValueFromPipelineByPropertyName)] [string] $Message, [Parameter(Position = 1, ValueFromPipelineByPropertyName)] [Alias('FileName')] [string] $Path = "$env:temp\QR.png", [string] $CHS = '150x150', [ValidateSet('L', 'M', 'Q', 'H')] [string] $ECL = 'L', [ValidateSet('UTF-8', 'Shift_JIS', 'ISO-8859-1')] [string] $Enc = 'UTF-8', [int] $Margin = 4, [ValidateSet('S', 'M', 'L', 'X', 'C')] [string] $Size = 'M' ) begin { Write-Verbose -Message "Starting [$($MyInvocation.Mycommand)]" } process { switch ($Size) { # Pre-set Physical Size of QR Code image in pixels 'S' { $CHS = '75x75' } 'M' { $CHS = '150x150' } 'L' { $CHS = '300x300' } 'X' { $CHS = '547x547' } 'C' { if ($CHS -imatch '[5-9][0-9][x][5-9][0-9]' -or $CHS -imatch '[1-5][0-4][0-9][x][1-5][0-4][0-9]') { Write-Verbose -Message "Custom CHS $CHS" } else { Write-Verbose -Message 'CHS invalid, changing to default - 150x150' $CHS = '150x150' } $split = $CHS.split('x'); if ($split[0] -ne $split[1] ) { $CHS = "$($split[0])x$($split[0])" Write-Verbose -Message "Making CHS symmetrical $CHS" } if ($split[0] -gt 547) { $CHS = '547x547' } } default { $CHS = '150x150' } } switch ($ECL) { # Error Correction Level 'L' { $chld = 'L' } 'M' { $chld = 'M' } 'Q' { $chld = 'Q' } 'H' { $chld = 'H' } default { $chld = 'L' } } switch ($Enc) { # Encoding type 'UTF-8' { $choe = 'UTF-8' } 'Shift_JIS' { $choe = 'Shift_JIS' } 'ISO-8859-1' { $choe = 'ISO-8859-1' } default { $choe = 'UTF-8' } } # Hash table of QR Code maximum data capacity. Limit is governed by Error Correction Level and data type $Limit = @{ 'LN' = 7089 'LA' = 4296 'MN' = 5596 'MA' = 3391 'QN' = 3993 'QA' = 2420 'HN' = 3057 'HA' = 1852 } # Numeric or AlphaNumeric? # Messages with purely numeric data type have a larger QR Code storage capacity. $NorA = 'N' for ($a = 1; $a -le $Message.length; $a++) { if (!($Message.substring($a - 1, 1) -match '[0-9]')) { $NorA = 'A' break } } # Check Message length does not exceed the Code's specification limit. if ($Message.length -gt $Limit."$chld$NorA") { Write-Verbose -Message 'Message Size Limit Exceeded' break } else { Write-Verbose -Message "Message $(if ($NorA -eq 'N'){'Purely Numeric'}else{'Not Purely Numeric'})" Write-Verbose -Message "Max Message Length $($Limit."$chld$NorA")" Write-Verbose -Message "Message Length $($Message.length) OK" } # Build URL and request QR Code from Google API $chld = "$chld`|$Margin" $Message = $Message -replace (' ', '+') $URL = "https://chart.googleapis.com/chart?chs=$chs&cht=qr&chld=$chld&choe=$choe&chl=$Message" $req = [System.Net.HttpWebRequest]::Create($url) $req.Proxy = [System.Net.WebRequest]::DefaultWebProxy $req.Proxy.Credentials = [System.Net.CredentialCache]::DefaultCredentials try { $res = $req.GetResponse() } catch { Write-Error -Message "$URL $($error[0])" break } # Save downloaded binary file if ($res.StatusCode -eq 200) { $reader = $res.GetResponseStream() try { $writer = New-Object -TypeName System.IO.FileStream -ArgumentList $Path, 'Create' } catch { Write-Error -Message 'Invalid File Path?' break } [byte[]] $buffer = New-Object -TypeName byte[] -ArgumentList 4096 do { $count = $reader.Read($buffer, 0, $buffer.Length) $writer.Write($buffer, 0, $count) } while ($count -gt 0) $reader.Close() $writer.Flush() $writer.Close() # Output properties $QRProperties = @{ FullName = (Get-ChildItem -Path $Path).fullname DataSize = $Message.length Dimensions = $CHS ECLevel = $chld.split('|')[0] Margin = $chld.split('|')[1] } New-Object -TypeName PSObject -Property $QRProperties } Write-Verbose -Message "FileName $Path" Write-Verbose -Message "CHS $CHS" Write-Verbose -Message "chld $chld" Write-Verbose -Message "choe $choe" Write-Verbose -Message "URL $URL" Write-Verbose -Message "Http Status Code $($res.StatusCode)" Write-Verbose -Message "Message $Message" $res.Close() } end { Write-Verbose -Message "Ending [$($MyInvocation.Mycommand)]" } } |