Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hier ein Beispiel
Autor: Dwarf
Datum: 19.09.02 21:52
Hi Elwood, danke für deinen Tipp! Hier das Beispiel das ich gefunden habe... funzt super! (bei mir hats funktioniert den Code des VBS-Script 1:1 nach VisualBasic zu übernehmen) ' ==================== ' ' This script change IP settings from fixed To DHCP And vice-versa To allow a laptop ' computer member of one domain To access network And resources of another domain in a ' different location. Requires Windows 2000 ' ' Author: Marco Malatesta Date: 30-1-2002 ' ' ==================== ' ___________________________________________________________________________________ NIC ID ' here you must specify the ID number of the NIC you want to change. ' I used WMI Object Browser To find it. ID_NIC = Chr(34) & "1" & Chr(34) ' _________________________________________________________________Network 1 Static settings NomeRete1 = "Company 1" ' Network name (only used in the Message Box) IndirizzoIP = Array("10.0.1.10") Maschera = Array("255.0.0.0") Gateway1 = Array("10.0.0.1") 'DefaultIPGateway ' ___________________________________________________________________Network 2 DHCP Settings NomeRete2 = "Company 2" ' Network name (only used in the Message Box) Gateway2 = Array("172.19.156.1") 'DefaultIPGateway AttivaIPC = True ' Needed in order to be able to access resouces of theguesting domain Server = "ServerX" UserName = "DomainXUserName" Pwd = "" ' __________________________________________________________________________ Messaggio = "You are connecting to the " & NomeRete2 & " network?" & vbCrLf & vbCrLf & _ "Yes = Sets for " & NomeRete2 & vbCrLf & _ "No = Sets for " & NomeRete1 & vbCrLf & _ "Cancel = no change" risposta = MsgBox(Messaggio, 32 + 3, " Changing network settings") Select Case risposta Case 2 ' Cancel risposta2 = MsgBox("Nothing changed", , " Changing network settings") Case 6 ' Yes Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & ID_NIC) Result = Adapter.EnableDHCP(True) Result = Adapter.setGateways(Gateway2) Set WshShell = WScript.CreateObject("WScript.Shell") WScript.Sleep 2000 If AttivaIPC Then WshShell.Run ("cmd.exe /c net use " & Server & "ipc$ /USER:" & UserName & " " & Pwd) If Result = 0 Then risposta2 = MsgBox("Sefttings for " & NomeRete2 & " enabled ", , " Changing network settings") Else risposta2 = MsgBox("Sefttings for " & NomeRete2 & " failed ", , " Changing network settings") End If Case 7 ' No Set Adapter = GetObject("winmgmts:Win32_NetworkAdapterConfiguration=" & ID_NIC) Result = Adapter.EnableStatic(IndirizzoIP, Maschera) Result = Adapter.setGateways(Gateway1) If Result = 0 Then risposta2 = MsgBox("Sefttings for " & NomeRete1 & " enabled ", , " Changing network settings") Else risposta2 = MsgBox("Sefttings for " & NomeRete1 & " failed (ERROR!)", , " Changing network settings") End If End Select

IP-Adresse ändern?	90	Dwarf	19.09.02 17:47
Jow, geht	345	Elwood	19.09.02 19:39
Re: Jow, geht	56	Diablo2k	19.09.02 20:26
Hier ein Beispiel	66	Dwarf	19.09.02 21:52
na, super (oT)	307	Elwood	19.09.02 21:58

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen