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 VBScript und OR

Mitglied: Invisan

Invisan (Level 1) - Jetzt verbinden

18.04.2017 um 13:08 Uhr, 811 Aufrufe, 5 Kommentare, 1 Danke

Hi zusammen,

derzeit bastel ich ein bisschen in VBScript rum.
Leider habe ich mit dem OR Operator einige Probleme.
Ich versuche derzeit abzufragen ob der Computername einen bestimmten String enthält.
Dies habe ich mit Left und Right auch schon so beschränkt das er mir die Stellen 3 und 4 des Namens Ausgibt. In dem Fall die Länderkennung (49, 32 usw)
Die normale Abfrage funktioniert auch soweit so gut.
Hänge ich nun aber das OR hinterher wird es immer als korrekt gewertet.

Hier mal der derzeitige Code.
Der Ländercode ist in meinem Fall derzeit 49 von daher sollten eigentlich beide Skripte ins Else reinlaufen.
Leider tut es das mit einem OR beim IF leider nicht.


Funktioniert
01.
Set objNetwork = CreateObject("Wscript.Network")
02.
strcomputername = ucase((objnetwork.computername))
03.

04.
Const ADS_PROPERTY_APPEND = 3
05.

06.
IF right(left(strcomputername,4),2) = "32" THEN
07.
  Set objNet = WScript.CreateObject("WScript.Network")
08.
  WScript.Echo "Your Computer Name is " & right(left(objNet.ComputerName,4),2)
09.
  WScript.Echo "Your Username is " & objNet.UserName
10.
 
11.
 Else 
12.
 
13.
  Set objNet = WScript.CreateObject("WScript.Network")
14.
  WScript.Echo "Your Computer Name is " & objNet.ComputerName
15.
  WScript.Echo "Your Username is " & objNet.UserName
16.
  
17.
 End IF

Funktioniert nicht
01.
Set objNetwork = CreateObject("Wscript.Network")
02.
strcomputername = ucase((objnetwork.computername))
03.

04.
Const ADS_PROPERTY_APPEND = 3
05.

06.
IF right(left(strcomputername,4),2) = "32" OR "35" THEN
07.
  Set objNet = WScript.CreateObject("WScript.Network")
08.
  WScript.Echo "Your Computer Name is " & right(left(objNet.ComputerName,4),2)
09.
  WScript.Echo "Your Username is " & objNet.UserName
10.
 
11.
 Else 
12.
 
13.
  Set objNet = WScript.CreateObject("WScript.Network")
14.
  WScript.Echo "Your Computer Name is " & objNet.ComputerName
15.
  WScript.Echo "Your Username is " & objNet.UserName
16.
  
17.
 End IF
Mitglied: rubberman
LÖSUNG 18.04.2017, aktualisiert um 13:26 Uhr
Hallo Invisan,

nach dem OR erfolgt bei dir kein zweiter Vergleich.
01.
kennung = right(left(strcomputername,4),2)
02.
IF kennung = "32" OR kennung = "35" THEN
BTW Schau dir mal Mid an.

Grüße
rubberman
Bitte warten ..
Mitglied: em-pie
18.04.2017, aktualisiert um 14:33 Uhr
Moin,

01.
Set objNetwork = CreateObject("Wscript.Network")
02.
strcomputername = ucase((objnetwork.computername))
03.

04.

05.
Const ADS_PROPERTY_APPEND = 3
06.
DIM strComp '  <- Ergänzung, da sonst Fehlerhaft
07.
strComp=right(left(strcomputername,4),2)
08.

09.
IF ((strComp = "32") OR (strComp =  "35")) THEN
10.
  Set objNet = WScript.CreateObject("WScript.Network")
11.
  WScript.Echo "Your Computer Name is " & strComp
12.
  WScript.Echo "Your Username is " & objNet.UserName
13.
 
14.
 Else 
15.
 
16.
  Set objNet = WScript.CreateObject("WScript.Network")
17.
  WScript.Echo "Your Computer Name is " & objNet.ComputerName
18.
  WScript.Echo "Your Username is " & objNet.UserName
19.
  
20.
 End IF
Hast du es mal so versucht?

Gruß
em-pie
Bitte warten ..
Mitglied: Invisan
18.04.2017 um 13:33 Uhr
Hi em-pie,

danke für den Vorschlag.
Leider läuft das Skript in den Error Ungültige Zuweisung 'strcomp'.
Mit der Lösung von rubberman und dir zusammen klappt es aber.

