Static IP on Windows PE 2

'*************************************** *****************************
'* File: staticip. vbs
'* Author: codeman
'* Dicky2k5@gmail.com
'* Created: May 2007.
'* Version: 2
'* Description: seting static IP
''' * Dependencies: to use on win Pe2
'*************************************** *****************************
Option explicit
Dim strtaskvalue, objshell, objfso, ob1_miservice, stroutput
Dim strip, strsub, strgtw
Set objshell = Createobject ("wscript. Shell ")
Set objfso = Createobject ("scripting. FileSystemObject ")
Set ob1_miservice = GetObject ("winmgmts: \. \ Root \ cimv2 ")

'*************************************** *************************************
'* Setip
'*************************************** *************************************
'Sub runsetip
Strip = inputbox ("Please enter the IP address.", "192.168.1.11", "192.168.1.11 ")
Strsub = inputbox ("Please enter the subnet mask.", "255.255.255.0", "255.255.255.0 ")
Strgtw = inputbox ("Please enter the gate way.", "192.168.1.1", "192.168.1.1 ")
'Msgbox "netsh int ip addr set local static" & Strip & "& strsub &" "& strgtw &""
Objshell. Run "% comspec %/K netsh int ip addr set local static" & Strip & "& strsub &" "& strgtw &" ", 1, false
Msgbox "whois me --> IP -->" & Strip & "Mask -->" & strsub & "g'way -->" & strgtw &""
'End

'************************************ ****************************************