none
Saber quem ingressou a máquina no domínio. Ajuda no formato do script. RRS feed

  • Pergunta

  • Pessoal tenho o script abaixo e salvo o mesmo para como owner.vbs. E rodo o mesmo dessa forma cscript //nologo Owner.vbs > report.txt.

    Sendo que o resultado no report.txt aparece linha embaixo de linha, como eu faria para aparece linha do lado da outra. Tipo abaixo:

    Computador;Owner;Sistema Operacional;Vesao OS;Service Pack

    ' Specify DN of the OU.
    strOU = "CN=Computers,DC=Contoso,DC=com"

    ' Bind to the OU object.
    Set objOU = GetObject("LDAP://" & strOU)

    ' Filter on computer objects.
    objOU.Filter = Array("computer")

    ' Enumerate computers.
    For Each objComputer In objOU
        Set objSecurityDescriptor = objComputer.Get("ntSecurityDescriptor")
        Wscript.Echo objComputer.sAMAccountName 
        Wscript.Echo "  Owner: " &objSecurityDescriptor.Owner
        Wscript.Echo "  Operating System: " & objComputer.operatingSystem
        Wscript.Echo "  Operating System Version: " & objComputer.operatingSystemVersion
        Wscript.Echo "  Operating System Service Pack: " & objComputer.operatingSystemServicePack

    Next

       

    Bruno Prata

    sexta-feira, 22 de fevereiro de 2013 13:53

Respostas

  • Bruno,

    Coloque os valores dentro de variaveis e depois use-os em uma única linha

    ' Specify DN of the OU.
    strOU = "CN=Computers,DC=Contoso,DC=com"
    
    ' Bind to the OU object.
    Set objOU = GetObject("LDAP://" & strOU)
    
    ' Filter on computer objects.
    objOU.Filter = Array("computer")
    
    ' Enumerate computers.
    For Each objComputer In objOU
        Set objSecurityDescriptor = objComputer.Get("ntSecurityDescriptor")
        strNome = objComputer.sAMAccountName 
        strOwner= objSecurityDescriptor.Owner
        strOS   = objComputer.operatingSystem
        strOSv  = objComputer.operatingSystemVersion
        strOSsp = objComputer.operatingSystemServicePack
    
    Next
    
    wscript.echo strNome & ";" strOwner & ";" & strOS & ";" & strOSv & ";" & strOSsp


    Fábio de Paula Junior

    sexta-feira, 22 de fevereiro de 2013 14:16
    Moderador