Saved for later reference » Lars Erik Jordet

Active Directory user GUID

Lars Erik Jordet — Tue, 06 Jul 2010 13:26:36 +0000

I found this page which contains an old oneliner to get a user GUID in PowerShell – but sadly it doesn’t work anymore.

After some tricking around, I found the following to work:

1	(new-object Guid(,(([directoryservices.directorysearcher] "(samaccountname=theuser)").findall())[0].properties["objectguid"][0])).ToString()

MS Dynamics CRM installation: ASP.NET 2.0 is not installed

Lars Erik Jordet — Mon, 05 Jul 2010 12:46:22 +0000

I got this error message on a server while installing Dynamics. At first I thought the problem was that my IIS is running 64 bit .NET 2.0 (I’ve had problems with that in the past), but it turns out that the actual problem is that .NET 4.0 was installed.

This guy figured out what the problem is: The installer checks for a specific filter in the IIS settings, which doesn’t exist when .NET 4.0 has been installed.

I’ll repeat the fix here, hopefully making this a bit more “discoverable” by search engines (searching the exact error message gave me nothing helpful, just tips about running aspnet_regiis.exe -i repeatedly):

In IIS Manager, right click Web Sites, and select Properties.

Under ISAPI Filters, Add a new filter you call ASP.NET_2.0.50727, pointing to C:\WINDOWS\Microsoft.NET\Framework64\v2.0.50727\aspnet_filter.dll (assuming 64 bit server, otherwise substitute Framework for Framework64).

Dynamics should now install without issue.

“Couldn’t generate the upgrade script.” for version C.0.8.40 of MS SQL Reporting Services

Lars Erik Jordet — Mon, 05 Jul 2010 08:51:42 +0000

The error message “Couldn’t generate the upgrade script” pops up during configuration of Reporting Services for MS SQL Server 2005, if you install reporting services after installing a service pack – in my case Reporting Services was installed as SP1, while the main SQL Server 2005 install was updated to SP3.

Reinstalling SQL Server 2005 SP3 fixed it.

Mercurial module for Python 2.6/Win32

Lars Erik Jordet — Tue, 15 Jun 2010 09:44:43 +0000

I’ve compiled Mercurial 1.5.4 for Python 2.6, following this guide, and uploaded it here, since I guess it’ll be useful for later:

mercurial-1.5.4.win32-py2.6.exe

I use it for Trac 0.12 in a multi-repository setting, so we can keep our old SVN repo while having some of the larger projects on Hg.

Making a Trac install work on Apache 2.2/Python 2.6/win32, 2010 edition

Lars Erik Jordet — Mon, 25 Jan 2010 11:14:25 +0000

About 10 months ago I wrote a short article on getting Trac to work on Python 2.6 and Windows. Recently I updated the install, and took a look at how the situation is now.

This guide assumes you have a working install of Trac on Python 2.5/mod_python/Apache2.2 already, as described in the Trac install guide, and that Python 2.6 is installed.

What needs to be done:

Install Python 2.6 and Trac for 2.6
Build a new version of mod_python
Optionally Replace Apache DLLs (mostly if you followed my previous guide)

Required software

You’ll need Visual C++ 2008 Express Edition or any retail version of VS 2008 if you want to build your own mod_python for 2.6 (I’ll provide a precompiled one in this post).

Preparing

Install Python 2.6 and Trac on 2.6 (using “ easy_install trac” is recommended)

You’ll probably also want to easy_install Pygments for source highlighting.

Building mod_python for 2.6

This guide to mod_python covers the creation and installation of a compatible version of the module.

At this point, you should be able to restart Apache and load up your “old” Trac on Python 2.6, but with the error message that “svn” support is not installed.

A pre-built version of this can be found here: mod_python-3.3.2-dev-20080819.win32-py2.6.exe

Python SVN bindings

My old guide had instructions on how to build these yourself, but after that article was made, “official” Python 2.6 bindings have been released.

Most recent version as of this writing is the SVN 1.6.6 version of the bindings.

