Jump to content

NIC Settings per VBS


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Recommended Posts

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

Link to comment

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

Link to comment

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

Link to comment
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...