4
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 44224
Url: https://administrator.de/contentid/44224
Printed on: May 7, 2024 at 19:05 o'clock
4 Comments
Latest comment
Hallo boernie!
Überprüfe einfach nur die relevanten ersten 8 Stellen:
Ev könntest Du noch mit UCase() dafür sorgen, dass der Computername für den Vergleich in Großbuchstaben umgewandelt wird.
HTH
bastla
Ü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
Hallo bastla!
Vielen Dank!!!
Funktioniert wunderbar!!!
Nur noch aus Interesse:
gibt es eine Möglichkeit zwei unbestimmte Zahlen abzufragen??
Dank und Gruß
boernie
Vielen Dank!!!
Funktioniert wunderbar!!!
Nur noch aus Interesse:
gibt es eine Möglichkeit zwei unbestimmte Zahlen abzufragen??
Dank und Gruß
boernie
Hallo boernie!
Falls Du überprüfen willst, ob auf die ersten 8 Stellen zwei Ziffern folgen, müsstest Du dies zeichenweise erledigen, also etwa
HTH
bastla
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
Hallo bastla!
Danke nochmal!!!
Mein Problem ist gelöst !!!
Gruß
boernie
Danke nochmal!!!
Mein Problem ist gelöst !!!
Gruß
boernie
