CS4 VB Script don't work with Win7

Question

Hi,
I hope somebody can help me:
I wrote quite a few scripts creating catalogs from MSAccess with VB scripts.
Now I switch to Win7 and I have the problem that I get type mismatch error 13 as soon it gets to the 'Set' command
    Dim oInDesign As InDesign.Application           ' the InDesign application
    Dim oDocument As InDesign.Document              ' the document we'll be creating
    Dim oPage As InDesign.Page                      ' the page we're currently on
    Set oInDesign = CreateObject("InDesign.Application.CS4")    ' Open Indesign
    Set oDocument = oInDesign.Open(sPathDoc & sIDDoc)     ' Open the starting template
    Set oPage = oDocument.Pages.Item(1)                           ' Set page to the first page of document
Any ideas?
Thanks for help
Klaus

Answer 1

Since we do have the same problem but also some additional infos I bump this thread in the hopes of getting some answers.
The login script does run, but unfortunatly only when I start it manually. It does not run during login.
The only purpose of the script is to map some drives and it works fine under XP. Where else can I find infos about the problem?
Our script looks like that:
On Error resume next  
Set objADSystemInfo = CreateObject("ADSystemInfo")  
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)  
strDn = objUser.Get("distinguishedName")  
strSam = objUser.Get("sAMAccountName")  
strCn = objUser.Get("cn")
Set colGroups = objUser.Groups  
Pos = Instr(strDn,"OU=")  
if Pos = 0 then  
    strOu = "" 
else  
    strOu = Mid(strDn,Pos+3,2)  
end if  
Set objNetwork = CreateObject("WScript.Network")   
objNetwork.MapNetworkDrive "h:", "\\frodo\user\" & strSam  
objNetwork.MapNetworkDrive "j:", "\\frodo\misc" 
objNetwork.MapNetworkDrive "l:", "\\frodo\department" 
objNetwork.MapNetworkDrive "q:", "\\frodo\projects" 
objNetwork.MapNetworkDrive "k:", "\\frodo\department\" & strOu  
if strOu = "IT" then  
    objNetwork.MapNetworkDrive "x:", "\\frodo\software" 
end if  
'WScript.Echo strOut  
For Each objGroup in colGroups  
    if objGroup.CN = "DreCash" then  
    objNetwork.MapNetworkDrive "p:", "\\gollum\drehcash" 
    end if  
Next 
objNetwork.MapNetworkDrive "i:", "\\192.168.1.6\shares"