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
GELÖST

IP-Adresse mit VBScript eingeben

Frage Entwicklung VB for Applications

Mitglied: Silva75

Silva75 (Level 1) - Jetzt verbinden

22.12.2010 um 11:09 Uhr, 5627 Aufrufe, 15 Kommentare

IP-Adresse mit VBScript eingeben

Hallo zäme, ich will meine Netwerkkarte mit vbscript betanken.
Subnetzmaske, Gateway, 2 DNS und 2 WINS kann kodiert sein, aber die IP-Adresse will ich über
einen inputbox eingeben.
Kann mir jemand ein Beispiel geben?

Vielen Dank für die schnelle Hilfe.
Mitglied: Logan000
22.12.2010 um 11:38 Uhr
Moin Moin

Für eine inputbox?
Bitte.
01.
IchBinEineVariable = inputbox("Gib hier mal bitte was ein:") 
02.
MsgBox IchBinEineVariable 
Gruß L.
Bitte warten ..
Mitglied: Xaero1982
22.12.2010 um 12:10 Uhr
Moin,

wozu muss es denn VBscript sein?
Batch geht leichter und schneller

01.
@echo off 
02.
 
03.
::"LAN" ersetzen durch Name der betreffenden Netzwerkverbdinung 
04.
set LAN="Name der NIC" 
05.
 
06.
::Loeschen von DNS, WINS und Gateway einträgen 
07.
 
08.
netsh interface ip delete dns "LAN" all 
09.
netsh interface ip delete wins "LAN" all 
10.
netsh interface ip delete addr "LAN" gateway=all 
11.
 
12.
set snm=255.255.255.0 
13.
set gw=192.168.0.1 
14.
set dns1=192.168.0.1 
15.
set dns2=192.168.0.2 
16.
set wins1=192.168.0.1 
17.
set wins2=192.168.0.2 
18.
set /p IP=Bitte IP-Adresse eingeben:  
19.
 
20.
 
21.
::IP Adresse setzen 
22.
netsh interface ip set address %LAN% static %ip% %snm% %gw% 
23.
 
24.
::DNS1 hinzufügen 
25.
netsh interface ip add dns %LAN% %dns1% 
26.
 
27.
::DNS2 hinzufügen 
28.
netsh interface ip add dns %LAN% %dns2% 
29.
 
30.
::Wins1 Server hinzufügen 
31.
netsh interface ip add wins %LAN% %wins1% 
32.
 
33.
::Wins2 Server hinzufügen 
34.
netsh interface ip add wins %LAN% %wins2% 
35.
 
Ungetestet!

VG
Bitte warten ..
Mitglied: Silva75
22.12.2010 um 12:36 Uhr
Ich wäre froh, wenn es in vbscript wäre!
Bitte warten ..
Mitglied: Logan000
22.12.2010 um 13:07 Uhr
Moin

Oder Microsoft:
http://gallery.technet.microsoft.com/scriptcenter/en-us/3d5ae334-1d75-4 ...

Aber wenn man sich das Geraffel anschaut kommt man zu dem schluß: netsh tuts auch.
Du köntest natürlich auch mit

01.
set objShell = CreateObject("WScript.Shell") 
02.
objShell.run "netsh " ' um sinnvolle Parameter erweitern
arbeiten, wenn es denn unbedingt vbs sein soll.

Gruß L.
Bitte warten ..
Mitglied: Skyemugen
22.12.2010 um 13:20 Uhr
Aloha,

naja man könnte auch einen lustigen Umweg gehen:

01.
IP = inputbox("Gib hier mal bitte was ein:") 
02.
Dim LAN, BAT 
03.
LAN = "LAN-Verbindung" 
04.
BAT = "C:\IP.bat" 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
Set oFile = fso.OpenTextFile(BAT, 8, true) 
07.
If IP > 0 Then 
08.
    oFile.WriteLine "@echo off" & vbCrLf & _ 
