vbs Script?

ich habe ein vbs script geschieben was mir Microsoft Word Exel etc öffnet ich würde gerne überprüfen lassen ob die programme offen sind wenn ja sollen die programme nicht geöffnet werden und das script soll sich schließen bzw wenn die programme offen sind ich den qode nochmals ausfüre die programme nicht ncheinmal geöffnet werden

quell qode:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run("Excel")

WshShell.Run("OneNote")

WshShell.Run("Powerpoint")

WshShell.Run("Word")

WshShell.Run("MicrosoftTeams")

2 Antworten

Erzesel

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

20.11.2021, 00:04

Allein das ermitteln der Laufenden Prozesse in VBScript ist alles andere als nett:

getProcesses.vbs

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
sQuery = "SELECT * FROM Win32_Process"
Set objItems = objWMIService.ExecQuery(sQuery)
For Each objItem In objItems
  WScript.Echo "Process [Name:" & objItem.Name & "]"
Next

..nö Vbscript sollte auf dem Friedhof der Programmiersprachen liegenbleiben...

Im guten alten Batch ist das obige eine Zeile.

tasklist /nh

Da ich nicht die Pfad zu Deinen Programmen kenne ( ich nutze LibreOffice), schreibe ich Dir nur eine Demo mit allgemein verfügbaren Programmen.

demo.cmd

@echo off
chcp 65001 >nul
  rem liste gesucheten Prozess       gefunden?               positiv  Meckern                  negativ   starten
tasklist /fi "ImageName eq cmd.exe"|find /i "cmd.exe" >nul  &&(echo cmd.exe läuft bereits) ||(start "" "C:\Windows\System32\cmd.exe")
tasklist /fi "ImageName eq notepad.exe"|find /i "notepad.exe" >nul  &&(echo notepad.exe läuft bereits) ||(start "" "C:\Windows\notepad.exe")
  rem du kannst auch auf die positivreaktion verzichten ;)
tasklist /fi "ImageName eq mshta.exe"|find /i "mshta.exe" >nul ||(start "" "mshta" "about:Hallo Welt")
pause

setze für deine Zwecke einfach Deine Programme und Pfade ein.

Glossar

Woher ich das weiß:eigene Erfahrung – Ich mach das seit 30 Jahren

Erzesel

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

programmieren

18.11.2021, 07:28

...und warum machst Du nicht einfach eine Batch, welch Dir die gewünschten Programme startet?

RunMyApps.cmd

@echo off
start "" "lw:\Pfad\word.exe"
start "" "lw:\Pfad\exel.exe"
 rem usw.

Woher ich das weiß:eigene Erfahrung – Ich mach das seit 30 Jahren

TMcodE

Beitragsersteller

19.11.2021, 19:36

es soll als fix seien so dass wenn ich die vbs datei 2mal ausfüre nur einmal die programme starten

Ähnliche Beiträge

Programm von der Taskbar verstecken (CMD)?

Hallo weiß jemand zufällig wie ich ein bestimmtes Program von der Taskbar verstecke also das es noch da ist aber nicht angezeigt wird und das alles in einem Batch Code(am besten) andere Codes währen auch ok.

...zum Beitrag

VBS Script funktioniert nicht?

Hallo zusammen,

ich möchte gerne ein Script erstellen, dass die Windows Farbkalibrierung kurz öffnet einmal Enter und dann ESC tippt. Leider funktioniert das aber irgendwie nicht.

Hier mein Code:

Set oWsh = CreateObject("WScript.Shell")

oWsh.Run("dccw") oWsh.SendKeys ("{ENTER}")

oWsh.SendKeys ("{ESC}")

Hat jemand eine Idee wieso das nicht funktioniert? Das Programm öffnet sich, aber die SendKey Befehle funktionieren nicht....

...zum Beitrag

(VBS) Script soll eine Pause machen?

Hi, ich schreibe gerade ein kleines Script. Es soll ein Programm öffnen und ein paar Zeilen "tippen". Aber bis sich das Programm öffnet und ich alles eingestellt habe, vergehen ein paar Sekunden. Wäre es möglich, dass sich das Script kurz pausiert, und dann weiter den Code abarbeitet? habe es schon mit der "sleep"-Funktion versucht, dabei kommt aber die Fehlermeldung (siehe Anhang). Hier der Code:

Dim Anwendung
Set Anwendung = CreateObject("WScript.Shell")
Anwendung.Run "TSWIN7.EXE"
Anwendung.Sleep(10000)
Anwendung.SendKeys "Test"

PS: Ich schreibe eigentlich nie mit VBS, also bitte so gut wie möglich erklären (am besten mit Codebeispiel), so das ich alles verstehe :D

...zum Beitrag

mit vbs Skript ein click auf den Bildschirm machen?

Hi ich wollte mal fragen wie oben steht mit welchem vbs script man ein click auf der Position x = 423 , y = 354 macht habe schon vieles ausprobiert wie :

Dim x
 set x=createobject("wscript.shell")

 x.sendkeys"{CLICK LEFT,50,60}"

oder

With CreateObject("WScript.Shell")
    .Run "nircmd setcursor 100 100", 0, True
    .Run "nircmd sendmouse right click", 0, True
End With

keine ahnung ob das vbs ist aber kann wer helfen wie ich diesen click mit vbs mache ?

...zum Beitrag

VBS Schleife abbrechen durch Tastendruck?

