markaurel
Goto Top

VB Script Fehlersuche

Hallo zusammen und bitte um eure Hilfe!

Ich möchte folgendes VB Script verwenden (für Hintergrundbilder,...):
<script language="VBScript">  

'Deklariere die Variablen  
Dim wshShell, sAppData, sWallpaper, fso

'Erstelle das Shell-Objekt  
Set wshShell = WScript.CreateObject( "WScript.Shell" )  

'Ermittle den Pfad der Anwendungsdaten  
sAppData = wshShell.ExpandEnvironmentStrings( "%APPDATA%" )  

'Beende falls Pfad nicht gefunden  
If IsNull( sAppData ) Or Len( sAppData ) = 0 Then
WScript.Quit
End If

'Ergänze den Pfad mit Unterordner Microsoft und Dateiname Wallpaper.bmp  
sAppData = sAppData & "\Microsoft\Wallpaper.bmp"  

'Ermittle das aktuelle Wallpaper  
sWallpaper = wshShell.RegRead( "HKCU\Control Panel\Desktop\Wallpaper" )  

'Beende falls kein Wallpaper gewählt wurde oder es sich bereits um ein salvaged Wallpaper handelt  
If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then  
WScript.Quit
End If

'Erstelle das Dateisystem-Objekt  
Set fso = WScript.CreateObject( "Scripting.FileSystemObject" )  

'Kopiere das Wallpaper in das Anwendungsdaten-Verzeichnis  
fso.CopyFile sWallpaper, sAppData

'Aktualisiere den Registrierungseintrag  
wshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sAppData  

</script>
...bekomme beim ausführen aber folgende Meldung:
---------------------------
Windows Script Host
---------------------------
Skript:	C:\Dokumente und Einstellungen\Administrator\Desktop\testscript.vbs
Zeile:	1
Zeichen:	1
Fehler:	Expected statement
Code:	800A0400
Quelle: 	Microsoft VBScript compilation error
...kann aber nicht erkenne woran es liegt. Hat jemand eine Idee? Bitte um Hilfe.

Danke.

MfG
Mark Aurel

Content-Key: 125381

Url: https://administrator.de/contentid/125381

Printed on: April 19, 2024 at 08:04 o'clock

Member: Xaero1982
Xaero1982 Sep 21, 2009 at 06:49:22 (UTC)
Goto Top
Steht
"<job><script>"
auch in dem Script?
Wenn ja, dann lösch es ... hat darin nichts zu suchen

LG
Mitglied: 76109
76109 Sep 21, 2009 at 07:02:46 (UTC)
Goto Top
Hallo markaurel !

Das hier
 <job>???
in Hypertext eher so:
</head> 

<SCRIPT LANGUAGE="VBScript">  
  ....

</SCRIPT>

<body>
und das hier
If IsNull( sAppData ) Or Len( sAppData ) = 0 Then 
WScript.Quit
End If
eher so:
If sAppData = "" Then WScript.Quit  
und das hier
If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then  
WScript.Quit
End If
eher so:
If sWallpaper = "" Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then WScript.Quit  

Gruß Dieter
Member: Xaero1982
Xaero1982 Sep 21, 2009 at 07:13:26 (UTC)
Goto Top
Ist doch kein HTML face-confused
<head>
etc hat hier nichts verloren

lg
Mitglied: 76109
76109 Sep 21, 2009 at 07:22:51 (UTC)
Goto Top
Hallo Xaero1982!

Keine Ahnung, was es ist. In HTA z.B. hat es schon was verlorenface-smile

Gruß Dieter
Member: Xaero1982
Xaero1982 Sep 21, 2009 at 07:33:23 (UTC)
Goto Top
Er schreibt doch vb script face-smile

also *.vbs ... ansonsten sollte man doch davon ausgehen, dass er hypertextapp...schreibt, was keinen Sinn ergeben würde ... face-smile

lg
PS: Vorallem wozu? Gibt doch so viele schicke Tools face-smile
Mitglied: 76109
76109 Sep 21, 2009 at 07:46:00 (UTC)
Goto Top
Hallo Xaero1982!

Ja , kann sein. Aber wozu schreibt er dann Tags (<script language="VBScript">)? face-smile

Für mich ließt sich der Beitrag so, als wäre der Code in Hypertext mit eingebunden. Und wenn es ein VB-Script ist (*.vbs), dann können natürlich alle Tags entfernt werden?

Gruß Dieter
Member: Xaero1982
Xaero1982 Sep 21, 2009 at 07:55:05 (UTC)
Goto Top
Alles Spekulationen face-smile
Das kann nur er uns beantworten face-smile

Also warten wir es ab ....

LG
Mitglied: 76109
76109 Sep 21, 2009 at 07:58:27 (UTC)
Goto Top
Hallo Xaero1982!

Ups, peinlich. Du hast Recht, dass habe ich übersehen:
Skript: C:\Dokumente und Einstellungen\Administrator\Desktop\testscript.vbs

Dann alle Tags entfernenface-smile

Gruß Dieter

PS. Ja, diese Montage. Sollte man besser im Bett bleibenface-smile
Member: Xaero1982
Xaero1982 Sep 21, 2009 at 08:09:14 (UTC)
Goto Top
*lach*

DAS hab ich in der Tat aber auch gar nicht gelesen *lach* Hab nur die Fehlermeldung überflogen und Zeile 1 Zeichen 1 ist nun mal ein "<" was im VBScript nichts verloren hat face-smile

LG
PS: Gute Nacht *lach*
Member: markaurel
markaurel Sep 21, 2009 at 15:23:08 (UTC)
Goto Top
Hallo zusammen!

Es handelt sich um ein VB-Skript *.vbs, welches das Desktophintergrundbild bei servergespeicherten Profilenbei der Abmeldung "mitnehmen" soll. Habe dieses aus: ... entnommen. Bitte um Hilfe, da ich noch nie mit VB-Skripten gearbeitet habe. Heißt das keine Spitzklammern bei den einzelnen Tags? Wie muss/soll dieses ausschauen? Kann es mir vielleicht jemand ev. schicken?

Bitte weiter um eure Hilfe.

MfG

Mark Aurel
Member: Xaero1982
Xaero1982 Sep 21, 2009 at 15:36:06 (UTC)
Goto Top
Du sollst einfach dieses Kram mit <irgendwas> entfernen ...
<job>
<script language="VBScript">

</script>
</job>

hat nichts in einem Vbscript zu suchen face-smile

Bei Servergespeicherten Profilen werden die Desktophintergründe IMMER automatisch ohne zutun übernommen. Also entweder hast du was falsch konfiguriert oder ... gibt kein oder face-smile

LG
Mitglied: 76109
76109 Sep 21, 2009 at 15:36:14 (UTC)
Goto Top
Hallo markaurel!

Das haben wir doch schon geschrieben. Alle Zeilen mit Tags (spitzen Klammern) komplett entfernen.

Gruß Dieter

PS. Da war wohl Xaero1982 um 8 sekunden schnellerface-smile