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, 4561 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 ...

Linux

Umlaute zählen - Bash-Script

gelöst Frage von plutowitschLinux5 Kommentare

Hallo liebe Administratoren, ich würde gerne mit Hilfe eines Codeschnipsels die Umlaute eines Strings zählen. Beispiel: Jemand eine Idee, ...

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 ...

Neue Wissensbeiträge
Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 22 StundenDrucker und Scanner2 Kommentare

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 1 TagRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Firewall

Möglicherweise neue Sicherheitslücke in Mikrotik-Firmware

Information von LordGurke vor 3 TagenFirewall3 Kommentare

Hallo zusammen, vor ein paar Monaten gab es ja bereits eine Sicherheitslücke in der Firmware von Mikrotik-Routern, über welche ...

Erkennung und -Abwehr
Rechner hacken mit Cortana, auch Remote
Information von Lochkartenstanzer vor 4 TagenErkennung und -Abwehr3 Kommentare

heise berichtet über den Vortrag von der Blackhat Open Sesame: Picking Locks with Cortana. Einige Fehler sind schon gefixt, ...

Heiß diskutierte Inhalte
Windows Netzwerk
Performance bei Terminalserver
Frage von azizalexanderWindows Netzwerk20 Kommentare

Hallo zusammen, Ich wusste nicht in welches Thema meine Frage passt ich Bitte um Vergebung falls ich hier falsch ...

Exchange Server
Exchange 2013 - Unable to Relay nach extern, SuperMailer
Frage von leon123Exchange Server16 Kommentare

Hallo zusammen, ich brauch mal wieder eure Hilfe. Ich beschäftige mich gerade mit dem SuperMailer und erhalte vom Exchange ...

Windows Server
Remote Desktop Services User Profile Disk - DFS
Frage von einzelkindWindows Server15 Kommentare

Hallo Miteinander, ich richte gerade eine neue RDS Farm auf Basis von Windows Server 2016 ein. Von Server 2012 ...

Peripheriegeräte
Steckdose(nleiste) mit Schwellwert für off und mit externem Taster
Frage von ahstaxPeripheriegeräte15 Kommentare

Hallo, ich suche eine Steckdose oder Steckdosenleiste mit externem Taster und Schwellwerterkennung. Zu realisieren ist folgendes: Ein PC soll ...