Usuário com melhor resposta
Campos a mais no scritp

Pergunta
-
Galera
Como posso criar campos nesse scritp que me possibilite a colocar manualmente as configurações de IP manualmente, pois da forma que o Jesiel me ajudou muito e muito so que agora cheguei a um ponto que necessito que o cara na ponta digite os dados de ip, mascara, gw, dns e wins e para isso eu teria que alterar esse script`s colocando campos que possibilite que os dados sejam digitados manualmente...
<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 = 135
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 = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
arrDNSServers = Array("192.168.1.100", "192.168.1.200")
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 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>
Respostas
-
Olá,
Marcelo, alinha tudo a esquerda.... fica legal, conforme abaixo:
<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><LEFT>
<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>
Copie e salve como .hta e faça o teste...
Até mais,
Jesiel
Obs.: Se útil, classifique- Marcado como Resposta Marcelo TI quinta-feira, 23 de julho de 2009 21:21
Todas as Respostas
-
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 -
E isso ai show e que eu estou necessitando agora, caso eu entre com essas informações:
arrWINSServers = split(wins.value,",")
<input name="wins" type="text"> WINS <BR>
objNetAdapter.SetWINSServerSearchOrder(arrWINSServers)
As informações sobre o Wins seram cadastradas ???
E para colocar outro valor de IP por exemplo dois dns, eu separo cada ip por ; ?
essa questão do alinhamento que linha toma conta disso, para que eu possa ir alterando e alinhar ele.
valeu pela força mais uma vez. -
Olá,
Então... o WINS acho que está correto... é isso mesmo... Só fazer um teste assim.
Para inserir mais que um DNS, coloque os dois valores separando por virgula ","
Exemplo: 10.0.0.1,10.0.0.2
O alinhamento, copie a parte do script abaixo:
Insira a tag <HTML> no começo e </HTML> no fim
Ficando conforme abaixo:
<HTML>
<BODY>
<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>
</HTML>
Dessa forma, você pode abrir em quanquer editor de HTML.
Depois de formatado, substitua essa parte no script hta.
Até mais,
Jesiel
Obs.: Se útil, classifique -
Jesiel.
Bele teste com o Wins da forma que eu te mandei e com o , como vc falou e passou legal so ficou mesmo a questao do alinhamento, tirando essa parte do velho e colocando dessa forma, ele tb subiu desalinhado, eu nao teria que alterar mais nada tipo la no sHorizontal e sVertical. ???
Valeu abraço. -
Olá,
Marcelo, alinha tudo a esquerda.... fica legal, conforme abaixo:
<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><LEFT>
<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>
Copie e salve como .hta e faça o teste...
Até mais,
Jesiel
Obs.: Se útil, classifique- Marcado como Resposta Marcelo TI quinta-feira, 23 de julho de 2009 21:21
-