Top-Themen

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

Script läuft auf meinem Rechner aber auf keinem anderen

Mitglied: Spyder

Spyder (Level 1) - Jetzt verbinden

01.09.2006, aktualisiert 13.10.2006, 4610 Aufrufe, 6 Kommentare

Hallo Leute,

habe hier ein Script welches auf meinem Rechner läuft(XP). Habe es auf anderen Rechnern probiert (win 2000 und XP), dort funktioniert es nicht.


Dim IP, SubNetMask, Ergebnis
Dim objServ, objAdapter

Const COMPUTER = ""
Const ADAPTERINDEX = "1"

Msgbox "IP-Adresse einstellen:"

IP = Array("xxx.xxx.xxx.xxx", "xxx.xxx.xxx.xxx")
SubNetMask = Array("255.255.255.0", "255.255.254.0")

Set objServ = _
GetObject("winmgmts://" & COMPUTER)
Set objAdapter = objServ.Get _
("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX)

Ergebnis = objAdapter.EnableStatic(IP, SubNetMask)

If Ergebnis = 0 Then
MsgBox "IP-Adresse(n) erfolgreich eingestellt."
Else
MsgBox "Fehler: " & Ergebnis
End If

Es kommt immer die Fehlermeldung: Fehler: 84

Kann mir jemand sagen was das bedeutet?
Oder hat jemand eine Idee warum es an meinem Rechner geht, und an anderen nicht?

Gruß Spyder
Mitglied: jarod1701
01.09.2006 um 18:48 Uhr
Hallo,

kann es sein, dass auf den anderen Rechner keine Netzwerkkarte mit dem Index "1" vorhanden ist ? Oder, was etwas wahrscheinlicher ist, dass zwar ein entsprechender Eintrag existiert, die zugehörige Karte (oder der virtuelle Adapter) nicht "IPEnabled" ist ?


mfg,
Kevin
Bitte warten ..
Mitglied: Guenni
01.09.2006 um 21:05 Uhr
@Spyder

Hi,

Oder hat jemand eine Idee warum es an meinem Rechner geht, und an anderen nicht?

Ein Grund "könnte" sein:

Du hast dein Script mit einer Entwicklungsumgebung erstellt, z.B. VB, die
auf deinem PC installiert ist.

Jetzt kopierst du dein Script auf einem PC, auf dem diese Entwicklungsumgebung
NICHT installiert ist.

Also fehlen dem Script wahrscheinlich einige Bibliotheken, DLL's, auf die dein
Script auf deinem PC zurückgreifen kann, aber NICHT ein anderer PC.

Gruß
Günni
Bitte warten ..
Mitglied: jarod1701
01.09.2006 um 21:40 Uhr
Halte ich für unwahrscheinlich. Das einzige, was außer reinem VBScript noch verwendet wird ist WMI, und solange der zugehörige Dienst läuft, läuft auch WMI.
Bitte warten ..
Mitglied: Biber
02.09.2006 um 13:02 Uhr
Moin Spyder,

Der Fehler 84 ist "IP ist auf dem Adapter nicht aktiviert."

Ich würde das Script so ändern, wie es z.B. hier bei M$ skizziert ist.

01.
'[zitert von M$-ScriptingGuy-Seiten]
02.
strComputer = "."
03.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
04.

05.
Set colNetAdapters = objWMIService.ExecQuery _
06.
    ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
07.

08.
strIPAddress = Array("192.168.1.0")
09.
strSubnetMask = Array("255.255.255.0")
10.

11.
For Each objNetAdapter in colNetAdapters
12.
    errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
13.
Next
...wobei das Wesentliche diese Einschränkung ist:
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")

Deine "Prüfung" Set objAdapter = objServ.Get("Win32_NetworkAdapterConfiguration.index=" & ADAPTERINDEX) jedenfalls ist wirklich keine Garantie dafür, dass es auf irgendeinem anderen Rechner läuft.

Gruß
Biber
Bitte warten ..
Mitglied: Spyder
13.10.2006 um 16:58 Uhr
Leider Antworte ich erst jetzt. Aber es hat funktioniert.

Gruß Spyder
Bitte warten ..
Mitglied: Biber
13.10.2006 um 18:02 Uhr
Moin, Spyder,

freut mich trotzdem, Deine Rückmeldung.
Kannst Du als Threadowner bitte Deine Frage auf "Gelöst" setzen?

Danke und schönes Wochenende

Biber
Bitte warten ..
Ähnliche Inhalte
Windows Server
Ps1 Script lauft nicht
gelöst Frage von 131455Windows Server8 Kommentare

Hallo, führe ich Zeilen wie würde die eben als Aufgabenplanung gerne hinterlegen. Gruss Rainer

Hardware

Rechner bringt kein Bild, Lüfter lauft extrem laut

gelöst Frage von Sil3nz3rHardware8 Kommentare

Hallo liebe Admins, Da ich auf Google nichts finden konnte, hoffe ich ihr könnt mir helfen. Ich habe seit ...

PHP

Sicheres Script ?

Frage von WPFORGEPHP13 Kommentare

Hallo, ich habe meinen PHP code bisher eigentlich nicht für überragend gut, aber für sicher gehalten . Nun scheinen ...

Batch & Shell

Script anpassung

gelöst Frage von MultiplexyBatch & Shell14 Kommentare

Hallo zusammen, Ich benötige mal eure Hilfe, es geht darum den folgenden Code anzupassen, das die letzten 2 Ordner ...

Neue Wissensbeiträge
Windows Server

Zähe Update-Installation auf Windows Server 2016

Information von kgborn vor 2 TagenWindows Server4 Kommentare

Mir sind in der Vergangenheit immer wieder Beschwerden von Admins unter die Augen gekommen, die sich über die doch ...

Humor (lol)
Turnschuhe per Firmware lahmlegen
Information von Henere vor 2 TagenHumor (lol)8 Kommentare

Und was kommt demnächst ? Bekomme ich kein Klopapier mehr, weil der Spender einem DDOS unterliegt ? :-) Ich ...

