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

Wie kann ich über VB-Script das Gateway ändern?

Frage Entwicklung VB for Applications

Mitglied: Spyder

Spyder (Level 1) - Jetzt verbinden

15.08.2006, aktualisiert 20.04.2010, 8979 Aufrufe, 2 Kommentare

Hallo,

wie oben der Titel schon sagt, möchte ich über ein VB-Script das Gateway ändern.
Hab auch schon was zusammengebastelt. Die IP-Adressen stellt er mir ja ein, nur der Gateway will nicht.
01.
'############################################# 
02.
Dim IP, SubNetMask, Gateway, Metric, Ergebnis 
03.
Dim objServ, objAdapter 
04.
 
05.
Const COMPUTER = "." 
06.
Const ADAPTERINDEX = "1" 
07.
 
08.
Set objServ = _ 
09.
GetObject("winmgmts://" & COMPUTER) 
10.
Set objAdapter = objServ.Get _ 
11.
    ("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX) 
12.
 
13.
IP = Array("192.168.0.1") 
14.
SubNetMask = Array("255.255.255.0") 
15.
 
16.
Ergebnis = objAdapter.EnableStatic(IP, SubNetMask) 
17.
 
18.
If Ergebnis = 0 Then 
19.
    Gateway = Array("192.168.0.254") 
20.
    Metric = Array("1") 
21.
    Ergebnis = objAdapter.SetGateway(Gateway, Metric) 
22.
 
23.
    If Ergebnis = 0 Then 
24.
        MsgBox "IP-Adresse(n) und Gateway(s) erfolgreich eingestellt." 
25.
    Else 
26.
        MsgBox "Fehler bei der Einstellung des Gateways: " & Ergebnis 
27.
    End If 
28.
Else 
29.
    MsgBox "Fehler bei der Einstellung der IP-Adresse: " & Ergebnis 
30.
End If 
31.
'##################################################
Leider bekomme ich die Meldung. Das object unterstützt diese Eigenschaft oder Methode nicht: SetGateway.

Ich komme hier nicht weiter. kann mir einer helfen?

Gruß Spyder

[Edit Biber] Nur Codetags nachgezogen [/Edit]
Mitglied: MonsterX
15.08.2006 um 12:54 Uhr
Vielleicht hilft dir das weiter:

http://www.cruto.com/resources/vbscript/vbscript-examples/network/clien ...

//edit

Ich glaub ich hab deinen Fehler gefunden: Es heißt nicht "SetGateway", sondern "SetGateways". Mehrzahl, nicht Einzahl.

Gruß,
Denis
Bitte warten ..
Mitglied: Spyder
15.08.2006 um 14:19 Uhr
Danke!!!! Das wars! Prima. *freu*
Dann steht das in dem sch Buch falsch drinne

Gruß Spyder
Bitte warten ..
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...