09.
"netsh interface ip set address " & Chr(34) & LAN & Chr(34) & " static 192.168.1." & IP & " 255.255.255.0 192.168.100.2" & vbCrLf & _ 
10.
"netsh interface ip add dns " & Chr(34) & LAN & Chr(34) & " 192.168.1.3" & vbCrLf & _ 
11.
"netsh interface ip add dns " & Chr(34) & LAN & Chr(34) & " 192.168.1.4" & vbCrLf & _ 
12.
"netsh interface ip add wins " & Chr(34) & LAN & Chr(34) & " 192.168.1.5" & vbCrLf & _ 
13.
"netsh interface ip add wins " & Chr(34) & LAN & Chr(34) & " 192.168.1.6" 
14.
 
15.
Else 
16.
    MsgBox "Bitte eine gültige IP-Adresse eingeben" 
17.
End If 
18.
oFile.close 
19.
 
20.
set Datei = CreateObject("Wscript.Shell") 
21.
Datei.Run (BAT) 
22.
 
23.
wscript.quit 
(ungetestet, hab letztens genau so einen Fall im VB.net erstellt, allerdings ein wenig anders und mit goto ... aber das befindet sich auf dem Arbeitsrechner)

greetz André
Bitte warten ..
Mitglied: Xaero1982
22.12.2010 um 13:25 Uhr
Geil Skye
Ich würd ja sagen ... dann hat er halt beides )

Der Sinn ist mir schleierhaft, aber ok ... jedem das Seine....!

VG
Bitte warten ..
Mitglied: Silva75
22.12.2010 um 13:35 Uhr
Hallo zäme, ich will nur noch diesen script hier anpassen, sodass der IP-Adresse über einem inputbox eingegeben wird.

01.
''''------------------------------------------------- 
02.
Dim DNSServer 
03.
Dim objServ, objAdapter 
04.
Dim WINSServer1, WINSServer2 
05.
Dim IP, SubNetMask 
06.
Dim Gateway, Metric, ergebnis 
07.
 
08.
 
09.
 
10.
Const COMPUTER = "." 
11.
Const ADAPTERINDEX = "1" 
12.
 
13.
Set objServ = _ 
14.
GetObject("winmgmts://" & COMPUTER) 
15.
Set objAdapter = objServ.Get _ 
16.
    ("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX) 
17.
'''DNS 
18.
DNSServer = Array("172.16.5.4", "172.16.5.5") 
19.
Ergebnis = objAdapter.SetDNSServerSearchOrder(DNSServer) 
20.
 
21.
'''WINS 
22.
WINSServer1 = "172.16.5.4" 
23.
WINSServer2 = "172.16.5.5" 
24.
Ergebnis = objAdapter.SetWINSServer(WINSServer1, WINSServer2) 
25.
 
26.
''''IP 
27.
IP = Array("172.16.70.252") 
28.
SubNetMask = Array("255.255.255.0") 
29.
Ergebnis = objAdapter.EnableStatic(SubNetMask) 
30.
 
31.
''''Gateway 
32.
Gateway = Array("172.16.70.1") 
33.
Metric = Array("1") 
34.
Ergebnis = objAdapter.SetGateways(Gateway, Metric) 
35.
 
36.
Wscript.Echo "Netzwerk eingestellt "
[Edit Biber] Codeformatierung & Hint: in Zeile 29 "..objAdapter.EnableStatic(..) "fehlt die IP als erster Parameter![/Edit]
Bitte warten ..
Mitglied: Skyemugen
22.12.2010 um 13:59 Uhr
Aloha,

ich seh dein Problem nicht, ist doch nun alles vorgegeben worden, was du nutzen kannst ...

01.
address = inputbox("Bitte die IP Eingeben") 
02.
 
03.
''''IP 
04.
IP = Array("172.16.70." & address) 
05.
SubNetMask = Array("255.255.255.0") 
06.
Ergebnis = objAdapter.EnableStatic(IP, SubNetMask)
oder wie oder was?