Sicherheit

Sicherheitsrisiko in WinRAR und Co. durch Schwachstelle in UNACEV2.DLL

Information von kgborn vor 2 TagenSicherheit

In der seit 2005 nicht mehr aktualisierten Bibliothek UNACEV2.DLL gibt es eine Path-Traversal-Schwachstelle. Diese ermöglicht es, bei ACE-Archiven Dateien ...

Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 3 TagenInternet6 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Heiß diskutierte Inhalte
Windows Tools
Dateiname Automatisch auf PDF Klartext oder als Barcode abdrucken
Frage von spongebob24Windows Tools29 Kommentare

Hallo Zusammen, habe eine tolle Anforderung bekommen. Ich sollte auf mehrere PDF Dateien Automatisch einen Stempel anbringen lassen. Toll ...

Microsoft Office
MicroSoft und seine Lizenzen
Frage von ZeppelinMicrosoft Office20 Kommentare

Wehrte Community, ich wende mich an die Community weil MicroSoft dazu keine Stellung nehmen möchte. Ich öffne mein Web-Browser ...

Hyper-V
Setup zu 2019 Hyper-V Coreserver gesucht
Frage von DerWoWussteHyper-V17 Kommentare

Moin. Ich habe unter die Möglichkeit, Hyper-V-Server 2012 R2 runterzuladen! Tolle Wurst, Microsoft! Nehme ich eine andere Quelle, nämlich ...

SAN, NAS, DAS
Thecus NAS 7700 Login nicht möglich
Frage von uridium69SAN, NAS, DAS13 Kommentare

Morgen allerseits Ich habe einem Kunden ein gebrauchtes Thecus 7700 NAS verkauft. Nun kann der Kunde sich nicht einloggen, ...