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 Wert in Variable suchen / Variable ändern

Mitglied: kinggunta

kinggunta (Level 2) - Jetzt verbinden

08.02.2007, aktualisiert 18:12 Uhr, 4681 Aufrufe, 5 Kommentare

Hallo Leute!

Ich habe in einer Batchdatei eine Variable die so Aufgebaut ist:


xyzxxxxzyzyzyz (37373) xxsxsxsx scsc


Jetzt suche ich einen Befehl der alles was hinter der letzten Klammer steht abschneidet.

Also so: xyzxxxxzyzyzyz (37373)


Die Schwierigkeit dabei ist dass die Stellen vor und nach der Klammer einmal mehr und einmal weniger sind.
Alles was ich habe ist immer diese Klammer zu Schluss ")"

Und alles dahinter soll eben abgeschnitten werden.


Bitte HILFE!

Danke
KingGunta
Mitglied: bastla
08.02.2007 um 16:28 Uhr
Hallo kinggunta!

Wenn Du so laut um Hilfe rufst, muss ich natürlich etwas versuchen:
01.
set "Drucker=HP Deskjet 840 (PC1) in Sitzung 1" 
02.
Echo WScript.Echo Left(WScript.Arguments(0), InstrRev(WScript.Arguments(0),")"))> "%temp%\GetPart.vbs" 
03.
for /f "delims=" %%i in ('cscript //nologo "%temp%\GetPart.vbs" "%Drucker%"') do set "Dr=%%i" 
04.
del "%temp%\GetPart.vbs" 
05.
echo %Dr%
(Erste und letzte Zeile zu Demozwecken)

Grüße
bastla
Bitte warten ..
Mitglied: kinggunta
08.02.2007 um 16:46 Uhr
Hallo bastla!

