[powershell-begin-ugly-code]
#------------------------------------------------------------ # filename...: install-orca.ps1 # author.....: David M. Stein # date.......: 01/27/2014 # purpose....: install Microsoft Orca using PowerShell 3 #------------------------------------------------------------ # comment: define variables and assignments $appName = "Microsoft Orca" $msifile = "orca.msi" # $srcPath = "\\appserver3\utils\microsoft"
$srcPath = Split-Path -Parent $PSCommandPath $path32 = "C:\Program Files (x86)\Orca\orca.exe" $path64 = "" $f1 = get-location write-host "info: searching for existing installation of $appName..." if (test-path -Path $path32) { write-host "info: $appName is already installed (aborting install)" $retval = 5000 } else { write-host "info: installing $msiFile....." set-location $srcPath write-host "info: working path is $srcPath"
# comment: the following line may wrap incorrectly in a browser...
$retval = (start-process msiexec.exe -ArgumentList "/i $msifile /qn" -Wait -PassThru).ExitCode switch ($retval) { 0 {write-host "info: success"} 3010 {write-host "info: success (reboot pending)"}
1603 {write-host "fail: I hate 1603. A useless error code!"}
1605 {write-host "skip: target application was not found (uninstall abort)"}
default {write-host "fail: uh-oh? exit code is $retval"}
}
set-location $f1
write-host "info: installation complete."
}
exit $retval
[powershell-end-ugly-code]
[powershell-begin-stupid-code]
#------------------------------------------------------------ # filename...: uninstall-orca.ps1 # author.....: David M. Stein # date.......: 01/27/2014 # purpose....: uninstall Microsoft Orca using PowerShell 3 #------------------------------------------------------------ # comment: define variables and assignments $appName = "Microsoft Orca" $guid = "{85F4CBCB-9BBC-4B50-A7D8-E1106771498D}" $path32 = "C:\Program Files (x86)\Orca\orca.exe" $path64 = "" $f1 = get-location if (test-path -Path $path32) { write-host "info: $appName is installed. Uninstall it now..."
# comment: the following line may wrap incorrectly in a browser also...
$retval = (start-process msiexec.exe -ArgumentList "/x ""$guid"" /qn" -Wait -PassThru).ExitCode
switch ($retval) {
0 {
write-host "info: uninstallation was successful."
write-host "info: removing leftover files and folders..."
Remove-Item $path32 -Recurse
}
3010 {write-host "info: success (reboot pending)"}
1605 {write-host "info: target application was not found (uninstall abort)"}
default {write-host "fail: exit code is $retval"}
}
} else {
$retval = 0
write-host "info: $appName was not found on this computer (abort uninstall)"
}
write-host "info: completed"
exit $retval
[powershell-end-stupid-code]
[Tablet]
TabletComPort=ZZZZ
TabletType=0
TabletLCDMode=0
TabletModel=Crap_VR549
...Now, using (insert dramatic entrance music) script code, you pull on the chains of the old "DEVCON" command-line utility to probe for the device and COM port. Write the results to a text file (redirect or whatever you prefer). I'm sure you can probe it using WMI or crawling the Registry as well, but since I like old commands, because I'm also old, I go that route.
FTDIBUS\VID_0403+PID_6001+A983498VX\0000
Name: USB Serial Port (COM4)
Hardware ID's:
FTDIBUS\COMPORT&VID_0403&PID_6001
1 matching device(s) found.
[beginnen der codenhauzen]
'**************************************************************** ' Filename..: crapplication.vbs ' Author....: INSERT YOUR NAME HERE UNLESS IT BLOWS UP (then use another name) ' Date......: 01/05/2014 ' Purpose...: parse text file to obtain desired value, win the prize! '**************************************************************** Option Explicit Dim scriptPath, strTemplate, objFSO, objFile
Dim strLine, strPart, pos, strComPort, ts, t1 Dim objINIsource, strNew, strAll, objShell
t1 = Timer
scriptPath = Replace(wscript.ScriptFullName, "\" & wscript.ScriptName, "") strTemplate = scriptPath & "\crapware.ini" Const inputFile = "c:\windows\temp\devcon_dump.txt" Const outputfile = "c:\windows\crapware.ini" Const ForReading = 1 Const ForWriting = 2 Const TristateUseDefault = -2 Const TriStateTrue = -1 Const TriStateFalse = 0 wscript.echo "info: devcon file == " & inputfile wscript.echo "info: output file == " & outputfile wscript.echo "info: template == " & strTemplate strComPort = ""
' comment: read the COM port from the devcon output file...
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objFile = objFSO.OpenTextFile(inputFile, ForReading)
If err.Number = 0 Then
Do Until objFile.AtEndOfStream
strLine = Trim(objFile.Readline)
pos = InStr(strLine, "(COM")
If pos > 0 Then
strPart = Trim(Mid(strLine, pos))
' comment: should return "(COMx)"
strPart = Replace(Replace(strPart, "(", ""), ")", "")
' comment: should be left with "COMx"
strComPort = Replace(strPart, "COM", "")
End If
Loop
objFile.Close
Else
wscript.echo "fail: error (" & err.Number & ") = " & err.Description
End If
wscript.echo "info: current COM port: " & strComPort
' comment: open and suck-in all text from the template file...
Set objINISource = objFSO.OpenTextFile(strTemplate, ForReading, False)
strAll = objINIsource.ReadAll()
strNew = Replace(strAll, "TabletComPort=ZZZZ", "TabletComPort=" & strComPort)
' comment: get the vendor's crappy ini or make a new one...
On Error Resume Next
Set objShell = CreateObject("Wscript.Shell")
wscript.echo "info: searching for default ini file... " & outputfile
Set objFile = objFSO.GetFile(outputFile)
If err.number <> 0 Then
err.Clear
wscript.echo "info: ini file not found. creating new one..."
wscript.echo "info: creating new file: " & outputfile
Set ts = objFSO.CreateTextFile(outputfile)
If err.Number <> 0 Then
wscript.echo "error: " & err.number & ": " & err.Description
Set objFSO = Nothing
wscript.quit err.Number
End If
wscript.echo "info: waiting for a second. why rush things?..."
objShell.Sleep 1000
Set objShell = Nothing
ts.Write strNew
ts.Close
wscript.echo "info: file created successfully!"
Else
err.Clear
wscript.echo "info: deleting old file... " & outputfile
objFSO.DeleteFile outputfile, True
wscript.echo "info: creating new file... " & outputfile
Set ts = objFSO.CreateTextFile(outputfile)
If err.Number <> 0 Then
wscript.echo "error: " & err.number & ": " & err.Description
Set objFSO = Nothing
wscript.quit err.Number
End If
ts.Write strNew
ts.Close
wscript.echo "info: file updated successfully!"
End If
Set ts = Nothing
Set objINISource = Nothing
Set objFSO = Nothing
Set ts = Nothing
wscript.echo "info: completed."
wscript.echo "info: runtime is " & Round(Timer - t1,2) & " seconds"
[terminaten der codenschnitzel]I know what you're thinking: My variable names suck and my error handling methods could use some improvement. I could also stand to cut back on some bad dietary habits, but ultimately, someone has to feed the worms. You're also probably upset that I didn't do this in PowerShell, which I could have, but I'm too lazy tonight and I have to be up early for work tomorrow.
| Amazon Kindle Publication | Old Price (USD) | New Price (USD) | Discount |
Packaging, Testing, Deploying, Uninstalling and Upgrading Software Applications on the Windows platform. Also covers Configuration Manager, Scripting, Group Policy, and more! | $6.99 | $5.99 | 15% |
Why Your Next IT Project Will Fail (and What You Can Do to Avoid It) Why do Projects fail? More specifically: Why do IT Projects fail? Is there a common thread or pattern that exists among failed IT Projects? Is it predominantly a failure of technology; of people; or a failure of both? Are there warning signs that make it easy to spot the causes before they become problems, with sufficient time to correct them? Are there steps that can be taken to correct the problem once it's begun? Are there strategies that can help prevent these potential issues from occurring again? | $4.99 | $2.99 | 40% |
The Visual LISP Developer's Bible: 2011 Edition Developing, Testing and Compiling VLISP code for AutoCAD 2011. VLIDE options as well as tips and tricks. | $7.99 | $5.99 | 25% |
The Visual LISP Developer's Bible: 1st Edition The Original. The e-book that started it all for me. | $4.99 | $2.99 | 40% |
The AutoCAD Network Administrator's Bible: 2013 Edition Setting up FlexLM and network licensing. Building, Testing and Deploying Autodesk 2013 products (aka "Deployments"), logs, option files, troubleshooting and more. | $9.99 | $7.99 | 20% |
The AutoCAD Network Administrator's Bible: 2012 Edition Setting up FlexLM and network licensing. Building, Testing and Deploying Autodesk 2012 products (aka "Deployments"), logs, option files, troubleshooting and more. | $6.99 | $4.99 | 30% |
The AutoCAD Network Administrator's Bible: 2011 Edition Setting up FlexLM and network licensing. Building, Testing and Deploying Autodesk 2011 products (aka "Deployments"), logs, option files, troubleshooting and more. | $3.99 | $2.99 | 25% |