Blade1981

Dankeschön schonmal, das Tool ist nicht schlecht, auch wenn ich vorerst noch nicht gaaanz damit zurecht komm ;), aber kommt Zeit, kommt Rat :)

Ich habe mich nun anders entschieden. Werde es zwar über VBS machen, aber die Änderung letztendlich wird über NETSH laufen. Weil dort kann man einfach "Drahtlose Netzwerkverbindung" nehmen. Das ist das Einfachste. Zumindest vorerst. Falls Probleme auftreten, kann man's ja immernoch ändern.

Hallo!

Ich brauche ein Script (VB-Script), mit dem ich NUR von der W-LAN Schnittstelle die IP ändern kann.

Wie geht das?

Ähm, was noch wichtig ist, wir haben nicht immer die selben Geräte, was heißt, es wäre super, wenn man auf "Drahtlose Netzwerkverbindung" (Eigenschaften der Netzwerkumgebung, dort liest man das so) zugreifen könnte und die Einstellungen nicht über die Bezeichnung/den Namen machen müsste.

Ein Kumpel von mir meinte, dass es unter VBS ginge, dass man explizit nur auf die W-LAN-Einstellungen zugreifen könnte, konnte mir aber auch nichts weiteres sagen.

Ziel ist, dass man einfach auf DHCP umstellen kann und von DHCP schnell wieder auf die "normale" IP-Adresse. Da ich aber bisher nur weiß, wie man alle Netzwerkadapter auf einmal (sprich, es hätten alle Netzwerkadapter des Rechners die selbe IP) umstellt, was nicht Sinn und Zweck des Scriptes sein darf, brauche ich eure Hilfe!

Vielen Dank schonmal!

Okay, soo viel is ned um, aber is trotzdem eleganter dein Vorschlag. Geht nur um das If, welches ich ursprünglich in die "Umfangreiche" Lösung umgesetzt habe (If Then Else End If). Es schaut jetzt so aus und funktioniert perfekt:

Private Function Rechnernummer

Nummer=0

..while Nummer < 1 Or Nummer > 254

Nummer=InputBox ("Bitte Rechnernummer (1 - 254) eingeben!", "Rechnernummer")

....If Nummer= FALSE Then

Abbruch

....Else

On Error Resume Next

PCNummer=Nummer

Nummer=Int(Nummer)

......If Nummer < 1 Or Nummer > 254 then MsgBox("Ungültige Eingabe!")

....End If

..Wend

"Weitere Function"

End Function

Die Zeile mit Integer wollte ich behalten, weil dies die Abfrage auf die Zahl erleichtert und außerdem die "saubere" IP-Eintragung garantiert. Dass ich die "unsaubere" Variable zunächst in eine andere Variable schreibe, hat den Grund, dass sonst die "0"er bei der Namensvergabe verloren gehen wg. Integer.

Supi! Also dankeschön, hast mir sehr geholfen! :)

Oh.... Das ist wohl sehr viel eleganter als meine Lösung... Habe gerade eben selbst was gefunden mit der Fehlermeldung, aber die is "bisschen" länger ;)

Ich probiers aus und meld mich nochmal!

Vielen Dank!

Hallo!

Ey supi :) Gute Lösung! Klappt! Abbruch hab ich integriert. Wenn man jetzt noch eine Fehlermeldung integrieren könnte ("Ungültige Eingabe!") dann wär das perfekt. Aber egal wie ich's mir überdenk, die Meldung kommt immer. Wobei ich ja sagen muss, dass ich nicht genug weiß, um das beurteilen zu können ;)

Aber auf jeden Fall schonmal vielen Dank, damit lässt sich gut was anfangen :)

Unter VBS kann man leider keine Variablen deklarieren. Versucht man Dim ... as ..., dann meckert das Script noch bevor es ausgeführt wird wegen dem "as". Automatisch sind alle Variablen als Variant deklariert.

Jedoch auch wenn ich deklarieren könnte, dann wüsste ich nicht weiter, wie ich bei einem Fehler wieder zurück springen könnte. Die einzige Möglichkeit, die ich bisher kenn, ist, dass man das Script einfach weiter laufen lässt, aber das macht keinen Sinn, da die Nummer für den Rechnernamen und die IP wichtig ist. Und dann versuch mal ne IP mit Buchstaben zu vergeben ;) Also bringt mir das auch nix, wenn er nach nem Fehler einfach weiter macht als wär nix gewesen...

