none
Declaração e Coleta de informações por Script RRS feed

  • Pergunta

  • Estou tentando criar uns scripts para facilitar o suporte na rede, além de determinar alguns itens no domínio. Encontrei diversos disponíveis e até os apliquei com sucesso. O problema é que estou tentando criar o meu conforme a necessidade solicitada, mas não sei como funcionam as sintaxes na programação VBScript. Alguém tem uma apostila que me ajude a entender as diferenças entre os scripts que encontrei e como criar o meu?

    Estou tentando aplicar o seguinte:

    Identificar o AD que o usuário foi autenticado, logo sei que ele está online para determinar o caminho onde ficará o script.

    Ex. User= jj AD= ADSRV2

    Script = server = ADSRV2

    1- Identificar Sistema Operacional
    2- Identificar Arquitetura do Sistema
    3- Identificar caminho a executar script

    *** script.vbs

    {
    executar script do ADSRV1
    se offline
    executar script do ADSRV2
    fim se...
    }

    {
    ler variavel sistOp
    ler variavel Arquitetura
    se
    sistOp == listSistOp1
    se ArqOS == ArqOp1
    executar exe 32bits
    senao
    executar exe 64bits
    fim se...
    senao
    se sistOp == listSistOp2
    se ArqOS == ArqOp1
    executar exe 32bits
    senao
    executar exe 64bits
    fim se...
    fim se...
    }


    quinta-feira, 13 de setembro de 2018 17:13

Respostas

  • Olá

    Com o código abaixo, você pode conseguir algumas informações que podem ser úteis a sua tarefa:

    Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
    
    strQuery = "SELECT * FROM Win32_OperatingSystem"
    Set colItems = objWMIService.ExecQuery(strQuery)
    
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set wshNetwork = CreateObject("WScript.Network")
    
    Set myEnv = CreateObject("WScript.Shell").Environment("PROCESS")
    logonServer = Right(myEnv("LOGONSERVER"),Len(myEnv("LOGONSERVER"))-2)
    
    OSArchitecture = colItems.ItemIndex(0).OSArchitecture
    
    WScript.Echo logonServer
    WScript.Echo wshNetwork.UserName
    WScript.Echo OSArchitecture
    
    Set colItems      = Nothing
    Set objWMIService = Nothing
    Set wshNetwork    = Nothing
    Set objShell      = Nothing
    Set myEnv         = Nothing


    https://inframicrosoft.wordpress.com/

    • Marcado como Resposta JWilliamRj segunda-feira, 17 de setembro de 2018 14:34
    sexta-feira, 14 de setembro de 2018 14:37

Todas as Respostas

  • Olá.

    Como o script vai ser executado?


    https://inframicrosoft.wordpress.com/

    quinta-feira, 13 de setembro de 2018 17:56
  • Olá.

    Como o script vai ser executado?


    https://inframicrosoft.wordpress.com/

    Será executado por GPO no AD
    quinta-feira, 13 de setembro de 2018 19:39
  • Olá

    Com o código abaixo, você pode conseguir algumas informações que podem ser úteis a sua tarefa:

    Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
    
    strQuery = "SELECT * FROM Win32_OperatingSystem"
    Set colItems = objWMIService.ExecQuery(strQuery)
    
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set wshNetwork = CreateObject("WScript.Network")
    
    Set myEnv = CreateObject("WScript.Shell").Environment("PROCESS")
    logonServer = Right(myEnv("LOGONSERVER"),Len(myEnv("LOGONSERVER"))-2)
    
    OSArchitecture = colItems.ItemIndex(0).OSArchitecture
    
    WScript.Echo logonServer
    WScript.Echo wshNetwork.UserName
    WScript.Echo OSArchitecture
    
    Set colItems      = Nothing
    Set objWMIService = Nothing
    Set wshNetwork    = Nothing
    Set objShell      = Nothing
    Set myEnv         = Nothing


    https://inframicrosoft.wordpress.com/

    • Marcado como Resposta JWilliamRj segunda-feira, 17 de setembro de 2018 14:34
    sexta-feira, 14 de setembro de 2018 14:37
  • Olá

    Com o código abaixo, você pode conseguir algumas informações que podem ser úteis a sua tarefa:

    Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
    
    strQuery = "SELECT * FROM Win32_OperatingSystem"
    Set colItems = objWMIService.ExecQuery(strQuery)
    
    Set objShell = WScript.CreateObject("WScript.Shell")
    Set wshNetwork = CreateObject("WScript.Network")
    
    Set myEnv = CreateObject("WScript.Shell").Environment("PROCESS")
    logonServer = Right(myEnv("LOGONSERVER"),Len(myEnv("LOGONSERVER"))-2)
    
    OSArchitecture = colItems.ItemIndex(0).OSArchitecture
    
    WScript.Echo logonServer
    WScript.Echo wshNetwork.UserName
    WScript.Echo OSArchitecture
    
    Set colItems      = Nothing
    Set objWMIService = Nothing
    Set wshNetwork    = Nothing
    Set objShell      = Nothing
    Set myEnv         = Nothing


    https://inframicrosoft.wordpress.com/

    Vou testar e depois respondo.
    sexta-feira, 14 de setembro de 2018 16:58
  • Obrigado camarada... Já me deu uma luz para o que preciso, aos poucos vou testar para outros scripts!!!

    Abçs

    segunda-feira, 17 de setembro de 2018 14:35