VB Script Fehlersuche
Hallo zusammen und bitte um eure Hilfe!
Ich möchte folgendes VB Script verwenden (für Hintergrundbilder,...):
...bekomme beim ausführen aber folgende Meldung:
...kann aber nicht erkenne woran es liegt. Hat jemand eine Idee? Bitte um Hilfe.
Danke.
MfG
Mark Aurel
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>
---------------------------
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
Danke.
MfG
Mark Aurel
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 125381
Url: https://administrator.de/forum/vb-script-fehlersuche-125381.html
Ausgedruckt am: 03.01.2025 um 05:01 Uhr
12 Kommentare
Neuester Kommentar
Hallo markaurel !
Das hier
in Hypertext eher so:
und das hier
eher so:
und das hier
eher so:
Gruß Dieter
Das hier
<job>???
</head>
<SCRIPT LANGUAGE="VBScript">
....
</SCRIPT>
<body>
If IsNull( sAppData ) Or Len( sAppData ) = 0 Then
WScript.Quit
End If
If sAppData = "" Then WScript.Quit
If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then
WScript.Quit
End If
If sWallpaper = "" Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then WScript.Quit
Gruß Dieter
Hallo Xaero1982!
Keine Ahnung, was es ist. In HTA z.B. hat es schon was verloren
Gruß Dieter
Keine Ahnung, was es ist. In HTA z.B. hat es schon was verloren
Gruß Dieter
Hallo Xaero1982!
Ja , kann sein. Aber wozu schreibt er dann Tags (<script language="VBScript">)?
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
Ja , kann sein. Aber wozu schreibt er dann Tags (<script language="VBScript">)?
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
Hallo Xaero1982!
Ups, peinlich. Du hast Recht, dass habe ich übersehen:
Skript: C:\Dokumente und Einstellungen\Administrator\Desktop\testscript.vbs
Dann alle Tags entfernen
Gruß Dieter
PS. Ja, diese Montage. Sollte man besser im Bett bleiben
Ups, peinlich. Du hast Recht, dass habe ich übersehen:
Skript: C:\Dokumente und Einstellungen\Administrator\Desktop\testscript.vbs
Dann alle Tags entfernen
Gruß Dieter
PS. Ja, diese Montage. Sollte man besser im Bett bleiben
Du sollst einfach dieses Kram mit <irgendwas> entfernen ...
<job>
<script language="VBScript">
</script>
</job>
hat nichts in einem Vbscript zu suchen
Bei Servergespeicherten Profilen werden die Desktophintergründe IMMER automatisch ohne zutun übernommen. Also entweder hast du was falsch konfiguriert oder ... gibt kein oder
LG
<job>
<script language="VBScript">
</script>
</job>
hat nichts in einem Vbscript zu suchen
Bei Servergespeicherten Profilen werden die Desktophintergründe IMMER automatisch ohne zutun übernommen. Also entweder hast du was falsch konfiguriert oder ... gibt kein oder
LG
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 schneller
Das haben wir doch schon geschrieben. Alle Zeilen mit Tags (spitzen Klammern) komplett entfernen.
Gruß Dieter
PS. Da war wohl Xaero1982 um 8 sekunden schneller