Von: Simpups 
27.12.07 - 22:09
27.12.07 - 22:09 
öhm ja tach erstmal. mein Problem ist folgendes: habe mich mal am VBS versucht und was ganz einfaches erstellt. Es benötigt ein Passwort das man eingeben muss und danach soll das halt einen Ordner z.b. öffnen.Mein problem ist jetzt das der Ordner nicht geöffnet wird sondern die fehlermeldung kommt :
Skript: C:\Dokumente und Einstellungen\Sascha\Desktop\Virtuall Basic Lab2.vbs
Zeile: 3
Zeichen: 1
Fehler: Typen unverträglich: 'OpenObject'
Code: 800A00D
Quelle: Laufzeitfehler in Microsoft VBScript
hier das was in der VBS datei steht:
Name= Inputbox ("Geben sie das passwort ein um zugang zu Station X zu gekommen.")
If Name = "1111" then
Open Object = OpenObject ("C:\Dokumente und Einstellungen\Sascha\Eigene Dateien\ICQ\450976873\")
else
Msgbox "Falsches Passwort" ,vbcritical
end if
danke schonmals für eure hilfe
Skript: C:\Dokumente und Einstellungen\Sascha\Desktop\Virtuall Basic Lab2.vbs
Zeile: 3
Zeichen: 1
Fehler: Typen unverträglich: 'OpenObject'
Code: 800A00D
Quelle: Laufzeitfehler in Microsoft VBScript
hier das was in der VBS datei steht:
Name= Inputbox ("Geben sie das passwort ein um zugang zu Station X zu gekommen.")
If Name = "1111" then
Open Object = OpenObject ("C:\Dokumente und Einstellungen\Sascha\Eigene Dateien\ICQ\450976873\")
else
Msgbox "Falsches Passwort" ,vbcritical
end if
danke schonmals für eure hilfe
Von: UKA08
31.12.07 - 10:34
31.12.07 - 10:34
Name= Inputbox ("Geben sie das passwort ein um zugang zu Station X zu gekommen.")
If Name = "1111" then
Set os = CreateObject("Wscript.Shell")
s = "C:\Dokumente und Einstellungen\Sascha\Eigene Dateien\ICQ\450976873\"
s = "explorer.exe /e," & s
os.Run s
else
Msgbox "Falsches Passwort" ,vbcritical
end if
Von: Simpups
31.12.07 - 12:59
31.12.07 - 12:59
Es klappt. vielen dank. :D
Logge dich ein um einen Beitrag zu schreiben.