[m3ta]

Hallo zusammen,

ein Kollege und ich sind seit einiger Zeit dabei ein Sidebar Gadget für Windows 7 zu erstellen und haben dafür ein funktionierendes VBScript genutzt. Sobald wir das script aber in die HTML-Datei einfügen funktioniert nichts mehr. Selbst ein simples Starten des Browsers funktioniert nicht.
Hat jemand eine Idee woran das liegt?

	
 
	Set wshshell = Object
	Set proc = System.Diagnostics.Process
	Set pList() = Process

	Sub proxyEin

		pList = Process.GetProcessesByName("iexplore")
		For Each proc In pList
			proc.Kill()
		Next

		wshshell = CreateObject("Wscript.shell")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "10.27.41.3:8080")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "<local>")

	End Sub

	Sub proxyAus

		pList = Process.GetProcessesByName("iexplore")
		For Each proc In pList
			proc.Kill()
		Next

		wshshell = CreateObject("Wscript.shell")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 0, "REG_DWORD")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer", "10.27.41.3:8080")
		wshshell.RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyOverride", "<local>")

	End Sub

	Sub bowserStarten

		Shell("C:\Programme\Internet Explorer\iexplore.exe")

	End Sub

MfG

m3ta

[Schwarzie]

Funktioniert den deine letzte Sub-Routine(?)?
Du gibst dort einen absoluten Pfad zu iexplore.exe an, sollte diese Datei unter Windows nicht global verfügbar sein?

Und funktioniert es wenn du den virtuellen Pfad statt des richtigen (C:\Program Files\[...])verwendest?

Einfach mal ins blaue geraten als ich hier grad den Forenteil durchsuchte.