Trotzdem erstmal danke!!!

Hab noch bei anderen Scripts ne Möglichkeit gefunden, aber es geht einfach ned... Hier so, wie es "eigentlich" funktionieren sollte, aber er erkennt nen Fehler in der 2. Zeile wg dem "EnumerateValuesError" -> Syntaxfehler

Private Function Rechnernummer

On Error Goto EnumerateValuesError

Nummer=InputBox ("Bitte Rechnernummer (1 - 254) eingeben!", "Rechnernummer")

If Nummer = FALSE Then

Abbruch

ElseIf Nummer >= 1 and Nummer < 255 Then

Ueberpruefung

Else

Meldung = MsgBox("Ungültige Eingabe!", vbOKOnly, "Abbruch!")

Rechnernummer

End If

Exit Function

EnumerateValuesError:

MsgBox "Error occured ja ja!"

Rechnernummer

Exit Function

End Function

Hallo!

Ich möchte in meinem VB-Script, dass bei einem Fehler nicht abgebrochen wird, sondern dass bei der aktuellen Function wieder von Beginn an gestartet wird.

Mit "On Error GoTo <Function>" oder "On Error Resume Next" klappt es nicht. Zumindest bekomm ich das nicht hin.

Hier der konkrete Fall:

Wenn hier (Nummer=InputBox) eine Zahl mit Buchstaben oder nur Buchstaben eingegeben werden, folgt der Fehler mit Sciptabbruch. Wär doch viel besser, wenn er die Function nochmals von vorne starten würde mit ner MsgBox als Fehlermeldung!

Private Function Rechnernummer

Nummer=InputBox ("Bitte Rechnernummer (1 - 254) eingeben!", "Rechnernummer")

If Nummer = FALSE Then 'Bei drücken auf Abbruch folgt Function Abbruch

Abbruch

ElseIf Nummer >= 1 and Nummer < 255 Then

Ueberpruefung

Else

Meldung = MsgBox("Ungültige Eingabe!", vbOKOnly, "Abbruch!")

Rechnernummer

End If

End Function

Danke schonmals!

Sorry, worauf spielst du mit dem Link an? Ich find nix über die Info wg. Batch bei Longhorn und ich hab auch nichts zu dem VB-Script für den Domänenwechsel gefunden. Nein, auch über die Such-Funktion nicht ;)

Hallo!

Und wieder mal ein VB-Script-Problem...

Ich brauche ein Script, mit dem ich einen PC in eine Domäne aufnehmen kann oder wechseln kann, falls er vorher schon in einer Anderen war.

Per Batch geht das ja über NETDOM, aber ich brauche ein VB-Script.

Und wisst ihr was darüber, ob nun bei Longhorn wirklich keine Batch-Scripte mehr unterstützt werden?

Danke schonmal!

Weiß denn niemand was? Ich weiß, dass es geht, aber nicht wie. Es gibt ja sogar bei WinXP ein VB-Script dafür, aber das ist sehr sehr sehr sehr umfangreich und ich blick da nicht durch, welche paar Zeilen für mich da nötig sind. Zu finden ist das Script dort:

%systemroot%\system32

und heißt pgefileconfig.vbs.

Hab gestern scho ewig rumgetan, aber i find's echt ned raus...

Hallo!

Mich würde interessieren, wie ich die Auslagerungsdatei über ein VB-Script anpassen kann?

Wie das per REG-Datei geht, is klar, aber ich brauch das in meinem VB-Script!

Ich weiß nur, dass das mit RegWrite nicht geht, da hier ein REG_MULTI_SZ - Wert geschrieben werden muss und dieser von RegWrite nicht unterstützt wird.

Andere Möglichkeit? Gibt es andere Methoden dafür? Falls ja, welche?

Danke schonmals!

Okay... Ich hab jetzt herausgefunden, dass man REGWRITE keinen REG_MULTI_SZ - Wert ändern kann. Aber wie kann ich das dann in das Script einbauen?

Alternative (aber trotzdem lieber alles nur per Script):

Kann ich auch den Eintrag per .REG-Datei ändern, ohne dass nachgefragt wird, ob ich den Eintrag wirklich vornehmen will. Tja, mit einem Batch, wär's einfach, da wüsst ich's schon, aber wie geht das per VBS?

Oder gibt's noch ne andere Möglichkeit? Z.B. über WMI? Oder ne andere Methode? Kenn mi ja leider ned so aus...

