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, 9117 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 ...

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

Frage von LindeUnimog zum Thema Outlook & Mail ...

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

Frage von MaxBerg zum Thema Batch & Shell ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Windows Update
MS: Update-Server-Adressen OHNE Wildcards (16)

Frage von mrserious73 zum Thema Windows Update ...

Microsoft Office
+1.000 Ordner in Outlook: Wie besser? (10)

Frage von Matsushita zum Thema Microsoft Office ...

Router & Routing
gelöst Netzwerk am einfachsten trennen (8)

Frage von geheimagent zum Thema Router & Routing ...