Scripcenter David Bell with Win7-64

[ibruethsch]

I had Problems using the Scriptcenter from David Bell with Win7-64.
http://www.bcitool.com/TCDRC/DRScriptCentre.htm
There has to be little change applied.

In palette.html und AutoScriptIndex.vbs
-------------------------------------------------------------
 Sub OpenFile
 dim ObjFSO, InitFSO
 Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
 ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*"
 if left(document.location, = "file:///" and right(document.location, 12) = "palette.html" then
 ObjFSO.InitialDir = replace(unescape(mid(document.location, 9, len(document.location) - 20)), "/", "\") & "\VBScripts"
 end if

 InitFSO = ObjFSO.ShowOpen
 document.location = ObjFSO.FileName
 End Sub
-----------------------------------------------------------------
exchange to:
-----------------------------------------------------------------------
 Sub OpenFile
dim ObjFSO
dim InitFSO
Set ObjFSO=CreateObject("MSComDlg.CommonDialog.1") 
const cdlCancel = 32755 
const cdlOFNHideReadOnly = 4 
const cdlOFNAllowMultiselect = 512 
const cdlOFNFileMustExist = 4096 
Const cdlOFNExplorer = 524288 
ObjFSO.Flags = cdlOFNHideReadOnly + cdlOFNAllowMultiselect + cdlOFNExplorer + cdlOFNFileMustExist 
ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*" 
objFSO.FilterIndex = 1 
objFSO.InitDir = "" 
objFSO.maxfilesize=8000
'25 'dim ObjFSO, InitFSO
 'Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
 'ObjFSO.Filter = "HTML Pages|*.htm*|VBScripts|*.vbs|All Files|*.*"
 if left(document.location, = "file:///" and right(document.location, 12) = "palette.html" then
 ObjFSO.InitDir = replace(unescape(mid(document.location, 9, len(document.location) - 20)), "/", "\") & "\VBScripts"
 end if

 InitFSO = ObjFSO.ShowOpen
 document.location = ObjFSO.FileName
 End Sub
--------------------------------------------------------------------------
then the "open script file" will work again
but the autoload-function still don´t work.

If someone with more sophisticated skilles please have a look to the
"Sub WritePage" in the "AutoScriptIndex.vbs"
any help is appreciated.
best regards
Bernd

[ibruethsch]

Now the scriptcenter works in Win7-64 (for me)  in the way it does with WinXP.
I found the hint:
http://www.itexperience.net/error-80070005-cant-create-object-scripting-filesystemobject-in-windows-script-host/

run the "Eingabeaufforderung" (don´t know the english word , this DOS lookalikewindow) as an administrator
in C:\Windows\System32\
type
regsvr32.exe scrrun.dll

best regards
Bernd