Aber dafür gibt's ja die Foren ;)

Danke schonmal!!!

Hallo!

Ah, okay... Dankeschön! Mal schauen, ob wir dann ne passende Lösung hier finden ;)

(irgendwie hab ich diesmal keine Meldung bekommen, dass jemand hier noch geantwortet hat, also sorry, dass ich erst so spät antworte! Danke nochmals!)

Hallo!

Ich habe ein VB-Script und dies muss nun erweitert werden. Wegen gewissen Umständen, die sich nicht so schnell ändern lassen, müssen wir die Auslagerungsdatei anpassen. Dies soll per VB-Script passieren. Wenn ich allerdings den Eintrag für die Auslagerungsdatei ändern will, was einen REG_MULTI_SZ-Wert ist, dann bringt er Typenunverträglichkeit. Änder ich das dann von REG_MULTI_SZ in REG_SZ oder lass es ganz weg, dann führt er den Vorgang aus, jedoch passt dann natürlich der Wert nicht.

Noch ergänzend: W2K ist bei uns auf D installiert und wir brauchen die Auslagerungsdatei aber auf C, was sich nach dem Sysprep aber wieder auf D umstellt. Kann man leider auch nicht in der Sysprep.ini einstellen...

Also bei mir schaut das wie folgt aus:

Regestrie.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management2\PagingFiles","c:\pagefile.sys 512 512","REG_SZ"

Wie gesagt, dann führt er das Script aus. Änder ich das in "REG_MULTI_SZ" macht er es nicht (ich habe absichtlich vorerst den Pfad bisschen abgeändert, um mir die Registry nicht zu schießen ;) und es liegt sicherlich nicht daran!).

Wie muss ich vorgehen, dass die Änderung ausführt wird?

Danke schonmals!

Hallo!

Sorry, dass ich mich so spät erst melde!

Supi! Vielen Dank auf alle Fälle! Funktioniert ;)

Kann mir jetz noch jemand sagen, wie ich unter VBS einen CASE mit > und < machen kann?

Danke schonmal!

Hallo!

Wie kann ich unter VBS bei einer InputBox den Abbrechen-Button belegen?

Weil standardmäßig übergeht er bei klicken auf Abbruch einfach nur die Eingabe. Ich möchte aber, dass er dann was anderes ausführt...

Danke schonmal!

Guten Morgen!

Ach menno... Jetz läuft zwar das Script auf meinem XP-Rechner, aber nicht auf dem W2K Rechner, obwohl ich schon Microsoft Windows Script 5.6 (Windows 2000, XP) installiert hab. Weißt du noch was drüber? --->>>Siehe Edit ;)

Des mit'm Case von meinem vorigen Beitrag besteht immer noch, aber wär gut, wenn ma des au no in den Griff bekommen würden... ;)

--->>> Edit

Mensch, das tut weh. Er führte das Script schon aus, nur hat man nicht gesehen, dass er es macht. Also funzt au anscheinend unter W2K ;) *auf-Stirn-hau!*

Hmmm. Mal schauen, is ne Überlegung wert find ich!

Mal noch ne Frage...

Ne Case-Abfrage...

Warum kann ich folgendes machen:

Select case Rechnertyp

case "Typ1"

...

case "Typ2"

...

...

End Select

machen, aber nicht:

Select Case Rechnernummer

case > 255

msgbox "Falsche Eingabe!"

case > 0

...Funktion...

case else

Abbruch

End Select

Er mag das kleiner und größer-Zeichen nicht. Kann ich das umgehen? Oder auch nur wieder durch so ein Modul? Sind die Module dann nur für die Funktion geladen, oder für den gesamten Scriptablauf?

Lernst du dein Zeugs hauptsächlich aus dem Buch?

Ey super!

Funktioniert! Is ja cool. Für was is des wshnet? und set? und WSHShell??? Was sagt des alles? Ich hab davon echt kein Plan. Sorry... Aber der Dummkopf is in dem Fall ned der der Abbricht, sondern ich ;)

Vielen Dank für deine Bemühungen! Echt supi von dir :)

Grüße, Jürgen ;)

Halli hallo!

Also dein letztes Script hat mir jetzt schon gut weiter geholfen. Dankeschön ;) Die Lösung, die ich hier hab (schön langsam recht umfangreicher code), kommt schön langsam dem Ende entgegen ;)

