[Help] script for network

[vAgo]

I not able to create some script for my unattended XP

this script could be insert number of ip subnet gateway etc... and others network options like dhcp service

and it's run after application install was finished

help me and pardon "my english"

[Dahi]

Your PC should be able to get network settings from a DHCP server without any special configuration/scripts (if your network drivers are installed correctly).

You can also specify IP, subnet mask, DNS, WINS settings in the WINNT.SIF file.

Read REF.CHM in \SUPPORT\Deploy.cab on your XP CD for details.

[vAgo]

ok...but every pc in lan network have different ip address

can i create a WINNT.SIF for each dvd?!

i try to create some script....

this script set

-ip address

-group

-subnet

-gateway

-domain

etc....

plaese help!!!

[vAgo]

up

[vAgo]

i found it

strComputer = "."
strAnswer=msgbox ("Use 192.168.1.141 / 24?" & vbcrlf & vbcrlf & "If not, you''ll be prompted to specify", vbYesNoCancel)

if strAnswer = vbYes then

  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

elseif strAnswer = vbNo then

  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set colNetAdapters = objWMIService.ExecQuery _
      ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
  strIPAddress = array(inputbox("IP Address"))
      '' Array("192.168.1.141")
  strSubnetMask = array(inputbox("Mask"))
      '' Array("255.255.255.0")
  strGateway = array(inputbox("GW"))
      '' 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


else

  msgbox ("Operation Cancelled by User")

end if

it's a visual basic script!