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

VBS als Aufgabe startet Programm nicht

Frage Microsoft Windows 7

Mitglied: citroendsvier

citroendsvier (Level 1) - Jetzt verbinden

23.08.2014, aktualisiert 22:52 Uhr, 1894 Aufrufe, 2 Kommentare

Guten Abend,

Vorneweg: Ich konnte mich nicht entscheiden, ob das hier eher Thema Windows 7 oder Shell ist.

Ich habe eine VBS geschrieben, die per Aufgabenplanung alle 5 min läuft. Sie prüft, ob eine Datei existiert, und startet, wenn sie existiert, Teamviewer. Den Vorgang speichert sie in eine Log Datei, deshalb sehe ich, dass alles andere läuft. Nur der Befehl

WshShell.run "D:\Programme\Teamviewer\Teamviewer.exe"

funktioniert wohl nicht richtig. Wenn ich ihn durch ein WScript.Echo ersetze, bekomme ich auch keine Meldung. Also in der Aufgabenplanung nachgesehen, und gesehen, dass die Aufgabe länger als 1:30 min ausgeführt wird. Manuell Beendet und neugestartet (Die Aufgabe, nicht das Skript) und wieder nichts passiert. In die LogDatei wird aber trotzdem geschrieben.

Kann es sein, dass ich der Aufgabe noch weitere Rechte geben muss, um ein Programm zu starten? Hier ist nochmal das gesamte Skript:

Option Explicit
' Variablen für 1. Teil
Dim FileSystemObject, File, WshShell, Drive, Path, Time, User
'On Error Resume Next
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
if FileSystemObject.FileExists("D:\Teamviewer.txt") Then
Set File = FileSystemObject.GetFile("D:\Teamviewer.txt")
End if
Set WshShell = CreateObject("WScript.Shell")
' Systemviariablen importieren
Drive = WshShell.ExpandEnvironmentStrings("%~d0")
User = WshShell.ExpandEnvironmentStrings("%Username%")
' Drive mit Path funktioniert noch nicht ganz...
'Path = Drive & "\VBScript\Aufgabe LogFile\LogFile.log"
Path = "J:\VBScript\LogFile.log"
' Zeit festlegen
Time = now()

'
' zweiter Teil *
'

Dim Erfolgreich, LogFile, YesNo
if FileSystemObject.FileExists(File) Then
WshShell.run "D:\Programme\Teamviewer\Teamviewer.exe"
WScript.Echo "Datei gefunden"
' Datei wird später gelöscht
Erfolgreich = "1"
Else
Erfolgreich = "0"
End if

if FileSystemObject.FileExists(Path) Then
Const ForAppending = 8
Set LogFile = FileSystemObject.OpenTextFile(Path, ForAppending, True)
Else
Set LogFile = FileSystemObject.CreateTextFile(Path, True)
End if

if Erfolgreich = "1" then
Erfolgreich = "erfolgreich."
Else
Erfolgreich = "nicht erfolgreich."
YesNo = "nicht "
End if
LogFile.WriteLine(Time & " - " & "Aufgabenausfuehrung war " & Erfolgreich & " Teamviewer wurde " & YesNo & "gestartet.")
LogFile.WriteLine("Benutzername: "& User)
LogFile.WriteLine("-----------------------------------------------------------------------------------------------------")
Set Erfolgreich = nothing
Set YesNo = nothing
LogFile.Close

if FileSystemObject.FileExists(File) Then
FileSystemObject.deleteFile(File)
End if

Ich bin für jede Antwort dankbar!

LG DS4
Mitglied: colinardo
LÖSUNG 24.08.2014, aktualisiert um 18:06 Uhr
Moin DS4,
unter welchem Sicherheitskontext läuft denn deine Aufgabe im Aufgabenplaner ?
Ein WScript.Echo "Datei gefunden" in deinem Script bewirkt, wenn es unter einem anderen Useraccount im Taskplaner gestartet wird, das das Script mit der Messagebox unsichtbar im Hintergrund hängt, da ja keiner die Messagebox wegklicken kann !!
Außerdem sei natürlich erwähnt das Teamviewer nicht sichtbar im Hintergrund gestartet wird, wenn du einen anderen als den aktuellen User für die Ausführung der Aufgabe verwendest, was du im Taskmanager überprüfen kannst.
Wenn die Anwendung nicht in den Tasks aufgeführt wird, prüfe ob der Useraccount mit dem du den Task ausführst die entsprechenden Rechte auf den Ordner hat im dem die Teamviewer-Exe liegt und hake das Kästchen bei Mit höchsten Privilegien ausführen im Task an, dann läuft das wie gewünscht.