Replacing Apache DLLs to make libsvn work

Note: Only use these instructions if you experience problems, and/or you’re running a self-built version of the Python SVN bindings already.

There’s a slight difference between libapr-1.dll as supplied with Apache 2.2 and the one we built together with libsvn, so the fix is to replace the one in your Apache2.2\bin folder with the one from your Python2.6\Lib\site-packages\libsvn folder (copy the libsvn_*.dlls from the same folder into the Apache2.2\bin folder if you still get problems).

Restarting Apache now should make Trac work fully, with Subversion support.

lxml for Python 2.6/win32

Lars Erik Jordet — Fri, 18 Dec 2009 12:03:35 +0000

A quick post today: Using these instructions, I’ve built a statically linked lxml 2.2.4 for Windows.

I used the following versions of the libraries:

1
2
3
4
5
6

STATIC_INCLUDE_DIRS = [
"..\\libxml2-2.7.6.win32\\include",
"..\\libxslt-1.1.26.win32\\include",
"..\\zlib-1.2.3.win32\\include",
"..\\iconv-1.9.2.win32\\include"
]

1
2
3
4
5
6

STATIC_LIBRARY_DIRS = [
"..\\libxml2-2.7.6.win32\\lib",
"..\\libxslt-1.1.26.win32\\lib",
"..\\zlib-1.2.3.win32\\lib",
"..\\iconv-1.9.2.win32\\lib"
]

Download it here: lxml-2.2.4.win32-py2.6

Embedding Google Wave in WordPress

Lars Erik Jordet — Thu, 19 Nov 2009 12:27:04 +0000

This is an attempt to embed a Google Wave …eh… Wave in a WordPress post.

For this I use the beta version of the Wavr plugin, and a test wave I made:

The code to add the above wave is:

1	[wave id="googlewave.com!w+7Mw4xNkZA" color="#000000" bgcolor="#ffffff" font="Verdana, Arial, Helvetica, sans-serif"]

In this testwave I added the bot “easypublic@appspot.com”, which makes the wave public for you (I couldn’t get the “official” way of adding public@a.gwave.com to work).

You’ll need a Wave account to see the above; if you don’t, I currently have 2 invites to spare, just comment below.

deadbeef random number generator in F#

Lars Erik Jordet — Wed, 18 Nov 2009 15:53:24 +0000

I found the Deadbeef Random Number Generator when reading the Reddit thread “What’s the best / most interesting piece of code you’ve ever seen?” – and since I’m trying to learn F#, I figured I could try implementing it, first in an “imperative” way, then in a more functional way.

First the imperative way, a kind of naïve translation of the C code presented:

1
2
3
4
5
6
7
8
9
10
11
12
13

let mutable (deadbeef_seed:uint32) = uint32 0;
let mutable (deadbeef_beef:uint32) = uint32 0xdeadbeef;

let deadbeef_srand x =
let oldseed = deadbeef_seed
deadbeef_seed <- x
deadbeef_beef <- uint32 0xdeadbeef
oldseed

let deadbeef_rand () =
deadbeef_seed <- (deadbeef_seed <<< 7) ^^^ ((deadbeef_seed >>> 25) + deadbeef_beef);
deadbeef_beef <- (deadbeef_beef <<< 7) ^^^ ((deadbeef_beef >>> 25) + (uint32 0xdeadbeef));
deadbeef_seed;

This is not very functional, with mutables and all that, so I tried again, with an implementation requiring no mutable variables:

1
2
3
4
5
6
7
8
9

let deadbeef_rand_seq seed = seq {
let rec db_rand seed beef = seq {
let newseed = (seed <<< 7) ^^^ ((seed >>> 25) + beef);
let newbeef = (beef <<< 7) ^^^ ((beef >>> 25) + (uint32 0xdeadbeef));
yield newseed
yield! db_rand newseed newbeef
}
yield! db_rand seed (uint32 0xdeadbeef)
}