Noch ne Frage. Wie kann ich das Script abbrechen über den Abbrechen-Button? Wenn ich einfach nur End eingeb, dann kommt ne Fehlermeldung, dass noch was erwartet wird. Auch wenn ich es in ner Unterfunktion mach...

Danke nochmals ;)

Ähm... Noch was... Wie geht's dann weiter? Ich kann bei deiner Vorlage die Buttons nicht belegen. Hab schon folgendes versucht (da ich vorher schon so ne ähnliche Abfrage drin hab):

Dim Meldung

Meldung = "Rechnername: " + Rechnername + " - IP-Adresse: " + IPAdresse

MsgBox Meldung, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal

If vbYes Then

msgbox "Yes funktioniert!"

ElseIf vbNo Then

Aendern

Else

msgbox "Sie haben abgebrochen!"

End IF

Hab auch schon statt Meldung eine andere Vatiable genommen (MeldPruef), aber funktioniert nicht. Hab dann auch noch folgendes versucht:

If Meldung = vbYes Then

msgbox "Yes funktioniert!"

ElseIf Meldung = vbNo Then

Aendern

Else

msgbox "Sie haben abgebrochen!"

End IF

Bei einem bringt er immer "Sie haben abgebrochen!" und beim Anderen "Yes funktioniert!" :(

Sorry, aber der Rechnertyp soll ja abgefragt werden vom Rechnernamen. Diese Abfrage ist wichtig für die vom Script resultierende Configuration des Rechners. IP-Adresse und endgültiger Rechnername.

Somit soll das Script den Typen abfragen, dass man nur noch die Rechnernummer eingeben muss. Denn aus diesen beiden "Variablen" resultieren die IP-Adresse und der Computername nach der Imageaufspielung.

Also ich brauch doch nur eine Inputbox mit 3 Buttons und eben einem Textfeld, in das ich die Nummer reinschreiben kann. Der ausgelesene Rechnertyp, der kann entweder in der Titelleiste der Inputbox stehen oder als Text in der Box...

Nein, haut so auch nicht hin. Er schreibt dann "Rechnertyp" einfach nur als Text rein, aber nicht den Inhalt der Variablen...

Trotzdem dankeschön, nachdem ja sonst niemand hier mithilft ;)

Okay... Hab jetz bei dem Programm (der einen Hilfe, die vorhin erwähnt wurde) was gefunden. Jetz muss ich nur noch eine Variable in die Titelleiste oder als Text anzeigen lassen können in dem Auswahlfenster, dann passt des zumindest halbwegs, wenn es keine andere Möglichkeit unter VB-Script gibt ;)

Wenn ich des so probier:

Rechnertyp = test

Meldung = msgbox(Rechnertyp, vbYesNoCancel + vbInformation + vbDefaultButton1 + vbApplicationModal, Rechnertyp)

If Meldung = vbYes Then

' -- Code für Ja

ElseIf Meldung = vbNo Then

' -- Code für Nein

Else

' -- Code für Abbrechen

End If

dann zeigt er nicht "test" an, sondern garnix. Weiß da noch jemand was?

Hilfe...

Bei dem Code von TFEA38 blick i ned ganz durch... ;)

Ich setz jetz einfach mal meinen bisherigen Code mit rein:

_______________________

Set Regestrie = Wscript.CreateObject("WScript.Shell")

Set Network = WScript.CreateObject("WScript.Network")

Rechnertyp=Network.ComputerName

Rechnername=Rechnertyp

Select case Rechnertyp

case "Typ1"

IPAddr="x.x.x."

case "Typ2"

IPAddr="x.x.x."

case "Typ3"

IPAddr="x.x.x."

case "Typ4"

IPAddr="x.x.x."

end select

Hier soll ein Fenster erscheinen, wo der Rechnertyp zur Überprüfung angezeigt wird. Ist dieser richtig, so braucht man in diesem Fenster nur noch dessen Nummer eingeben. Ist der Typ Falsch, soll man die Möglichkeit haben, den Typen manuell zu ändern (z.B. über nen Button, der eine Imputbox öffnet). Außerdem soll Abbruch zur Verfügung stehen.

' Um alles Weitere kümmer ich mich dann schon irgendwie ;)

Wichtig ist, dass man, wenn der Typ stimmt, nur noch die Nummer eingeben muss. Erst, wenn es nicht stimmt, dann dürfen auch mehr klicks nötig sein. Soll halt alles optimal sein ;)