Herzlichen Dank.
Bitte warten ..
Mitglied: Invisan
18.04.2017, aktualisiert um 13:34 Uhr
Top danke dir rubberman.
Auf die Idee mit Mid bin ich garnicht gekommen ^^"
Bitte warten ..
Mitglied: em-pie
18.04.2017 um 14:31 Uhr
Es fehlte ein (habe es oben ergänzt)
01.
DIM strComp
Habe es oben angepasst.

Warum ich das im übrigen so angedacht habe:
dein String muss zur Laufzeit somit nur 1x zerfleddert werden und ich für jeden Vegleich aufs Neue.
Hat auch einen weiteren Aspekt: Wartungsfreundlichkeit. Musst du nun 3 STellig prüfen, wird es nur noch einmal im Skript angepasst und nicht mehr an 3 Stellen
Bitte warten ..
Ähnliche Inhalte
Linux
Sshfs or nfs
Frage von SchnuffixLinux3 Kommentare

Hey :) bin noch relativ neu dabei und frage mich wann genau sshfs oder NFS sinn macht? Könnte das ...

Batch & Shell
Powershell if -eq - or
gelöst Frage von Johnny-CGNBatch & Shell7 Kommentare

Liebe Administratoren, ich hänge gerade an einer simplen CSV-Auswertung via Powershell und scheinbar mache ich etwas falsch, finde aber ...

Microsoft Office
Outlook VBScript
gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Switche und Hubs
Netgear or Aruba Switches
gelöst Frage von SpanishSwitche und Hubs7 Kommentare

Hi all, New installation with existing switches ARUBA 2930F 10 Port with POE+ and SFP+ slots (2 each aprox. ...

Neue Wissensbeiträge
Sicherheit
Böser Bug in Domänenkennwortrichtlinie!
Information von DerWoWusste vor 1 StundeSicherheit

Ich spiege mal Borncity: In Kürze: Nutzt Ihr eine Domänen-Kennwortrichtlinie der herkömmlichen Art (keine PSO-Richtlinie)? Ja? Und plant Ihr, ...

Windows Tools
7-Zip v19.0 MSI silent uninstall
Tipp von Dirmhirn vor 1 TagWindows Tools5 Kommentare

Hi, ich versuchte grade 7-Zip v19.0 MSI silent zu deinstallieren. mit msiexec /x stürzt mir immer der Explorer ab. ...

Windows 10

Theoretisches dauerhaftes Abschalten von Windows-Updates (Windows 10)

Tipp von beidermachtvongreyscull vor 1 TagWindows 105 Kommentare

Moin Kollegen, ich weiß, ich weiß, nur ein Wahnsinniger sperrt Windows-Updates, aber dennoch gibt es Gründe, Windows 10 auf ...

Windows Installation

Windows Install ISO mit übergroßer Install.wim auf FAT32 übertragen

Tipp von Lochkartenstanzer vor 6 TagenWindows Installation11 Kommentare

Moin Kollegen, Viele von euch werden sicher aus praktischen Gründen nicht nur DVDs oder "virtuelle" CD-Laufwerke (Zalman, IODD) zum ...

Heiß diskutierte Inhalte
Router & Routing
Fritz VPN und WoL mit Mikrotik HEX RB750Gr2 möglich?
gelöst Frage von SionzrisRouter & Routing20 Kommentare

Hallo erstmal und danke fürs anklicken :) Ich habe folgendes Setup geplant und scheitere zurzeit an der Realisierung vom ...

LAN, WAN, Wireless
Ca. 120 Ubiquiti Unifi AP-AC Pro in einem Netz
Frage von aditzLAN, WAN, Wireless20 Kommentare

Hallo Ubiquiti-Spezialisten, geplant ist ein flächendeckendes WLAN für ein Altenheim mit den oben genannten APs. Ich habe mal auf ...

Windows 10
Win10 Build Nummer auslesen
Frage von MotoMicWindows 1017 Kommentare

Hallo, ich habe hier einen Windows 10 Pro installierten Rechner. Leider ist mir nicht bekannt, welche Build Nummer installiert ...

Sicherheitsgrundlagen
Sperrung der IMAP Aktivierung: GMail für Apple Mail - in einer Schul-Google-Suite
Frage von lazylandSicherheitsgrundlagen15 Kommentare

Hallo, ich würde mich sehr über Eure Einschätzung und Rat freuen: Der Administrator einer Google Suite (Schule) löscht aus ...