…much better (at least in my opinion); implemented as a sequence of random numbers, deadbeef_rand_seq(seed).Take(10) would give you 10 random uint32s.
I’ll bet there are about 1000 other ways to make this more F#-like/more functional, so I’d love to hear about them!

Moving to new domain

Lars Erik Jordet — Tue, 11 Aug 2009 11:48:04 +0000

SFLR moved WordPress from vagabonds.info/wp to lejordet.com.

In spirit of the site, here are some of the pitfalls of moving WordPress:

Getting search engines to redirect correctly

I set up the old site to return HTTP 301 – Moved Permanently by putting the following .htaccess file in the /wp folder:

1
2
3
4

RewriteEngine on

RewriteCond %{HTTP_HOST} ^([^.:]+\.)*vagabonds\.info\.?(:[0-9]*)?$ [NC]
RewriteRule ^(.*)$ http://www.lejordet.com/$1 [R=301,L]

This ensures that (most) search engines consider the new location as equivalent to the previous, and will – hopefully – make only the new location appear in search results.

All my WordPress pages are blank after the move!

Assuming you’ve followed the standard operating procedure for moving the blog, and all database entries are updated to the new path (I did this part manually, but the linked procedure seems OK), the most likely reason is that your plugins are still using the old path. If you can still re-enable the old path (in my case, I moved /wp to /wp-deactivated), go in to the admin panel and deactivate all plugins.

They can also be deactivated from the database, if you have no way of returning to the old installation:

1	UPDATE wp_options SET option_value = '' WHERE option_name = 'active_plugins';

When everything works again you can reactivate the plugins, and things should be back to normal.

Printing to PDF from VBA in Excel

Lars Erik Jordet — Mon, 27 Jul 2009 12:50:35 +0000

Creating a PDF from Excel typically requires printing to the “Adobe PDF” printer, selecting the location and file name to save the .pdf as, and finally getting the newly created PDF opened in Acrobat. Automating this is not very straight-forward, and took quite a while to get “right”.

Background

There is no direct COM API that can be used to tell Acrobat to “convert this sheet to PDF please”, and all the solutions I’ve found on the net have been missing pieces of the puzzle (i.e. lots of hardcoded values, only works on the computer they were made on, or requires you to do manual steps before you can start.)

The most common manual step is that you have to uncheck “Don’t send fonts to Adobe PDF”, or as it’s called in recent versions of Acrobat:

Adobe PDF setting: Use system fonts

The problem here is that this setting is in no way persistent, often resetting to its checked state – and there is no registry setting or .ini file setting to force it unchecked.

What you’ll need

As usual, these are the specific versions I use – other versions should work just as well.

Excel 2003
Adobe Acrobat 8
A printer with a PostScript driver (you can also install a dummy printer if you don’t have a “real” printer)

The code

Some of this code is based on this PCreview.co.uk forums post (I can’t remember if this was my original source, but it’s the closest I can find)

You’ll need the file cAcroDist.cls, a class that handles the Distiller events – either import the linked file, or create a new class in VBA and paste the following:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Option Explicit

Public WithEvents odist As PdfDistiller
Attribute odist.VB_VarHelpID = -1
Dim StartTime As Date

Private Sub Class_Initialize()
Set odist = New PdfDistiller
End Sub

Private Sub odist_OnJobDone(ByVal strInputPostScript As String, ByVal strOutputPDF As String)
Kill strInputPostScript ' deletes the input postscript, since it's not needed after PDF is made
End Sub

Private Sub odist_OnJobFail(ByVal strInputPostScript As String, ByVal strOutputPDF As String)
End Sub

Private Sub odist_OnJobStart(ByVal strInputPostScript As String, ByVal strOutputPDF As String)
End Sub

On to the PDF producing code – either use the code below, or import this handy pre-made module: PrintToPDF.bas (note that this needs some manual changes).

In a new module, create the following Sub:

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

Sub PrintToPDF(sPDFFileName, SheetName)