Danke für Deine Antwort!
Ich bin echt schon am verzweifeln. ;-(
Ich glaube du bist der einzige der mit weiterhelfen kann

Habe bis jetzt folgendes Script selbst gebaut:


on error resume next
Msgbox Printerliste

Function Printerliste()
Set shell = CreateObject("Shell.Application")
Set folder = shell.NameSpace(4)
Printerliste = vbcrlf

For Each item In folder.Items

If item.Name <> "Drucker hinzufügen" Then

arrArtikel = Split(item.Name, ")")

Printerliste = Printerliste & arrArtikel(0) & vbcrlf

End If

Next
End Function



Alles hergeleitet aus diesem Skript:

on error resume next
Bsp = ""
Msgbox Printerliste

Function Printerliste()
Set shell = CreateObject("Shell.Application")
Set folder = shell.NameSpace(4)
Printerliste = "Das sind alle verfügbaren Drucker! Bitte genaue Schreibweise beachten!" & vbcrlf

For Each item In folder.Items
If item.Name <> "Neuer Drucker" Then
Printerliste = Printerliste & item.Name & vbcrlf
Bsp = item.Name
End If
Next
End Function

Printerwechsel Inputbox("Welcher Drucker soll Standarddrucker werden?" & vbcrlf _
& Printerliste,vbQuestion,Bsp)

Function Printerwechsel(Printer)
Set shell = CreateObject("Shell.Application")
Set folder = shell.NameSpace(4)

For Each item In folder.Items
If item.Name = Printer Then item.InvokeVerb "Als S&tandard definieren"
Next
End Function

Msgbox "Aus der Registry ausgelesener Standarddrucker : " & StandardPrinter
Function StandardPrinter()
Set wshshell = CreateObject("Wscript.Shell")

key = "HKEY_LOCAL_MACHINE\Config\0001\System\CurrentControlSet\Control\Print\Printers\Default"

StandardAlt = wshshell.RegRead(key)
StandardPrinter = StandardAlt
End Function



Msgbox "Infos des Networkobjectes: " & vbcrlf & NetworkDrucker


Function NetworkDrucker()
Set Netzwerk = CreateObject("Wscript.Network")
Antwort = Msgbox("Soll der Standarddrucker mal mit dem Networkobject gewechselt werden?",vbyesNo+VBQuestion)
if Antwort = vbyes then Netzwerk.setDefaultPrinter Inputbox("Printer-Namen eingeben! " & Printerliste,vbQuestion,Bsp)
Domaen = Netzwerk.UserDomain
UName = Netzwerk.UserName
CName = Netzwerk.ComputerName
Set ndcollection = Netzwerk.EnumPrinterConnections
For Each nd In ndcollection
ndListe = ndListe & nd & Chr(13) & Chr(10)
Next
Info = ""
Info = Info & "User-Domain: " & Domaen & Chr(13) & Chr(10) _
& "User-Name: " & UName & Chr(13) & Chr(10) _
& "Computer-Name: " & CName & Chr(13) & Chr(10) _
& Chr(13) & Chr(10) & Chr(13) & Chr(10) _
& "Permanente Netzwerk_Drucker Verbindungen:" & Chr(13) & Chr(10) _
& Chr(13) & Chr(10) _
& ndListe & Chr(13) & Chr(10)
NetworkDrucker = Info
End Function




Möchte jetzt nur noch die Liste an Drucker die ich in die Massagebox ausgebe dazu verwenden
um bei die bestehenden Druckernamen zu ändern.

Allerdings schaffs ich nicht.

Bitte Hilfe mir!!
Bitte warten ..
Mitglied: bastla
08.02.2007 um 17:01 Uhr
Hallo kinggunta!

Kannst Du bitte etwas genauer ausführen (vielleicht in einem neuen Thema?), was Du benötigst (Batch ja denn wohl eher nicht mehr )?

Grüße
bastla
Bitte warten ..
Mitglied: kinggunta
08.02.2007 um 17:11 Uhr
Servus bastla!

Ich hab ein neues Thema eröffnet:
"Drucker mit VBS ubenennen"


Danke
KingGunta
Bitte warten ..
Mitglied: Biber
08.02.2007 um 18:12 Uhr
Na ja,

auch wenn das Thema eigentlich schon abgefrühstückt ist... eine Fussnote noch

01.
(=18:08:30  D:\temp=) 
02.
>set "Drucker=HP Deskjet 840 (PC1) in Sitzung 1" 
03.
(=18:08:43  D:\temp=) 
04.
>for /f "tokens=1-3 delims=()" %i in ("%Drucker%") do @echo part1[%i] part2[%j] part3[%k] 
05.
part1[HP Deskjet 840 ] part2[PC1] part3[ in Sitzung 1] 
06.
(=18:09:15  D:\temp=) 
07.
>for /f "delims=(" %i in ("%Drucker%") do @echo Drucker is' %i 
08.
Drucker is' HP Deskjet 840 
09.
(=18:10:05  D:\temp=) 
10.
>for /f "delims=)" %i in ("%Drucker%") do @echo Drucker is' %i) 
11.
Drucker is' HP Deskjet 840 (PC1)
Gruss Biber
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Wert in Registry suchen und in Variable speichern

Frage von J.TrollBatch & Shell2 Kommentare

Hi Liebes Form Ich hab ein Problem mit einem denke ich recht einfachen Programmteil. Vielleicht kann mir jemand von ...

Batch & Shell

Powershell - Werte in Variable durch Schleife erweitern bzw. ändern

gelöst Frage von ralfkauskBatch & Shell5 Kommentare

Hallo zusammen Ich habe mir ein Skript gebaut mit dem ich unser AD Abfrage und mir anhand eines Benutzernamens ...

Batch & Shell

Wenn Variable Wert X hat, dann

gelöst Frage von complexBatch & Shell6 Kommentare

Hallo zusammen! Bin aktuell an einem Script und hätte eine Frage: Im Script erhält eine Variable ab und zu ...

Batch & Shell

Variable über Wert aussuchen

gelöst Frage von CreatorXBatch & Shell2 Kommentare

Hallo, ich beschäftige mich gerade mit dem erstellen eines Windows Batchscripts. Folgendes Problem: Es gibt Verschiedene Variablen, die sind ...

Neue Wissensbeiträge
Internet

Europa baut Zensurinfrastruktur auf: EU-Parlament stimmt für Upload-Filter, Leistungsschutzrecht und gegen KI-Forschung

Information von Frank vor 20 StundenInternet6 Kommentare

Eine sehr schlechte Entscheidungen für die Zukunft Europas ist gefallen: Der Rechtsausschuss im EU-Parlament stimmte heute morgen in einer ...

Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 3 TagenWindows 102 Kommentare

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 3 TagenVideo & Streaming9 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 4 TagenErkennung und -Abwehr4 Kommentare

Servus Kollegen, downloadbar unter

Heiß diskutierte Inhalte
Instant Messaging
Whats App Business am PC einsetzen
Frage von thomasreischerInstant Messaging27 Kommentare

Hallo zusammen, wir würden demnächst gerne WhatsApp Business verwenden um den Kontakt zwischen Kunden und Mitarbeitern zu erleichtern. Natürlich ...

Windows 7
Windows 7 Benutzer wechsel nicht möglich
gelöst Frage von OSelbeckWindows 727 Kommentare

Hallo, ich habe hier einen Windows 7 Rechner, der in der Domäne war. Jetzt passiert beim starten, das ich ...

Windows Netzwerk
IP-Adresskonflikt
Frage von Turbo-MasterWindows Netzwerk20 Kommentare

Hallo zusammen, ich habe ein Problem mit unserem Netzwerk unter Windows Server. Ständig erhalten wir die Meldung, dass ein ...

Festplatten, SSD, Raid
RAID auflösen Synology DS213j!
gelöst Frage von Hendrik2586Festplatten, SSD, Raid19 Kommentare

Guten Morgen meine Lieben! :) Diese Frage wird sich sicherlich schon der ein oder andere gestellt haben. Es geht ...