在我的应用程序创建,我需要它来写一个Visual Basic脚本来改变IP地址在vb.net应用程序中编写一个visual basic脚本。
的脚本如下...
Dim strIPAddress
Dim strSubnetMask
Dim strGateway
Dim intGatewayMetric
Dim strDns1
Dim strDns2
strIPAddress = "192.168.1.211"
strSubnetMask = "255.255.255.0"
strGateway = "192.168.0.11"
intGatewayMetric = 1
strDns1 = "8.8.8.8"
strDns2 = "4.4.4.4"
Set objShell = WScript.CreateObject("Wscript.Shell")
objShell.Run "netsh interface ip set address name=""Local Area Connection"" static " & strIPAddress & " " & strSubnetMask & " " & strGateway & " " & intGatewayMetric, 0, True
objShell.Run "netsh interface ip set dns name=""Local Area Connection"" static "& strDns1, 0, True
objShell.Run "netsh interface ip add dns name=""Local Area Connection"" addr="& strDns2, 0, True
Set objShell = Nothing
WScript.Quit
的方式,我想写这是像下面..
Directory.CreateDirectory("C:\SpecMee\IPChanger\")
Dim objwriter As New System.IO.StreamWriter("C:\SpecMee\IPChanger\IpChanger.vbs")
objwriter.WriteLine("Dim strIPAddress" & Environment.NewLine & "Dim strSubnetMask" & Environment.NewLine & "Dim strGateWay" & Environment.NewLine & "Dim intGatewayMetric" & Environment.NewLine & "Dim strDns1" & Environment.NewLine & "Dim strDns2" & Environment.NewLine & "strIPAddress = """ & Environment.NewLine & TB_IPAddress & Environment.NewLine &)
objwriter.Close()
MessageBox.Show("Created")
我遇到的问题是,它正在和两个时代,如何将我包括“”中的脚本。
我不介意花时间在这,我只是不知道我是否会以正确的方式进行。
任何帮助,将不胜感激。
感谢 克里斯
为什么你以编程方式编写它? – 2012-07-10 21:22:07
我需要在应用程序内部编写它,因为我需要允许用户更改脚本中的IP地址,所以它对它更有用。 – user1244772 2012-07-10 21:24:44
和史蒂夫,谢谢你的建议。迪丹特知道我可以..会做到这一点。谢谢 – user1244772 2012-07-10 21:25:30