VBS修改DNS/IP/网关，命令行参数版

唉,解决了,VBS调用二层目录的AU3不加载配置文件

X去掉了也没影响,
IKB.EXE是一个AU3自动安装程序.我用它来安装收费软件的.我们这里用的是爱克吧收费系统
ws.run("ikb\ikb.exe"),ture
能调用,但是不能自动填写编码和收费器IP地址.
单独运行IKB.EXE安装就没问题.
这怎么解决?

X去掉了也没影响,
IKB.EXE是一个AU3自动安装程序.我用它来安装收费软件的.我们这里用的是爱克吧收费系统
ws.run("ikb\ikb.exe"),ture
能调用,但是把能填写编码和收费器IP地址.
单独运行IKB.EXE安装就没问题.
这怎么解决?

我有个问题,想问问你.我写了个VBS的脚本来改IP,并调用一个AU3自动安装程序.问题是,AU3单独使用的时候能准确的填写相关信息,但是如果用VBS调用这个AU3程序,它就不自动填写信息.我把我的VBS脚本发你看看.
Dim Name
Name="" '机器名前缀
Dim Num
Num=Inputbox ("程序设计：AndyQ "+chr(10)&chr(13)+"请输入本机编号:"+chr(10)&chr(13)+"","IP修改器") '输入机器编号.
Dim Ipnum
Ipnum=0+Num 'ip偏移
Dim SubnetMask
SubnetMask="255.255.255.0" '子网掩码
Dim Gateway
Gateway="192.168.1." 'Ip前3位
Dim gatewayip
gatewayip="192.168.1.1" '网关
dim Dns1
Dns1="61.128.128.68" '主DNS
dim Dns2
Dns2="61.128.192.68" '次DNS

Set Sh = CreateObject("WScript.Shell")
Sh.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname",Name&Num,"REG_SZ"
Sh.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname",Name&Num,"REG_SZ"
Set sh = Nothing
Set oShell = Nothing
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(Gateway&Ipnum)
strSubnetMask = Array(SubnetMask)
strGateway = Array("192.168.1.1")
strGatewayMetric = Array(1)
arrDNSServers = Array(Dns1,Dns2)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS=objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)

Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
'ObjComputer.Rename(Name&Num)
Next
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
objNetworkSettings.SetIPXVirtualNetworkNumber(Num)
list = "IP地址：" & Ipnum & vbCr
list = list & "掩码为：" & SubnetMask & vbCr
list = list & "网关地址：" & gatewayip & vbCr
list = list & "首选DNS：" & Dns1 & vbCr
list = list & "次要DNS：" & Dns2 & vbCr
intAnswer = Msgbox("IP修改结果：" & vbtab & vbCr  & vbCr & list ,3+48,"你确认修改成以下信息?")
help = list & "选择是将继续安装,选择否将返回修改IP,选择取消则退出安装"
If intAnswer = vbYes Then
set ws=createobject("wscript.shell")
ws.run("HDeck.exe"),x,ture '选是,继续运行后面的程序
end if
If intAnswer = vbNo Then
set ws=createobject("wscript.shell")
ws.run"st.vbs",x,ture '选否,返回IP修改
end if