Script VBS fonctionne sur XP 32 bits, mais pas sur 7 64-bit

Ce script (une modification de l'un de Rob van der Woude s) fonctionne très bien sur XP 32 bits, mais échoue sur 7 64-bit à Set objDialog = CreateObject( "UserAccounts.CommonDialog" ), avec quelque chose de semblable à l'erreur (traduit du néerlandais) ActiveX cannot create the object "UserAccounts.CommonDialog". Est-il une manière différente que je dois faire pour qu'il soit compatible avec Windows 7?

MsgBox("Your input avi MUST be 60fps, or this script will not work."),0,"IMPORTANT!"

MsgBox("Please select the location of your AVI."),0,"AVI location"

WScript.Echo GetFileName( "", "AVI files (*.avi)|*.avi" )

Function GetFileName( myDir, myFilter )

    Dim objDialog
    Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
    If myDir = "" Then
        objDialog.InitialDir = CreateObject( "WScript.Shell" ).SpecialFolders( "MyDocuments" )
    Else
        objDialog.InitialDir = myDir
    End If
    If myFilter = "" Then
        objDialog.Filter = "All files|*.*"
    Else
        objDialog.Filter = myFilter
    End If

    If objDialog.ShowOpen Then
        GetFileName = objDialog.FileName
    Else
        GetFileName = ""
    End If
End Function