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: Variable für unbestimmte Zahlen

Mitglied: boernie

boernie (Level 1) - Jetzt verbinden

12.11.2006, aktualisiert 13:50 Uhr, 4581 Aufrufe, 4 Kommentare

Hallo,

ich möchte im Netzwerk über das Anmeldescript zwei verschiedene Aktionen ausführen lassen. Bedingung ist der Computername: dieser lautet "BEREICH1" und zwei Zahlen bzw. "BEREICH2" und zwei Zahlen. In jedem Bereich sind mehr als 50 Computer.
Wie bringe ich meinem VB-Script bei, daß zum Computernamen noch zwei unbestimmte Zahlen gehören?

Mein Code sieht vereinfacht so aus:

Option Explicit

Dim wshNetwork
Dim strComputer

Set wshNetwork = WScript.CreateObject( "WScript.Network" )
strComputer = wshNetwork.Computername

If strComputer = ("BEREICH1") Then

WScript.Echo("Anweisung 1 ausführen")

Else

WScript.Echo("Anweisung 2 ausführen")

End If


Wer hat für mich einen Tipp?

Danke
Mitglied: bastla
12.11.2006 um 12:22 Uhr
Hallo boernie!

Überprüfe einfach nur die relevanten ersten 8 Stellen:
01.
If Left(strComputer, 8) = ("BEREICH1") Then
Ev könntest Du noch mit UCase() dafür sorgen, dass der Computername für den Vergleich in Großbuchstaben umgewandelt wird.

HTH
bastla
Bitte warten ..
Mitglied: boernie
12.11.2006 um 12:44 Uhr
Hallo bastla!

Vielen Dank!!!

Funktioniert wunderbar!!!

Nur noch aus Interesse:

gibt es eine Möglichkeit zwei unbestimmte Zahlen abzufragen??


Dank und Gruß
boernie
Bitte warten ..
Mitglied: bastla
12.11.2006 um 12:55 Uhr
Hallo boernie!

Falls Du überprüfen willst, ob auf die ersten 8 Stellen zwei Ziffern folgen, müsstest Du dies zeichenweise erledigen, also etwa
01.
If Mid(strComputer, 9, 1) >= "0" And Mid(strComputer, 9, 1) <="9" And Mid(strComputer, 10, 1) >= "0" And Mid(strComputer, 10, 1) <="9" Then ...
02.

03.
'oder allgemeiner:
04.
sCheck = Mid(strComputer, 9)
05.
sErlaubt = "0123456789"
06.
bOK = True
07.
For i = 1 To Len(sCheck)
08.
    If Not Instr(sErlaubt, Mid(sCheck, i, 1) Then
09.
        bOK = False
10.
        Exit For
11.
    End If
12.
Next
13.
If bOK Then MsgBox "Nur erlaubte Zeichen gefunden ..."
HTH
bastla
Bitte warten ..
Mitglied: boernie
12.11.2006 um 13:50 Uhr
Hallo bastla!

Danke nochmal!!!

Mein Problem ist gelöst !!!


Gruß
boernie
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

VB Script ändert Dateinamen

gelöst Frage von mschaedler1982Batch & Shell5 Kommentare

Hallo zusammen. Kurze Erläuterung zu diesem Thema. Eine Maschine legt jeden Tag zu einer bestimmten Uhrzeit sehr sehr viele ...

VB for Applications

VB-Script per Aufgabenplanung

gelöst Frage von S4kar97VB for Applications2 Kommentare

Hallo, Ich habe mir ein VB-Script erstellt, welches im Grunde ein Programm startet und diesem Parameter übergibt und die ...

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
Windows Mobile

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 13 StundenWindows Mobile

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 2 TagenInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 2 TagenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Windows 10

Windows 10 V1809: Rollout ist gestartet - kommt per Windows Update

Information von kgborn vor 3 TagenWindows 102 Kommentare

Eine kurze Information für die Admins, die Windows 10 im Programm haben. Microsoft hat die letzte Baustelle (die Inkompatibilität ...

Heiß diskutierte Inhalte
TK-Netze & Geräte
TAPI auf einem Win2016Server installieren und einrichten
Frage von wstabelTK-Netze & Geräte32 Kommentare

Hallo liebe Admins, ich habe folgende Situation: 1 Windows Server 2016 Standard als DC 1 SNOM 710 IP-Telefon 1 ...

Off Topic
Darf ich ein Forum erstellen das Produkte eines Herstellers betrifft?
Frage von cyberwallOff Topic9 Kommentare

Hallo Community, ich habe da eine "rechtliche" bzw. allgemeine Frage zum erstellen von Foren. Darf ich als "normale Person" ...

DNS
SFTP über DynDNS nicht OK - über ext. IP funktioniert es
Frage von C.MorgensternDNS8 Kommentare

Hallo zusammen! Ich habe Probleme beim SFTP Zugriff auf eine Linux Maschine vom WAN aus über eine DynDNS Adresse. ...

Router & Routing
Unbekannte IPv4 Adresse im Routerprotokoll(Portweiterleitung)
gelöst Frage von tklustigRouter & Routing7 Kommentare

Hallo Leute, folgender Screenshot(ScanVersusPortForwarding.jpg) zeigt die im Routerprotokoll aufgezeigten Portweiterleitungen und alle von einem IPScanner eruierten IPv4 Adressen in ...