Pergunta : começ uma versão remota e o IP address do ósmio do usuário das janelas sem permissão de acesso nesse usuário

É possível começ uma versão remota e o IP address do ósmio do usuário das janelas sem permissão de acesso nesse usuário? o

I conhece VBScript (ajustar colGroups = GetObject (“WinNT: /” & strComputer & "") colGroups.Filter = a disposição (“grupo”)) podem começ a grupos de usuário remotos das janelas a informação. Há maneira similar de começ ósmio do usuário, IP address information.

When que eu uso a pergunta da instrumentação da gerência (WMI) de Windows, faz mim deve ter a permissão de acesso nesse usuário?

Thanks adiantado. class= > " desobstruído " do
soluções >Related class= de um usuário das janelas " do title= " do href= " /Programming/Languages/Scripting/Perl/Q_26319566.html do get do " qRelatedChild " " do class= dos adaptadores de rede que instalaram no as janelas server

Resposta : começ uma versão remota e o IP address do ósmio do usuário das janelas sem permissão de acesso nesse usuário

Olá! howruaz9,

Abaixo está um certificado que deva retornar o todo o o que você quer.  Você reconhecerá algum do certificado como eu apenas adicionei a o que você já teve.

Eu igualmente adicionei na peça do IP address - mas esta retarda a pergunta consideravelmente.  Eu não posso pensar de uma maneira mais rápida de começ o IP address à excepção de um sibilo eficaz do computername (sem permissões perguntar diretamente o usuário que é).

Em todo o caso, ver como você vai!

Considerações,
Daz.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

Var1 não ofuscante
Var2 não ofuscante
strComputer não ofuscante
dicCompOS não ofuscante

'no resumo do erro em seguida

Ajustar o dicCompOS = o CreateObject (“Scripting.Dictionary”)
GetOSs ()   “# dicionário da carga com sistemas de exploração de todos os computadores do domínio”

Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar tf = fso.OpenTextFile (“PC_Info.txt”, 2, verdadeiros)

'Do ### do computador ### ajustado aqui
strComputer = “YOUR_SRV”



tf.write (“usuário; IP address; Nome do ósmio; Ósmio Service Pack; Grupos; Membros; Nome da exposição; ")
tf.writeline (“AdsPath”)

Ajustar o objComputer = o GetObject (“WinNT: /” & strComputer)

objComputer.Filter = disposição (“grupo”)

strIPAddress = fResolveIP (strComputer)

Para cada objGroup no objComputer
    Para cada objMember em objGroup.Members
        var1 = objMember.Name
        Se objMember.Class <> “grupo” e Err.Number = 0 então
            var2 = ""
            No resumo do erro em seguida
            var2 = objMember.FullName
            No erro 0 empreendedores
            OSName = separação (dicCompOS (UCase (strComputer)), “¶") (0)
            OSSP   = separação (dicCompOS (UCase (strComputer)), “¶") (1)
            tf.writeline (strComputer & “; ” & strIPAddress & “; ” & OSName & “; ” & OSSP & “; ” & objGroup.Name & “; ” & var1 & “; ” & chr (34) & var2 & chr (34) & “; ” & objMember.AdsPath)
        Mais
            tf.writeline (strComputer & “; ” & strIPAddress & “; ” & OSName & “; ” & OSSP & “; ” & objGroup.Name & “; ” & var1 & “; ” & Chr (34) & chr (34) & “; ” & objMember.AdsPath)
            Err.Clear
        Terminar se
        var1 = ""
        var2 = ""
     Em seguida
Em seguida 
tf.close ()

MsgBox “feito!”

Wscript.quit




GetOSs secundário ()

    '# DEMORA Init
    Ajustar o objRootDSE = o GetObject (“LDAP: //RootDSE”)
    strDNSDomain = objRootDSE.Get (“defaultNamingContext”)
    strConfig = objRootDSE.Get (“configurationNamingContext”)
    Ajustar o objCommand = o CreateObject (“ADODB.Command”)
    Ajustar o objConnection = o CreateObject (“ADODB.Connection”)
    objConnection.Provider = “ADsDSOObject”
    objConnection.Open = “ADProvider”
    objCommand.ActiveConnection = objConnection
    objCommand.Properties (de “tamanho página”) = 100
    objCommand.Properties (“intervalo de parada”) = 900
    '#

    '### do filtro do ### LDAP
    strFilter = “(& (objectClass=computer))”

    'Atributos do ### para recuperar o ###
    strAttributes = “sAMAccountName, operatingSystem, operatingSystemServicePack”

    'O ### executa o ### da pergunta de LDAP
    strBase = "" '
    strQuery = strBase & “; ” & strFilter & “; ” & strAttributes & “; subtree”
    objCommand.CommandText = strQuery
    'No resumo do erro em seguida
    Ajustar o objRecordSet = o objCommand.Execute

    'O ### atravessa os registros retornados e armazena o ### da informação
    Fazer até objRecordSet.EOF
        dicCompOS (UCase (substituir (objRecordSet.Fields (“sAMAccountName”), “$”, o ""))) = objRecordSet.Fields (“operatingSystem”) & “¶” & objRecordSet.Fields (“operatingSystemServicePack”)
        'dicCompOS de MsgBox (objRecordSet.Fields (“sAMAccountName”)), objRecordSet.Fields (“sAMAccountName”)
        objRecordSet.MoveNext
    Laço

Submarino da extremidade

fResolveIP da função (strComputer)
    wmiQuery não ofuscante, objWMIService, objPing, objStatus
    
    o wmiQuery = “seleciona * de Win32_PingStatus onde” & o _
    “Endereço = “” & strComputer & “” “
    
    Ajustar o objWMIService = o GetObject (“winmgmts: \ \. \ raiz \ cimv2”)
    objPing ajustado = objWMIService.ExecQuery (wmiQuery)
    
    Para cada objStatus em objPing
        Se IsNull (objStatus.StatusCode) ou objStatus.Statuscode0<> então
            fResolveIP = “desconhecido”
        Mais
            fResolveIP = objStatus.ProtocolAddress
        Terminar se
    Em seguida
Função do fim
Outras soluções  
 
programming4us programming4us