Vraag : krijg een verre OS van de venstersserver versie en IP adres zonder toegangstoestemming op die server

Is het mogelijk om een verre OS van de venstersserver versie en IP adres zonder toegangstoestemming op die server te krijgen?

I kent VBScript (plaats colGroups = GetObject („WinNT: /“ & strComputer & kan "") colGroups.Filter = Serie („groep“)) verre de groepeninformatie van de venstersserver krijgen. Is er gelijkaardige manier om server OS, IP adres information.

When I de vraag van de Instrumentatie van het Beheer van gebruiks (WMI)Vensters, ik moet toegangstoestemming op die server hebben?

Thanks vooraf.
Related Oplossingen: get veelvoudig IP adres van netwerkadapters installeerde dat op vensters server installeerde

Antwoord : krijg een verre OS van de venstersserver versie en IP adres zonder toegangstoestemming op die server

Hallo howruaz9,

Hieronder is een manuscript dat al zou moeten terugkeren wat u wilt.  U zult enkele manuscript erkennen aangezien ik enkel toevoegde aan wat u reeds had.

Ik heb ook in het IP deel van het Adres toegevoegd - maar dit vertraagt aanzienlijk de vraag.  Ik kan niet aan een snellere manier denken om het IP adres buiten efficiënte ping van computername (zonder toestemmingen om de server direct te vragen die is) te krijgen.

In elk geval, zie hoe u gaat!

Achting,
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:

Schemerige var1
Schemerige var2
Schemerige strComputer
Schemerige dicCompOS

'op fout hervat daarna

Plaats dicCompOS = CreateObject („Scripting.Dictionary“)
GetOSs ()   „# laadt Woordenboek met alle Computers van het Domein“ Werkende Systemen

Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
Vastgesteld tf = fso.OpenTextFile („PC_Info.txt“, 2, waar)

'### Vastgestelde Computer hier ###
strComputer = „YOUR_SRV“



tf.write („Server; IP Adres; OS Naam; OS Service Pack; Groep; Lid; De Naam van de vertoning; “)
tf.writeline („AdsPath“)

Reeks objComputer = GetObject („WinNT: /“ & strComputer)

objComputer.Filter = Serie („groep“)

strIPAddress = fResolveIP (strComputer)

Voor Elke objGroup in objComputer
    Voor Elke objMember in objGroup.Members
        var1 = objMember.Name
        Als objMember.Class <> „Groep“ en Err.Number = 0 toen
            var2 = ""
            Op Fout hervat daarna
            var2 = objMember.FullName
            Op Fout Goto 0
            OSName = verdeelde (dicCompOS (UCase (strComputer)), „¶“) (0)
            OSSP   = verdeel (dicCompOS (UCase (strComputer)), „¶“) (1)
            tf.writeline (strComputer & „; “ & strIPAddress & „; “ & OSName & „; “ & OSSP & „; “ & objGroup.Name & „; “ & var1 & „; “ & chr (34) & var2 & chr (34) & „; “ & objMember.AdsPath)
        Anders
            tf.writeline (strComputer & „; “ & strIPAddress & „; “ & OSName & „; “ & OSSP & „; “ & objGroup.Name & „; “ & var1 & „; “ & Chr (34) & chr (34) & „; “ & objMember.AdsPath)
            Err.Clear
        Eind als
        var1 = ""
        var2 = ""
     Daarna
Daarna 
tf.close ()

Gedaane MsgBox „!“

Wscript.quit




Sub GetOSs ()

    '# DRUKTE Init
    Reeks objRootDSE = GetObject („LDAP: //RootDSE“)
    strDNSDomain = objRootDSE.Get („defaultNamingContext“)
    strConfig = objRootDSE.Get („configurationNamingContext“)
    Reeks objCommand = CreateObject („ADODB.Command“)
    Vastgestelde objConnection = CreateObject („ADODB.Connection“)
    objConnection.Provider = „ADsDSOObject“
    objConnection.Open = „ADProvider“
    objCommand.ActiveConnection = objConnection
    objCommand.Properties (de „Grootte van de Pagina“) = 100
    objCommand.Properties („Onderbreking“) = 900
    '#

    '### LDAP Filter ###
    strFilter = „(& (objectClass=computer))“

    'Attributen ### om ### terug te winnen
    strAttributes = „sAMAccountName, operatingSystem, operatingSystemServicePack“

    '### voert LDAP Vraag ### uit
    strBase = "" '
    strQuery = strBase & „; “ & strFilter & „; “ & strAttributes & „; onderverdeling“
    objCommand.CommandText = strQuery
    'Op Fout hervat daarna
    Plaats objRecordSet = objCommand.Execute

    '### gaat door teruggekeerde verslagen en opslaginfo ###
    Doe tot objRecordSet.EOF
        dicCompOS (UCase (vervang (objRecordSet.Fields („sAMAccountName“), „$“, ""))) = objRecordSet.Fields („operatingSystem“) & „¶“ & objRecordSet.Fields („operatingSystemServicePack“)
        'MsgBox dicCompOS (objRecordSet.Fields („sAMAccountName“)), objRecordSet.Fields („sAMAccountName“)
        objRecordSet.MoveNext
    Lijn

Sub van het eind

Functie fResolveIP (strComputer)
    Schemerige wmiQuery, objWMIService, het objPing, objStatus
    
    wmiQuery = „selecteert * uit Win32_PingStatus waar“ & _
    „Adres = „“ & strComputer & „“ „
    
    Vastgestelde objWMIService = GetObject („winmgmts: \ \. \ wortel \ cimv2“)
    Het vastgestelde objPing = objWMIService.ExecQuery (wmiQuery)
    
    Voor Elke objStatus in het objPing
        Als IsNull (objStatus.StatusCode) of objStatus.Statuscode0<> toen
            fResolveIP = „Onbekend“
        Anders
            fResolveIP = objStatus.ProtocolAddress
        Eind als
    Daarna
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us