Olá,
Segue abaixo o script. Precisa arrumar o layout que não ficou muito bom.
Se quiser mais de um valor, separe por virgula.
<html>
<head>
<title>DHCP X IP FIXO</title>
<HTA:APPLICATION
ID="IPDHCP"
APPLICATIONNAME="DHCPOUIP"
SingleInstance="Yes"
WindowsState="Normal"
Scroll="No"
Navigable="Yes"
MaximizeButton="No"
SysMenu="Yes"
Caption="Yes"
>
</head>
<SCRIPT LANGUAGE="VBScript">
Sub Window_Onload
'CONFIGURACOES DA TELA
'# Size Window
sHorizontal = 360
sVertical = 235
Window.resizeTo sHorizontal, sVertical
'# Get Monitor Details
Set objWMIService = GetObject _
("winmgmts:root\cimv2")
intHorizontal = sHorizontal *2
intVertical = sVertical *2
Set colItems = objWMIService.ExecQuery( _
"Select ScreenWidth, ScreenHeight from" _
& " Win32_DesktopMonitor", , 48)
For Each objItem In colItems
sWidth= objItem.ScreenWidth
sHeight = objItem.ScreenHeight
If sWidth > sHorizontal _
then intHorizontal = sWidth
If sHeight > sVertical _
then intVertical = sHeight
Next
Set objWMIService = Nothing
'# Center window on the screen
intLeft = (intHorizontal - sHorizontal) /2
intTop = (intVertical - sVertical) /2
Window.moveTo intLeft, intTop
'# default window content
window.location.href="#Top"
End Sub
Sub Executar
For Each objButton in RadioOption
If objButton.Checked Then
if objButton.Value = "01" then
habilitadhcp
else
ipfixo
End if
'Msgbox "You selected " & objButton.Value & "."
End If
Next
End sub
Sub habilitadhcp
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
errEnable = objNetAdapter.SetDNSServerSearchOrder()
errEnable = objNetAdapter.SetDynamicDNSRegistration
Next
msgbox "DHCP HABILITADO"
Set oShell = Nothing
Set objNetwork = Nothing
Self.Close()
End sub
Sub ipfixo
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
'AQUI ESTAO OS IP´S QUE DEVEM SER ALTERADOS PARA IP FIXO.
strIPAddress = split(ip.Value,",")
strSubnetMask = split(mascara.value,",")
strGateway= split(gateway.value,",")
arrDNSServers = split(dns.value,",")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
Next
msgbox "IP FIXO HABILITADO"
Set oShell = Nothing
Set objNetwork = Nothing
Self.Close()
End sub
Sub Cancelar
Set oShell = Nothing
Set objNetwork = Nothing
Self.Close()
End sub
</SCRIPT>
<BODY STYLE="font:14 pt arial; color:white; filter:progid:DXImageTransform.Microsoft.Gradient( GradientType=1, StartColorStr='#000000', EndColorStr='#0000FF')">
<a name="Top"></a><CENTER>
<input type="radio" name="RadioOption" value="01">DHCP<BR>
<input type="radio" name="RadioOption" value="02">FIXO<BR>
<input name="ip" type="text"> ENDEREÇO IP <BR>
<input name="mascara" type="text"> MASCARA <BR>
<input name="gateway" type="text"> GATEWAY <BR>
<input name="dns" type="text"> DNS <BR>
<input id=runbutton class="button" type="button" value="Executar" name="executar" onClick="Executar">
<input id=runbutton class="button" type="button" value="Cancelar" name="Cancelar" onClick="Cancelar">
</center>
</body>
Faça os testes e nos retorne.
Até mais,
Jesiel
Obs.: Se útil, classifique
