Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VB Script Fehlersuche

Mitglied: markaurel

markaurel (Level 1) - Jetzt verbinden

21.09.2009, aktualisiert 19:30 Uhr, 4092 Aufrufe, 12 Kommentare

Hallo zusammen und bitte um eure Hilfe!

Ich möchte folgendes VB Script verwenden (für Hintergrundbilder,...):
01.
<script language="VBScript"> 
02.
 
03.
'Deklariere die Variablen 
04.
Dim wshShell, sAppData, sWallpaper, fso 
05.
 
06.
'Erstelle das Shell-Objekt 
07.
Set wshShell = WScript.CreateObject( "WScript.Shell" ) 
08.
 
09.
'Ermittle den Pfad der Anwendungsdaten 
10.
sAppData = wshShell.ExpandEnvironmentStrings( "%APPDATA%" ) 
11.
 
12.
'Beende falls Pfad nicht gefunden 
13.
If IsNull( sAppData ) Or Len( sAppData ) = 0 Then 
14.
WScript.Quit 
15.
End If 
16.
 
17.
'Ergänze den Pfad mit Unterordner Microsoft und Dateiname Wallpaper.bmp 
18.
sAppData = sAppData & "\Microsoft\Wallpaper.bmp" 
19.
 
20.
'Ermittle das aktuelle Wallpaper 
21.
sWallpaper = wshShell.RegRead( "HKCU\Control Panel\Desktop\Wallpaper" ) 
22.
 
23.
'Beende falls kein Wallpaper gewählt wurde oder es sich bereits um ein salvaged Wallpaper handelt 
24.
If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then 
25.
WScript.Quit 
26.
End If 
27.
 
28.
'Erstelle das Dateisystem-Objekt 
29.
Set fso = WScript.CreateObject( "Scripting.FileSystemObject" ) 
30.
 
31.
'Kopiere das Wallpaper in das Anwendungsdaten-Verzeichnis 
32.
fso.CopyFile sWallpaper, sAppData 
33.
 
34.
'Aktualisiere den Registrierungseintrag 
35.
wshShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sAppData 
36.
 
37.
</script>
...bekomme beim ausführen aber folgende Meldung:
01.
--------------------------- 
02.
Windows Script Host 
03.
--------------------------- 
04.
Skript:	C:\Dokumente und Einstellungen\Administrator\Desktop\testscript.vbs 
05.
Zeile:	1 
06.
Zeichen:	1 
07.
Fehler:	Expected statement 
08.
Code:	800A0400 
09.
Quelle: 	Microsoft VBScript compilation error
...kann aber nicht erkenne woran es liegt. Hat jemand eine Idee? Bitte um Hilfe.

Danke.

MfG
Mark Aurel
Mitglied: Xaero1982
21.09.2009 um 08:49 Uhr
Steht
"<job><script>"
auch in dem Script?
Wenn ja, dann lösch es ... hat darin nichts zu suchen

LG
Bitte warten ..
Mitglied: 76109
21.09.2009 um 09:02 Uhr
Hallo markaurel !

Das hier
01.
 <job>???
in Hypertext eher so:
01.
</head>  
02.
 
03.
<SCRIPT LANGUAGE="VBScript"> 
04.
  .... 
05.
 
06.
</SCRIPT> 
07.
 
08.
<body>
und das hier
01.
If IsNull( sAppData ) Or Len( sAppData ) = 0 Then  
02.
WScript.Quit 
03.
End If
eher so:
01.
If sAppData = "" Then WScript.Quit
und das hier
01.
If IsNull( sWallpaper ) Or Len( sWallpaper ) = 0 Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then 
02.
WScript.Quit 
03.
End If
eher so:
01.
If sWallpaper = "" Or sWallpaper = "(Kein)" Or sWallpaper = sAppData Then WScript.Quit
Gruß Dieter
Bitte warten ..
Mitglied: Xaero1982
21.09.2009 um 09:13 Uhr
Ist doch kein HTML
<head>
etc hat hier nichts verloren

lg
Bitte warten ..
Mitglied: 76109
21.09.2009 um 09:22 Uhr
Hallo Xaero1982!

Keine Ahnung, was es ist. In HTA z.B. hat es schon was verloren

Gruß Dieter
Bitte warten ..
Mitglied: Xaero1982
21.09.2009 um 09:33 Uhr
Er schreibt doch vb script

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

lg
PS: Vorallem wozu? Gibt doch so viele schicke Tools
Bitte warten ..
Mitglied: 76109
21.09.2009 um 09:46 Uhr
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
Bitte warten ..
Mitglied: Xaero1982
21.09.2009 um 09:55 Uhr
Alles Spekulationen
Das kann nur er uns beantworten

Also warten wir es ab ....

LG
Bitte warten ..
Mitglied: 76109
21.09.2009 um 09:58 Uhr
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
Bitte warten ..
Mitglied: Xaero1982
21.09.2009 um 10:09 Uhr
*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

LG
PS: Gute Nacht *lach*
Bitte warten ..
Mitglied: markaurel
21.09.2009 um 17:23 Uhr
Hallo zusammen!

Es handelt sich um ein VB-Skript *.vbs, welches das Desktophintergrundbild bei servergespeicherten Profilenbei der Abmeldung "mitnehmen" soll. Habe dieses aus: https://www.administrator.de/index.php?con ... 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
Bitte warten ..
Mitglied: Xaero1982
21.09.2009 um 17:36 Uhr
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
Bitte warten ..
Mitglied: 76109
21.09.2009 um 17:36 Uhr
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
Bitte warten ..
Ähnliche Inhalte
VB for Applications

VB-Script in VB-Script starten und Parameter übergeben

gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell

Probleme bei der Ausführung eines VB-Scriptes

Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server

Drucker entfernen in VB-Script

gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung

VB Script Drucker hinzufügen

Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 3 StundenInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 15 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 17 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 17 StundenMicrosoft10 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Server
Route-Befehl Unterstützung (unter CMD)
gelöst Frage von FKRR56Server19 Kommentare

Guten Tag , i.M. habe ich Probleme über den CMD-Route-Befehl ein Routing auf einen entfernten Server zuzulassen. Der Server ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...