NIC Settings per VBS

[LEONOV 10]

Hi

 

 

Kennt jemand Bücher, Doc's etc. die genauer darauf eingehen wie sich die Settings der NIC per VBS ändern lassen????

 

Habe bis jetzt nur Sachen gefunden wie ich die Settings auslesen kann.

 

 

 

Thx im voraus

[Kiba 10]

Hi,

 

scanne dein System mit Microsoft Sysdiff (Prescan), führe die Änderung an den Netzwerkkarteneinstellungen manuell durch und lasse Sysdiff ein zweites Mal laufen (Postscan). Nach weiteren Menüschritten erstellt dir Sysdiff eine Differenzdatei, der du relativ einfach entnehmen kannst, welcher Wert in der Registry wo einzutragen ist.

 

Umsetzung in WSH:

Set WSHShell = WScript.CreateObject("WScript.Shell")

WSHShell.RegWrite "HKLM\SOFTWARE\PC_Setup\Environment\CurrentOffice", "Neuer Wert", "REG_SZ"

 

Sehr gute Seite zum Thema WSH/VBS:

cwashington.netreach.net

 

Viel Erfolg!

Kiba

[blub 115]

leonov, hast du schon in der MSDN nachgesehen?

z.B.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_networkadapterconfiguration.asp

Cu

blub

[LEONOV 10]

Hi

 

 

Danke euch 2.

 

Eure Links sehen vielversprechend aus. Endlich was über die Settings. Ich hab Stunden in der TechNet verbracht aber nichts brauchbares gefunden. Ich hab auch die 2 MSPress Bücher vom Born und Weltner aber die gehen nur auf das Enumerate der Settings ein.

 

Mit dem Sysdiff arbeite ich auch schon länger aber in dieser hinsicht bin ich ein kleiner Purist. Ich mag es nicht etwas zu tun und eigentlich gar nicht genau zu wissen was.

 

Und mein Problem ist folgendes. Ich Scripte Unattended Installationen für eine Versicherungsgesellschaft (1000 W2K Server + ca. 3000 Clients). Kein Rechner ist wie der andere.

Alle liegen in in anderen IP-Ranges (Pro Agentur). Den großteil der Einstellungen kann ich ja per Antwortdatei mitgeben aber einige bekomm ich einfach nicht gebacken. Die wollt ich jetzt per VBS setzen da eh alles in VBS gescriptet ist.

 

Thx für eure Hilfe

[blub 115]

In der Technet habe ich das VBS-Skript gefunden. Müsste das sein, was du suchst:

 

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _

("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.1.141")

strSubnetMask = Array("255.255.255.0")

strGateway = Array("192.168.1.100")

strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters

errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)

errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)

If errEnable = 0 Then

WScript.Echo "The IP address has been changed."

Else

WScript.Echo "The IP address could not be changed."

End If

Next

 

 

Cu

blub

[LEONOV 10]

blub ich liebe Dich

Danke Dir.

 

 

Könntest mir die TechNet ArtikelNummer posten?

 

 

Thx nochmal

[blub 115]

Fein, wenns dir hilft

 

http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/default.asp

unter Networking das erste Skript

 

oder auch:

http://support.microsoft.com/default.aspx?scid=KB;en-us;268781&

 

Cu

blub