Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

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, 9196 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

Batch & Shell
Script Lokales Admin Passwort ändern (3)

Frage von MaxBerg zum Thema Batch & Shell ...

VB for Applications
gelöst Inhalt einer XML Datei Script ändern (4)

Frage von chris27584 zum Thema VB for Applications ...

Batch & Shell
gelöst Modify a vb script to change the targets in lnk files (2)

Frage von jukuhuku zum Thema Batch & Shell ...

Neue Wissensbeiträge
Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(1)

Information von DerWoWusste zum Thema Microsoft ...

Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(5)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (15)

Frage von Lynkon zum Thema TK-Netze & Geräte ...