none
Solicitar dados RRS feed

  • Pergunta

  • Galera.

    Ba tche mais uma duvida, como faço para fazer o scritp abaixo me solicitar os seguintes valores para serem digitados para que seja gerado o resultado, se possivel gostaria que essa janela que o mesmo apresenta-se apos a execuçao para solicitar as informaçoes, não fosse um hta.
    Os valores que eu gostaria que o mesmo me solicita-se é nome do computador, usuario e dominio, o restante ele continuaria fazendo sozinho.

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    usuario=UCASE(MID(wshnetwork.username,1,2))
    dominio=UCASE(MID(wshnetwork.userdomain,1,2))
    computador = UCASE(MID(WshNetwork.ComputerName,1,2))
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    chave = dominio & hora & minuto & usuario & computador

    wscript.echo chave

    valeu galera.

    terça-feira, 28 de julho de 2009 15:37

Respostas

  • Ops...

    Faltou uma parte... Desculpa


    <HTML>
    <HEAD>
    <TITLE>Geracao de chave</title>
    <HTA:APPLICATION
    ApplicationName="MappingWithCredentials.HTA"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 205
    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 RunScript
    on Error Resume Next





    set WshNetwork = WScript.CreateObject("WScript.Network")
    strusuario = UsrnameArea.Value
    strcomputador = computador.Value
    strdominio = dominio.value
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    strchave = strdominio & hora & minuto & strusuario & strcomputador

    chave.Value = strchave

    Set oShell = Nothing
    Set objNetwork = Nothing
    'Self.Close()
    End Sub


    Sub CancelScript
    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>
    <table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
    <tr>
    <td height="30">
    <p align="right">Usuario</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="UsrnameArea" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Computador</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="computador" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Dominio</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="dominio" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Chave</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="chave" size="30"></td></tr>
    </table><BR>
    <HR color="#0000FF">
    <Input id=runbutton class="button" type="button" value=" Create Drive " name="run_button" onClick="RunScript">
    &nbsp;&nbsp;&nbsp;
    <Input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </CENTER>
    </BODY>

    </HTML>


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI terça-feira, 28 de julho de 2009 18:41
    terça-feira, 28 de julho de 2009 18:00

