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

Netzwerk Script für Windows 2000

Frage Entwicklung VB for Applications

Mitglied: Silva75

Silva75 (Level 1) - Jetzt verbinden

27.12.2010, aktualisiert 10:52 Uhr, 4568 Aufrufe, 5 Kommentare

Netzwerk Script für Windows 2000

Hallo zäme, kann mir jemand helfen diesen Script auf Windows 2000 zu laufen bringen. Auf Windows 2003 geht.
01.
Dim DNSServer 
02.
Dim objServ, objAdapter 
03.
Dim WINSServer1, WINSServer2 
04.
Dim IP, SubNetMask, address 
05.
Dim Gateway, Metric, ergebnis 
06.
 
07.
 
08.
Const COMPUTER = "." 
09.
Const ADAPTERINDEX = "1" 
10.
 
11.
Set objServ = _ 
12.
GetObject("winmgmts://" & COMPUTER) 
13.
Set objAdapter = objServ.Get _ 
14.
    ("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX) 
15.
     
16.
 'IP eingeben 
17.
address = inputbox("Bitte die letzte 2 Oktett IP-Adresse eingeben") 
18.
IP = Array("172.16." & address)  
19.
SubNetMask = Array("255.255.252.0") 
20.
Ergebnis = objAdapter.EnableStatic(IP, SubNetMask) 
21.
 
22.
'Gateway eingeben 
23.
Gateway = Array("172.16.80.1") 
24.
Metric = Array("1") 
25.
Ergebnis = objAdapter.SetGateways(Gateway, Metric) 
26.
     
27.
'DNS eingeben 
28.
DNSServer = Array("172.16.5.4", "172.16.5.5") 
29.
Ergebnis = objAdapter.SetDNSServerSearchOrder(DNSServer) 
30.
 
31.
'WINS eingeben 
32.
WINSServer1 = "172.16.5.4" 
33.
WINSServer2 = "172.16.5.5" 
34.
Ergebnis = objAdapter.SetWINSServer(WINSServer1, WINSServer2) 
35.
 
36.
 
37.
Wscript.Echo "Netzwerkkarte eingestellt"
Mitglied: H41mSh1C0R
27.12.2010 um 11:08 Uhr
Denkste das nun alle sich nen W2k aufsetzen um das Script per C&P auszutesten?

Wo klemmt es denn, gibt es Fehlermeldungen?
Bitte warten ..
Mitglied: Silva75
27.12.2010 um 11:41 Uhr
Hallo, ich glaub hier: Const ADAPTERINDEX = "1" , es handelt sich um einen Virtuelle Server und er findet glaub nicht die richtige Netzwerkkarte.
Bitte warten ..
Mitglied: bastla
27.12.2010 um 11:49 Uhr
... was sich leicht anhand einer eingefügten Zeile 15
WScript.Echo objAdapter.Caption
prüfen lässt - Ergebnis bei mir (unter W2000 und XP):
[00000001] Asynchroner RAS-Adapter

Grüße
bastla
Bitte warten ..
Mitglied: Silva75
27.12.2010 um 13:18 Uhr
Hallo, der Server hat schon mehrere Netzwerkkarte gehabt. Wenn ich suchen, dann zeigt der Registry, 2 Adapter.
Bitte warten ..
Mitglied: 2hard4you
27.12.2010 um 13:38 Uhr
Moin,

bei W2k hat der immer den RAS-Adapter nach vorne geschoben, ab W2k3 ist immer eine NIC die erste...

Gruß

24
Bitte warten ..
Neuester Wissensbeitrag
Festplatten, SSD, Raid

12TB written pro SSD in 2 Jahren mit RAID5 auf Hyper-VServer

Erfahrungsbericht von Lochkartenstanzer zum Thema Festplatten, SSD, Raid ...

Ähnliche Inhalte
Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (34)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

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

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...