Hallo, ich habe folgendes Script:

set WshShell = CreateObject("WScript.Shell")
for i=0 to 15
WScript.Sleep 300
WshShell.SendKeys " "
next

wie kann ich einbauen, dass beim drücken von "ESC" das Script vorzeitig beendet wird? Oder egal ob mit esc oder auf anderem Weg.

VIelen Dank!

...zum Beitrag

Wo liegt hier der Fehler (VB-Skript)?

Ich habe versucht da so ein Programm in VBS zu coden aber mir ist da irgendein Fehler unterlaufen. Kann mir da wer helfen diesen Fehler zu beheben? Das Programm soll einen Satz sagen (mit Stimme), ein Fenster öffnen wo man eine Website eingibt und diese dann öffnen. Hier ist der Code:

set STIMME=createobject("sapi.voice")

STIMME.speak("Bitte nenne den Namen der Website die du öffnen willst!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

set WSITE=createobject("wscript.shell")

If Website = "" Then

STIMME.speak("Website nicht gefunden. Bitte versuche es erneut!")

WEBSITE=inputbox("Nenne den Namen der Website","website")

Else

STIMME.speak("Loading " & WEBSITE & ".com")

set WSITE=createobject("wscript.shell")

WSITE.run "http://www. " & WEBSITE & ".com")

STIMME.speak("Website wurde geladen!")

exit do

Loop

...zum Beitrag

Word, Exel, Office bei windows 10 vorinstalliert?

Hi ich wollte einen PC platt machen weil er langsam ist

Nur ich habe keine Keys von Programmen wie Exel Office usw.

Sind die vorinstalliert oder muss man die neu kaufen wenn ich windows 10 neu aufsetzte

...zum Beitrag

Wie kann ich eine Taste zu einer bestimmten Zeit simulieren?

Möchte gern mit VBS o.ä. ein kleines Programm schreiben welches zum Beispiel in einer Stunde die Enter Taste drückt um zum Beispiel eine Nachricht in einer stunde abzusenden bisher habe ich folgendes aber es scheint nicht zu funktionieren:

WScript.Timeout = 60
set sh=createobject("wscript.shell")
sh.sendkeys "{A}"

...zum Beitrag

Word oder Onenote für Schule?

Benutze ein Microsoft Surface. Was ist besser als Ersatz für handschriftliche Notizen - Word oder Onenote?

Mir ist vor allem wichtig, dass es beim Exportieren und Drucken sowie bei Funktionen wie Bilder, Schreiben, Formeln etc. und bei der Schnelligkeit keine Probleme gibt (z.B. Verzögerung beim Schreiben...). Ein ordentliches Organisationssystem mit Ordnern wäre schön, aber meines Wissens gibt es das bei Word gar nicht (dann würde ich die Blätter halt auf dem Tablet lagern) und das von Onenote soll eingeschränkt sein.

Ich glaube, dass beide Programme Zeichenfunktionen wie Lasso, Farbauswahl, verschiedene Stifte und Größen haben - oder?

Wenn jemand Vorschläge mit anderen Libre/Microsoft Office Programmen hat, freue ich mich auch :)

Vielen Dank im Voraus!

...zum Beitrag

Wie viel RAM für Office Laptop?

Wie viel RAM benötige ich?

4GB/8GB/12GB/16/GB oder mehr?

Wenn ich nur Word/OneNote/Chrome—> dabei mehrere Tabs offen haben möchte

...zum Beitrag

Programm starten mit Batch und in dem geöffneten Programm automatische Tastatureingabe mit Befehl?

Hallo Gutefrage Community,

also folgende Frage würde mich brennend interessieren. Ich habe mich in den letzten Tagen mit Batchscripten beschäftigt und bin nun daran Programme mithilfe von Batch automatisch zu starten indem ich sie in den Autostart lege. Ich wüsste wirklich gerne ob man mit einem Befehl in der Batchdatei schaffen kann, dass in dem geöffneten Programm automatisch was eingegeben wird.

als Beispiel:

Nehmen wir mal an ich hab ein Script geschrieben mit dem ich Word starte. Nun möchte ich das die Batchdatei sobald Word gestartet ist in Wort etwas eintippt.

Hoffe auf eure Hilfe

Danke im vorraus

...zum Beitrag

Mit vbs programm starten?

Also ich möchte mit batch eine vbs erstellen die eine msgbox öffnet wo drinnen stehen soll ob man eine seite öffnen will oder nicht drückt man auf neine passiert nix und auf ja passiert was soweit habe ich es schonmal nur leider kenne ich mich mit vbs nicht gut aus, könnte jemand vllt. mein unfertiges skript vervollständigen ?

@echo off

echo choicex=MsgBox("Want to download latest version?" ,36, "Update!") > opensite.vbs

echo If choicex=6 Then (ab hier habe ich keine ahnung mehr) >> opensite.vbs

start /wait opensite.vbs

del /s /q opensite.vbs

...zum Beitrag

Hat Windows 7 Microsoft Word, Microsoft Exel und Microsoft Powerpoint?

Hallo mein neuer Leptop hat Windows 7, da ich früher Windows XP hatte, hatte der Microsoft Word, Microsoft Exel und Microsoft Powerpoint!!

Hat Windows 7 die Programme auch ???

Oder muss man die irgendwo kaufen ???

Danke ;D

...zum Beitrag