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

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, 4589 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 ..
Ähnliche Inhalte
Windows Netzwerk
Scripting in Windows Netzwerk (2)

Frage von Vancouverona zum Thema Windows Netzwerk ...

Windows 10
Windows 10 Powershell Logon Script (9)

Frage von derhoeppi zum Thema Windows 10 ...

Windows Server
gelöst Login Script (kix) bei Windows Server 2012 R2 (6)

Frage von TechNoob17 zum Thema Windows Server ...

Windows Systemdateien
Windows 7 und 10 herunterfahren Knopf mit Script belegen (21)

Frage von c-o-o-p-e-r92 zum Thema Windows Systemdateien ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

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

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Windows 10
Windows 10 Ordnerfreigabe (18)

Frage von Xaero1982 zum Thema Windows 10 ...

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

Frage von liquidbase zum Thema Voice over IP ...

Monitoring
Netzwerk-Monitoring Software (17)

Frage von Ghost108 zum Thema Monitoring ...