Frage : eine FernWindows-Server OS-Version und IP address ohne Zugangsberechtigung auf diesem Bediener erhalten

Ist es möglich, eine FernWindows-Server OS-Version und IP address ohne Zugangsberechtigung auf diesem Bediener zu erhalten?

I kennen VBScript (colGroups = GetObject („WinNT einstellen: /“ u. strComputer u. "") können colGroups.Filter = Reihe („Gruppe“)) FernWindows-Servergruppen Informationen erhalten. Gibt es ähnliche Weise, Bediener OS, IP address information.

When zu erhalten, das ich Windows-Management-Instrumentenausrüstungsfrage (WMI) verwende, tun ich muss Zugangsberechtigung auf diesem Bediener haben?

Thanks im Voraus.
Related Lösungen: get mehrfaches IP address der Netzadapter anbrachten, die auf Fenster server anbrachten

Antwort : eine FernWindows-Server OS-Version und IP address ohne Zugangsberechtigung auf diesem Bediener erhalten

Hallo howruaz9,

Unter ist ein Index, der alles zurückbringen sollte, was Sie wünschen.  Sie erkennen etwas von dem Index, wie ich gerade hinzufügte, was Sie bereits hatten.

Ich habe auch im IP addressteil hinzugefügt - aber dieses verlangsamt die Frage beträchtlich.  Ich kann nicht an eine schnellere Weise denken, das IP address anders als ein wirkungsvolles Klingeln der Computerbezeichnung zu erhalten (ohne Erlaubnis, den Bediener direkt zu fragen, der ist).

Sowieso sehen, wie Sie gehen!

Respekt,
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:
6:
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:

Schwaches var1
Schwaches var2
Schwaches strComputer
Schwaches dicCompOS

'auf Störungszusammenfassung zunächst

dicCompOS = CreateObject („Scripting.Dictionary“) einstellen
GetOSs ()   „# Lasts-Wörterbuch mit alle Gebiets-Computer-“ Betriebssysteme

Fso = CreateObject („Scripting.FileSystemObject“) einstellen
Einstellen tf = fso.OpenTextFile („PC_Info.txt“, 2, zutreffende)

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



tf.write („Bediener; IP address; OS-Name; OS Service Pack; Gruppen; Mitglieder; Anzeigen-Name; ")
tf.writeline („AdsPath“)

objComputer = GetObject einstellen („WinNT: /“ u. strComputer)

objComputer.Filter = Reihe („Gruppe“)

strIPAddress = fResolveIP (strComputer)

Für jedes objGroup im objComputer
    Für jedes objMember in objGroup.Members
        var1 = objMember.Name
        Wenn objMember.Class <> „Gruppe“ und Err.Number = 0 dann
            var2 = ""
            Auf Störungs-Zusammenfassung zunächst
            var2 = objMember.FullName
            Auf Störung Goto- 0
            OSName = spaltete auf sich (dicCompOS (UCase (strComputer)), „¶") (0)
            OSSP   = spaltete auf sich (dicCompOS (UCase (strComputer)), „¶") (1)
            tf.writeline (strComputer u. „; “ u. strIPAddress u. „; “ U. OSName u. „; “ U. OSSP u. „; “ u. objGroup.Name u. „; “ u. var1 u. „; “ u. chr (34) u. var2 u. chr (34) u. „; “ u. objMember.AdsPath)
        Sonst
            tf.writeline (strComputer u. „; “ u. strIPAddress u. „; “ U. OSName u. „; “ U. OSSP u. „; “ u. objGroup.Name u. „; “ u. var1 u. „; “ U. Chr (34) u. chr (34) u. „; “ u. objMember.AdsPath)
            Err.Clear
        Beenden wenn
        var1 = ""
        var2 = ""
     Zunächst
Zunächst 
tf.close ()

MsgBox „getan!“

Wscript.quit




VorGetOSs ()

    '# AUFHEBEN Init
    objRootDSE = GetObject einstellen („LDAP: //RootDSE“)
    strDNSDomain = objRootDSE.Get („defaultNamingContext“)
    strConfig = objRootDSE.Get („configurationNamingContext“)
    objCommand = CreateObject („ADODB.Command“) einstellen
    objConnection = CreateObject („ADODB.Connection“) einstellen
    objConnection.Provider = „ADsDSOObject“
    objConnection.Open = „ADProvider“
    objCommand.ActiveConnection = objConnection
    objCommand.Properties („Seiten-Größe“) = 100
    objCommand.Properties („Abschaltung“) = 900
    '#

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

    '### Attribute zum Zurückholen ###
    strAttributes = „sAMAccountName, Betriebssystem, operatingSystemServicePack“

    '### führen LDAP Frage ### durch
    strBase = "" '
    strQuery = strBase u. „; “ u. strFilter u. „; “ u. strAttributes u. „; Unterbaum“
    objCommand.CommandText = strQuery
    'Auf Störungs-Zusammenfassung zunächst
    objRecordSet = objCommand.Execute einstellen

    '### laufen die zurückgebrachten Aufzeichnungen durch und speichern Info ###
    Bis objRecordSet.EOF tun
        dicCompOS (UCase (ersetzen (objRecordSet.Fields („sAMAccountName“), „$“, ""))) = objRecordSet.Fields („Betriebssystem“) u. „¶“ u. objRecordSet.Fields („operatingSystemServicePack“)
        'MsgBox dicCompOS (objRecordSet.Fields („sAMAccountName“)), objRecordSet.Fields („sAMAccountName“)
        objRecordSet.MoveNext
    Schleife

Enden-Unterseeboot

Funktion fResolveIP (strComputer)
    Schwaches wmiQuery, objWMIService, objPing, objStatus
    
    wmiQuery = „wählen * von Win32_PingStatus vor, wo“ u. _
    „Adresse = „“ u. strComputer u. „“ „
    
    objWMIService = GetObject einstellen („winmgmts: \ \. \ Wurzel \ cimv2“)
    Gesetztes objPing = objWMIService.ExecQuery (wmiQuery)
    
    Für jedes objStatus beim objPing
        Wenn IsNull (objStatus.StatusCode) oder objStatus.Statuscode0<> dann
            fResolveIP = „Unbekanntes“
        Sonst
            fResolveIP = objStatus.ProtocolAddress
        Beenden wenn
    Zunächst
Enden-Funktion
Weitere Lösungen  
 
programming4us programming4us