Grüße Uwe
Bitte warten ..
Mitglied: citroendsvier
24.08.2014 um 18:06 Uhr
Den Haken bei ,,Mit höchsten Priviligien" habe ich gesetzt, ändert nichts. Des weiteren arbeite ich nur mit einem Useraccount - dort kann das Problem auch nicht liegen. Wenn ich das Skript manuell anklicke, läufts ja auch. Und TV startet im Vordergrund, als Fenster.

Ich werde das Problem jetzt anders lösen: Ich schreibe ein weiteres Skript, was dann das oben geschriebene alle 5 min startet. Das neue Skript kommt dann in den Startup Ordner.. ;)

Aber trotzdem danke für deine Hilfe!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Geplante Aufgabe erstellen - VBS
gelöst Frage von kontextBatch & Shell9 Kommentare

Hallo Leute, Hallo Programmier-Profis :-) :-D Ich arbeite zur Zeit an einem kleinen VB-Script und bin nun auf eine ...

Windows 7
Aufgabe, die wenn eine Datei existiert, ein Programm öffnet.
gelöst Frage von citroendsvierWindows 73 Kommentare

Ich versuche, eine Aufgabe zu erstellen, die, wenn in einem bestimmten Ordner eine Datei mit bestimmtem Namen ist, ein ...

Netzwerke
Programm startet nicht immer
gelöst Frage von Gustl39Netzwerke6 Kommentare

Moin Gemeinde. Ich nutze in der Firma ein Win2008 Server laufwerk. Als Nutzer habe keine Asmin Rechte. Folgendes Problem: ...

Windows 7
Programm (teamviewer) startet nicht
Frage von killtecWindows 78 Kommentare

Hi, wir haben das Problem (Hauptsächlich auf einem Rechner) dass der Teamviewer nicht startet. Wird dre PC dann neu ...

Neue Wissensbeiträge
Batch & Shell

Open Object Rexx: Eine mittlerweile fast vergessene Skriptsprache aus dem Mainframebereich

Information von Penny.Cilin vor 4 StundenBatch & Shell1 Kommentar

Ich kann mich noch sehr gut an diese Skriptsprache erinnern und nutze diese auch heute ab und an noch. ...

Humor (lol)

"gimme gimme gimme": Automatischer Test stolpert über Easter Egg im man-Tool

Information von Penny.Cilin vor 6 StundenHumor (lol)6 Kommentare

Interessant, was man so alles als Easter Egg implementiert. Ist schon wieder Ostern? "gimme gimme gimme": Automatischer Test stolpert ...

MikroTik RouterOS

Mikrotik - Lets Encrypt Zertifikate mit MetaROUTER Instanz auf dem Router erzeugen

Anleitung von colinardo vor 22 StundenMikroTik RouterOS8 Kommentare

Einleitung Folgende Anleitung ist aus der Lage heraus entstanden das ein Kunde auf seinem Mikrotik sein Hotspot Captive Portal ...

Sicherheit

Sicherheitslücke in HP-Druckern - Firmware-Updates stehen bereit

Information von BassFishFox vor 22 StundenSicherheit1 Kommentar

Ein weiterer Grund, dass Drucker keinerlei Verbindung nach "auswaerts" haben sollen. Unter Verwendung spezieller Malware können Angreifer aus der ...

Heiß diskutierte Inhalte
Windows Server
RDP macht Server schneller???
Frage von JaniDJWindows Server17 Kommentare

Hallo Community, wir betrieben seit geraumer Zeit diverse virtuelle Maschinen und Server mit Windows Server 2012. Leider haben wir ...

Windows 10
Windows 10 dunkler Bildschirm nach Umfallen
Frage von AkcentWindows 1015 Kommentare

Hallo, habe hier einen Windows 10 Rechner der von einem User umgefallen wurde (Beine übers Knie, an den PC ...

Server-Hardware
Braucht ein Server eine Grafikkarte?
gelöst Frage von lcer00Server-Hardware14 Kommentare

Hallo zusammen, habe gerade 3 Stunden gebraucht, um herauszubekommen, dass die Remotemanagement-Console von Intel (RMM4) nur funktioniert, wenn die ...

Windows 10
Bitlocker nach Verschlüsselung nicht mehr aufrufbar!
gelöst Frage von alexlazaWindows 1013 Kommentare

Hallo, ich besitze ein HP ZBook 17 G4 mit einem Windows 10 Pro Betriebssystem. Bei diesem Problem handelt sich, ...