none
Campos a mais no scritp RRS feed

  • 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>
    segunda-feira, 20 de julho de 2009 21:10

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
    quarta-feira, 22 de julho de 2009 20:41

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
    terça-feira, 21 de julho de 2009 11:44
  • 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.

    terça-feira, 21 de julho de 2009 20:27
  • 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
    quarta-feira, 22 de julho de 2009 01:39
  • 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.
    quarta-feira, 22 de julho de 2009 20:26
  • 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
    quarta-feira, 22 de julho de 2009 20:41
  • Show Jesiel

    Ba veio ficou bala e tb compreendi agora aonde alinha o trem ba esse LEFT

    quinta-feira, 23 de julho de 2009 21:21