Dim sPSFileName As String 'Name of PS to be created
Dim sJobOptions As String
Dim sCurrentPrinter As String 'Same current printer choice to resume at end
Dim sPDFVersionAndPort As String 'Version of Adobe
Dim sDummyPrinter As String ' Need a dummy printer to produce the PS
Dim appDist As cAcroDist

Set appDist = New cAcroDist
sCurrentPrinter = Application.ActivePrinter 'Save the currently active printer
sDummyPrinter = NetworkPrinter("Dummy Printer Name") ' Change this to match an installed PS-capable printer driver
Application.ActivePrinter = sDummyPrinter
sPSFileName = ThisWorkbook.Path & ThisWorkbook.Name & ".ps" 'Name of PS file
ThisWorkbook.Sheets(SheetName).PrintOut ActivePrinter:=sDummyPrinter, _
PrintToFile:=True, PrToFileName:=sPSFileName 'Prints to PS

Call appDist.odist.FileToPDF(sPSFileName, sPDFFileName, sJobOptions) 'Creates PDF

On Error Resume Next
Kill sPSFileName 'Removes PS
On Error GoTo 0

Application.ActivePrinter = sCurrentPrinter 'Change back to the original printer
End Sub

This procedure finds a specifically named printer, uses its driver to produce a PostScript file, then uses Acrobat Distiller to convert the .ps to .pdf. You will need to add a reference to Acrobat Distiller manually in the VBA editor.

Finally, we need the NetworkPrinter function, which locates which port a printer is on – you CAN hardcode sDummyPrinter to something like “HP Deskjet on Ne03:”, but that will only work on computers that have the printer on that exact port. The NetworkPrinter function – slightly modified solves this:

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

Dim Prt_On As String

Function NetworkPrinter(ByVal myprinter As String)
On Error Resume Next

Dim NetWork As Variant
Dim X As Integer
Prt_On = " On "
'/// Define NetWork Array \\\
NetWork = Array("Ne00:", "Ne01:", "Ne02:", "Ne03:", "Ne04:", _
"Ne05:", "Ne06:", "Ne07:", "Ne08:", _
"Ne09:", "Ne10:", "Ne11:", "Ne12:", _
"Ne13:", "Ne14:", "Ne15:", "Ne16:", _
"LPT1:", "LPT2:", "File:", "SMC100:", _
"XPSPort:")
'Setup printer to Print
X = 0
TryAgain:
On Error Resume Next
'Printer
Application.ActivePrinter = myprinter & Prt_On & NetWork(X)
If Err.Number <> 0 And X < UBound(NetWork) Then
X = X + 1
GoTo TryAgain
ElseIf Err.Number <> 0 And X > UBound(NetWork) - 1 Then
GoTo PrtError
End If
On Error GoTo 0
NetworkPrinter = myprinter & Prt_On & NetWork(X)
errorExit:
Exit Function
PrtError:
'no printer found
NetworkPrinter = ""
Resume errorExit
End Function

This is also defined in PrintToPDF.bas linked above.

Example use

To convert the “Report” sheet in the currently active workbook to a PDF, use this code:

1	PrintToPDF "C:\MyReport.pdf", "Report"

Troubleshooting

No PDF produced

If the printer you use for conversion doesn’t support PostScript, you’ll only end up with a text file called MyReport.txt (following the example above) containing an error message. Change to a different printer to avoid this – alternatively install a fake printer (see next section) to get a compatible driver.

PDF produced has paper size “letter”, regardless of settings

I’m still working on fixing that one…

Installing a fake printer

From Start -> Printers and Faxes -> Add a printer

Installing a fake printer, step 1/6

Installing a fake printer, step 2/6

Installing a fake printer, step 3/6

Installing a fake printer, step 4/6

Installing a fake printer, step 5/6

Installing a fake printer, step 6/6

In short, add a new local printer on LPT1: – don’t search for PnP printers – using a random printer driver with PS in the name (I used the HP Color LaserJet PS – I’m not sure if a non-color printer would work, too), and don’t print a test page. It would probably be possible to share this printer with a network and have everyone install it to have a unified way of printing on a set of computers, but I haven’t tested this.