Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

IP Adresse auslesen

Frage Entwicklung

Mitglied: BADwolf

BADwolf (Level 1) - Jetzt verbinden

04.10.2012 um 16:01 Uhr, 2693 Aufrufe, 2 Kommentare

Hallo ich suche ein script was meine IP adresse ausgibt, bzw. ausgeben kann.

Es soll herausfiltern, in welchem Netzwerk sich der Client befindet.

Testnetzwerk 192.168.31.*
DSL Netzwerk: 192.168.178.*

01.
StartCode 
02.
If IP-Adresse = Testnetzwerk then 
03.
MsgBox "Du befindest dich im Testnetzwerk bitte ein anderes Kabel verwenden",48+5,"VORSICHT" 
04.
   If ClickOnWiederholen goto StartCode 
05.
   elseIf Abbrechen StopProgramm 
06.
elseIf IPAdresse = DSL Netzwerk then 
07.
MsgBox "Du hast Internetzugang",,"Glückwunsch" 
Ich hoffe das ich das jetzt nicht zu umständlich beschrieben habe!

Wäre super wenn mir jemand helfen könnte.
Mitglied: bytecounter
04.10.2012 um 16:17 Uhr
Gut, was ist nun die Frage? Oder sollen wir mal wieder die Arbeit übernehmen?
Wie man eine IP-Adresse herausbekommt, wurde bereits öfter diskutiert.
Bitte warten ..
Mitglied: Dani
04.10.2012, aktualisiert um 18:04 Uhr
Moin,
sieht nach VB aus, oder?! Hier eine kleine Vorlage:
01.
Set IPConfigSet = GetObject("winmgmts://.").ExecQuery("select * from Win32_IP4RouteTable where Name like '192.168.52.%'") 
02.
    For Each IPConfig In IPConfigSet 
03.
            If Not IsNull(IPConfig.IPAddress) Then 
04.
                    For i=LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress) step 2 
05.
                    WScript.Echo "IPAddress: " & IPConfig.IPAddress(i)   
06.
                    Next 
07.
            End If 
08.
    Next
Keine Angst, es erfüllt noch nicht seine Anforderungen. Er soll schließlich auch etwas beitragen.


Grüße,
Dani
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Adressen aus Hyperlinks auslesen (3)

Frage von kluthi69 zum Thema Microsoft Office ...

Entwicklung
gelöst Powershell IP und Hostname auslesen (3)

Frage von LyonAD zum Thema Entwicklung ...

Windows 7
gelöst Bereits eingebundener Drucker - IP Adresse lokal auslesen (17)

Frage von harald.schmidt zum Thema Windows 7 ...

Netzwerke
IP-Adresse Verbergen oder Verstecken (15)

Frage von Daoudi1973 zum Thema Netzwerke ...

Neue Wissensbeiträge
Linux Netzwerk

Ping und das einstellbare Bytepattern

(1)

Erfahrungsbericht von LordGurke zum Thema Linux Netzwerk ...

Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Heiß diskutierte Inhalte
Microsoft Office
Office Druck fehler (18)

Frage von DaistwasimBusch zum Thema Microsoft Office ...

Netzwerkmanagement
Windows Server 2008 R2: "netsh reset" nicht verfügbar? (11)

Frage von RickTucker zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
Uninitialisierte Festplatte - Daten retten (11)

Frage von peterla zum Thema Festplatten, SSD, Raid ...

Microsoft Office
Outlook 2016 in Ordneransicht starten - GPO (9)

Frage von D-Line zum Thema Microsoft Office ...