Per .vbs den IE9 32-bit aufrufen???

Antworten

Du kannst eine Option auswählen

 
 
Ergebnis anzeigen

Benutzeravatar
majka
★ Ehrenmitglied ★
Beiträge: 3081
Registriert: 05.03.2004, 23:58
Gender:

Per .vbs den IE9 32-bit aufrufen???

Beitrag von majka » 22.07.2011, 14:25

Folgendes,
ich möchte per einem .vbs Script den Internet-Explorer aufrufen. Allerdings nicht den 64bit IE, sondern den 32bit IE.

Unter XP sah das ganze ja noch folgendermaßen aus:

Code: Alles auswählen

Dim oAppIE
Set oAppIE = CreateObject("InternetExplorer.Application")
Unter Win7 macht er mir damit dann aber leider den falschen IE auf.
Wie also könnte ich das wohl umstellen? Weiß das zufällig jemand?

Tante Google

Per .vbs den IE9 32-bit aufrufen???

Beitrag von Tante Google » 22.07.2011, 14:25


Benutzeravatar
majka
★ Ehrenmitglied ★
Beiträge: 3081
Registriert: 05.03.2004, 23:58
Gender:

Re: Per .vbs den IE9 32-bit aufrufen???

Beitrag von majka » 22.07.2011, 15:27

Was zwar ginge, aber leider nicht in diesem Fall ist:

Code: Alles auswählen

Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run """C:\Program Files (x86)\Internet Explorer\iexplore.exe"""
Das öffnet zwar brav den IE9 in 32bit, aber setzt es für den weiteren Verlauf nicht als oAppIE.
Was dann den weiteren Verlauf nicht zulässt.

Benutzeravatar
Manny123
Poweruser
Poweruser
Beiträge: 554
Registriert: 28.10.2009, 23:45

Re: Per .vbs den IE9 32-bit aufrufen???

Beitrag von Manny123 » 22.07.2011, 17:50

Hmm, schon mal hier die Seiten durchgeguckt? Link
Der Zufall ist ein Würfel. Ein gezinkter Würfel.

Benutzeravatar
majka
★ Ehrenmitglied ★
Beiträge: 3081
Registriert: 05.03.2004, 23:58
Gender:

Re: Per .vbs den IE9 32-bit aufrufen???

Beitrag von majka » 22.07.2011, 19:00

Jepp. Und da war auch schon eine Lösung dabei die mir dann weiterhalf.
Nämlich das ganze mit

Code: Alles auswählen

 Main()
 Sub Main()
     Force32bit()
zu starten und mit

Code: Alles auswählen

End Sub
 Sub Force32bit()
     If InStr(UCase(WScript.FullName), "SYSTEM32") > 0 Then
         Dim objShell : Set objShell = CreateObject("WScript.Shell")
         objShell.CurrentDirectory = "C:\Windows\SysWOW64"
         objShell.Run "wscript.exe " & WScript.ScriptFullName, 1, False
         WScript.Quit
     End If
 End Sub
zu beenden.

Danke moinmoin und manny.

Benutzeravatar
Manny123
Poweruser
Poweruser
Beiträge: 554
Registriert: 28.10.2009, 23:45

Re: Per .vbs den IE9 32-bit aufrufen???

Beitrag von Manny123 » 23.07.2011, 13:52

Aha, gut zu wissen. :)
Der Zufall ist ein Würfel. Ein gezinkter Würfel.

Antworten