boernie
Goto Top

VB-Script: Variable für unbestimmte Zahlen

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

Content-Key: 44224

Url: https://administrator.de/contentid/44224

Ausgedruckt am: 28.03.2024 um 22:03 Uhr

Mitglied: bastla
bastla 12.11.2006 um 12:22:07 Uhr
Goto Top
Hallo boernie!

Überprüfe einfach nur die relevanten ersten 8 Stellen:
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
Mitglied: boernie
boernie 12.11.2006 um 12:44:37 Uhr
Goto Top
Hallo bastla!

Vielen Dank!!!

Funktioniert wunderbar!!!

Nur noch aus Interesse:

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


Dank und Gruß
boernie
Mitglied: bastla
bastla 12.11.2006 um 12:55:49 Uhr
Goto Top
Hallo boernie!

Falls Du überprüfen willst, ob auf die ersten 8 Stellen zwei Ziffern folgen, müsstest Du dies zeichenweise erledigen, also etwa
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 ...  

'oder allgemeiner:  
sCheck = Mid(strComputer, 9)
sErlaubt = "0123456789"  
bOK = True
For i = 1 To Len(sCheck)
    If Not Instr(sErlaubt, Mid(sCheck, i, 1) Then
        bOK = False
        Exit For
    End If
Next
If bOK Then MsgBox "Nur erlaubte Zeichen gefunden ..."  

HTH
bastla
Mitglied: boernie
boernie 12.11.2006 um 13:50:52 Uhr
Goto Top
Hallo bastla!

Danke nochmal!!!

Mein Problem ist gelöst !!!


Gruß
boernie