Todas as Respostas

  • voce quer que solicite? da para pegar essas infos direto da maquina 0_o....



    On Error Resume Next
    strComputer="."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    n = 1
    Set objNetwork = CreateObject("Wscript.Network")
    '=VARIAVEIS===============
    Dim nomedamaquina
    Dim ips
    Dim logado

    nomedamaquina = objNetwork.ComputerName
    logado = objNetwork.UserName
    For Each objAdapter in colAdapters
       If Not IsNull(objAdapter.IPAddress) Then
         For i = 0 To UBound(objAdapter.IPAddress)
    ipfull = objAdapter.IPAddress(i)
    ips = ips + ipfull
         Next
       End If 
    Next

    chave = "Usuario logado: " & objNetwork.UserName &"Nome da maquina: " & nomedamaquina & vbCrLf & "IP: " & ips & vbCrLf
    wscript.echo chave







    Eduardo Trombini MCTS - 2008 network infraestructure MCP - 2003
    terça-feira, 28 de julho de 2009 16:05
  • Olá,

    Veja se te atende:


    set WshNetwork = WScript.CreateObject("WScript.Network")
    usuario=InputBox("Coloque o nome do usuário")
    If usuario = "" Then WScript.Quit(1)   
    dominio=InputBox("Coloque o nome do dominio")
    If dominio = "" Then WScript.Quit(1)   
    computador =InputBox("Coloque o nome do computador")
    If computador = "" Then WScript.Quit(1)   
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    chave = dominio & hora & minuto & usuario & computador

    wscript.echo chave



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 28 de julho de 2009 16:15
  • Ba Jesiel.

    doido em.. mais tem como deixar esses inputbox todos na mesma janela ?
    terça-feira, 28 de julho de 2009 16:21
  • Olá,

    Não tem.... Ele faz uma variavel para cada msgbox...

    É melhor para fazer a validação também...



    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 28 de julho de 2009 16:26
  • Jesiel.

    Entao so daria para entrar dessa forma se for como hta ?

    terça-feira, 28 de julho de 2009 16:31
  • Olá,

    Correto... com o hta podemos criar uma pagina com todas os campos...

    Se for o caso, avise!!!




    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    terça-feira, 28 de julho de 2009 16:33
  • É complexo de converter ele para hta, se nao for eu gostaria sim Jesiel.

    terça-feira, 28 de julho de 2009 16:34
  • Olá,

    Faça os testes no script abaixo:


    <HTML>
    <HEAD>
    <TITLE>Map drive K: to trusted domain</title>
    <HTA:APPLICATION
    ApplicationName="MappingWithCredentials.HTA"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 175
    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 RunScript
    on Error Resume Next





    set WshNetwork = WScript.CreateObject("WScript.Network")
    strusuario = UsrnameArea.Value
    strcomputador = computador.Value
    strdominio = dominio.value
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    chave = strdominio & hora & minuto & strusuario & strcomputador

    msgbox(chave)

    Set oShell = Nothing
    Set objNetwork = Nothing
    Self.Close()
    End Sub


    Sub CancelScript
    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>
    <table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
    <tr>
    <td height="30">
    <p align="right">Usuario</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="UsrnameArea" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Computador</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="computador" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Dominio</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="password" name="dominio" size="30"></td></tr>
    </table><BR>
    <HR color="#0000FF">
    <Input id=runbutton class="button" type="button" value=" Create Drive " name="run_button" onClick="RunScript">
    &nbsp;&nbsp;&nbsp;
    <Input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </CENTER>
    </BODY>

    </HTML>



    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    terça-feira, 28 de julho de 2009 17:15
  • Ba jesiel, nem sei mais o que dizer de tu veio, vc realmente domina a arte.. ficou maravilhoso, so uma questáo tem como ter um campo livre aonde seria realizado o display do valor echo chave.
    terça-feira, 28 de julho de 2009 17:31
  • Olá,

    Teste o script abaixo, veja se é isso que você precisa:


    <HTML>
    <HEAD>
    <TITLE>Geracao de chave</title>
    <HTA:APPLICATION
    ApplicationName="MappingWithCredentials.HTA"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 205
    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 RunScript
    on Error Resume Next





    set WshNetwork = WScript.CreateObject("WScript.Network")
    strusuario = UsrnameArea.Value
    strcomputador = computador.Value
    strdominio = dominio.value
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    strchave = strdominio & hora & minuto & strusuario & strcomputador

    chave.Value = strchave

    Set oShell = Nothing
    Set objNetwork = Nothing
    'Self.Close()
    End Sub


    Sub CancelScript
    Set oShell = Nothing
    Set objNetwork = Nothing
    Self.Close()



    Até mais,

    Jesiel

    Obs.: Se útil, classifique

    terça-feira, 28 de julho de 2009 17:39
  • Jesiel

    ba o segundo so fica tela branca

    terça-feira, 28 de julho de 2009 17:54
  • Ops...

    Faltou uma parte... Desculpa


    <HTML>
    <HEAD>
    <TITLE>Geracao de chave</title>
    <HTA:APPLICATION
    ApplicationName="MappingWithCredentials.HTA"
    SingleInstance="Yes"
    WindowsState="Normal"
    Scroll="No"
    Navigable="Yes"
    MaximizeButton="No"
    SysMenu="Yes"
    Caption="Yes"
    ></HEAD>

    <SCRIPT LANGUAGE="VBScript">

    Sub Window_Onload
    '# Size Window
    sHorizontal = 440
    sVertical = 205
    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 RunScript
    on Error Resume Next





    set WshNetwork = WScript.CreateObject("WScript.Network")
    strusuario = UsrnameArea.Value
    strcomputador = computador.Value
    strdominio = dominio.value
    hora = INT(hour(now()))
    minuto = int(minute(now()))
    if hora < 10 Then
       hora = "0" & hora
    End if

    if minuto < 10 Then
       minuto = "0" & minuto
    End if

    strchave = strdominio & hora & minuto & strusuario & strcomputador

    chave.Value = strchave

    Set oShell = Nothing
    Set objNetwork = Nothing
    'Self.Close()
    End Sub


    Sub CancelScript
    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>
    <table border="0" cellpadding="0" cellspacing="0"><font size="2" color="black" face="Arial">
    <tr>
    <td height="30">
    <p align="right">Usuario</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="UsrnameArea" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Computador</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="computador" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Dominio</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="dominio" size="30"></td></tr>
    <tr>
    <td height="30">
    <p align="right">Chave</p>
    </td>
    <td height="30">&nbsp;&nbsp; <input type="text" name="chave" size="30"></td></tr>
    </table><BR>
    <HR color="#0000FF">
    <Input id=runbutton class="button" type="button" value=" Create Drive " name="run_button" onClick="RunScript">
    &nbsp;&nbsp;&nbsp;
    <Input id=runbutton class="button" type="button" value="Cancel" name="cancel_button" onClick="CancelScript">
    </CENTER>
    </BODY>

    </HTML>


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI terça-feira, 28 de julho de 2009 18:41
    terça-feira, 28 de julho de 2009 18:00
  • ba jesiel tu realmente e o cara... ficou de mais...

    so me fala uma coisa que comando vc usou para colocar aquela linha sobre os botoes, vou colocar naquele do dhcp tb.

    agora ficou a outra duvida essa aqui matou... vc compreendeu a segunda explicaçao que mandei nela

    abraço.

    terça-feira, 28 de julho de 2009 18:04
  • Olá,

    É esse aqui:

    <HR color="#0000FF">




    Até mais,

    Jesiel

    obs.: Se útil, classifique

    terça-feira, 28 de julho de 2009 18:30