edit: code-Formatierung und IP im Enable eingefügt [c&p w/o check]
Bitte warten ..
Mitglied: Biber
22.12.2010 um 14:36 Uhr
Moin Silva75,

willkommen im Forum.

Eine Sondergenehmigung, ein paar Nachfragen:

Zitat von Silva75:
Hallo zäme, ich will nur noch diesen script hier anpassen, sodass der IP-Adresse über einem inputbox eingegeben wird.
Hmm, du bist bestimmt Schwyzer?
Um den anderen MitleserInnen das fliessende Lesen etwas zu erleichtern:
Bitte lass einfach überflüssigen Schnickschnack wie Artikel ganz weg.

Nachfrage: Wenn du doch aber kein Wort VBS sprichst, warum muss es denn dann unbedingt VBS sein?
Wer soll es denn pflegen und warten (oder auch nur starten), wenn du der Einäugigste im ganzen Laden bist?
Oder -sollte es doch nur so eine Brauchen-wir-einmal-Leben-Aktion sein:
Wieso dann nicht die dazu vorliegenden "Reicht-für-einmal-im-Leben-Tools" wie NetSh.exe von der Konsole aus verwenden?

Du hast doch jetzt nur für das Rumsuchen und Hin-und-Herposten eine halben Manntag verbrannt - for what?

Grüße
Biber
Bitte warten ..
Mitglied: Silva75
22.12.2010 um 14:40 Uhr
Hallo,

Wenn ich den script so anpassen, bekomme ich eine Fehlermeldung. Er kann die IP-Adresse nicht einpflegen.


address = inputbox("Bitte die IP Eingeben")
SubNetMask = Array("255.255.255.0")
Ergebnis = objAdapter.EnableStatic(address, SubNetMask)
Bitte warten ..
Mitglied: Skyemugen
22.12.2010 um 14:42 Uhr
Aloha,

jetzt fehlt ja auch deine IP ...

funktioniert es nicht so, wie ich es vorgeschlagen hatte oder warum hast du es umgebaut?

greetz André

edit: gibst du nur die letzte Zahl ein oder die gesamte IP eigentlich?
falls letzteres, dann
01.
address = inputbox("Bitte die IP Eingeben") 
02.
 
03.
''''IP 
04.
IP = Array(address) 
05.
SubNetMask = Array("255.255.255.0") 
06.
Ergebnis = objAdapter.EnableStatic(IP, SubNetMask)
edit² (auch zum Post davor von mir) IP im Enable hat gefehlt [aus deinem Code entnommen und nicht auf Fehler geprüft]) ^.^
Bitte warten ..
Mitglied: Silva75
22.12.2010 um 14:51 Uhr
Sorry Aloha, habe deine Vorschlag nicht richtig gelesen. Funktioniert wunderbar.

Vielen Dank!!!
Bitte warten ..
Mitglied: Skyemugen
22.12.2010 um 14:53 Uhr
Zitat von Silva75:
Sorry Aloha, habe deine Vorschlag nicht richtig gelesen. Funktioniert wunderbar.

Vielen Dank!!!

Wer is'n jetzt Aloha? *lach*

Aber bitte, gern geschehen =)

greetz André
Bitte warten ..
Mitglied: Silva75
22.12.2010 um 15:46 Uhr
Sorry Andre, ich bin ein bisschen im stress.
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
LAN, WAN, Wireless
gelöst TP-Link WA501G als Client einrichten - Keine IP Adresse wir bezogen (14)

Frage von bestelitt zum Thema LAN, WAN, Wireless ...

E-Mail
gelöst Falsche SMTP Server IP Adresse (6)

Frage von laster zum Thema E-Mail ...

Batch & Shell
Hostname bzw IP-Adresse in Excel eintragen (12)

Frage von EgonFrenz zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...