Pytanie : dostawać daleki okno serwer OS wersja i Adres IP bez dojazdowy pozwolenie na ten serwer

Być ono ewentualny daleki okno serwer OS wersja i Adres IP bez dojazdowy pozwolenie na ten serwer?

I znać VBScript (Set colGroups = GetObject ("WinNT: /" & strComputer & "") colGroups.Filter = Szyk ("grupa")) móc daleki okno serwer grupa informacja. Być tam  jednakowy sposób serwer OS, Adres IP information.

When I używać Windows Zarządzanie Instrumentacyjny (WMI) zapytanie, I musieć dojazdowy pozwolenie na ten serwer?

Thanks w advance.
Related Rozwiązanie: get wieloskładnikowy Adres IP sieć adaptator który instalować na okno server

Odpowiedź : dostawać daleki okno serwer OS wersja i Adres IP bez dojazdowy pozwolenie na ten serwer

Cześć howruaz9,

Pod być pismo który musieć wszystkie wszystkie ty chcieć.  Ty rozpoznawać rozpoznawać the pismo gdy I właśnie dodawać co ty już miewać.

I także dodawać w the Adres IP część - Ale mieć zwalniać puszek the zapytanie znacznie.  I móc myśl szybki sposób the Adres IP który wydajny świst the computername (bez pozwolenie query the serwer bezpośrednio który być).

Jakkolwiek, widzieć jak ty iść!

Uwzględnienie,
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:

Ciemnawy var1
Ciemnawy var2
Ciemnawy strComputer
Ciemnawy dicCompOS

'na błąd życiorys następnie

Ustalony dicCompOS = CreateObject ("Scripting.Dictionary")
GetOSs ()   "# Obciążeniowy Słownik z wszystkie Domena Komputer system operacyjny

Ustalony fso = CreateObject ("Scripting.FileSystemObject")
Set tf = fso.OpenTextFile ("PC_Info.txt", 2, prawdziwy)

'### Ustalony Komputer Tutaj ###
strComputer = "YOUR_SRV"



tf.write ("Serwer; Adres IP; OS Imię; OS Pakiet Uaktualnień; Grupa; Członek; Pokaz Imię; ")
tf.writeline ("AdsPath")

Ustalony objComputer = GetObject ("WinNT: /" & strComputer)

objComputer.Filter = Szyk ("grupa")

strIPAddress = fResolveIP (strComputer)

Dla ObjComputer objGroup W objComputer
    Dla ObjGroup.Members objMember w objGroup.Members
        var1 = objMember.Name
        Jeżeli objMember.Class <> "Grupa" I Err.Number = (0) Wtedy
            var2 = ""
            Na Błąd Życiorys Następnie
            var2 = objMember.FullName
            Na Błąd Rozpoczynający (0)
            OSName = Rozłam (dicCompOS (UCase (strComputer)), "¶") ((0))
            OSSP   = Rozłam (dicCompOS (UCase (strComputer)), "¶") (1)
            tf.writeline (strComputer & "; " & strIPAddress & "; " & OSName & "; " & OSSP & "; " & objGroup.Name & "; " & var1 & "; " & chr (34) & var2 & chr (34) & "; " & objMember.AdsPath)
        Inny
            tf.writeline (strComputer & "; " & strIPAddress & "; " & OSName & "; " & OSSP & "; " & objGroup.Name & "; " & var1 & "; " & Chr (34) & chr (34) & "; " & objMember.AdsPath)
            Err.Clear
        Kończyć Jeżeli
        var1 = ""
        var2 = ""
     Następnie
Następnie 
tf.close ()

MsgBox "Robić!"

Wscript.quit




Okręt podwodny GetOSs ()

    '# CEREGIELE Init
    Ustalony objRootDSE = GetObject ("LDAP: //RootDSE")
    strDNSDomain = objRootDSE.Get ("defaultNamingContext")
    strConfig = objRootDSE.Get ("configurationNamingContext")
    Ustalony objCommand = CreateObject ("ADODB.Command")
    Ustalony objConnection = CreateObject ("ADODB.Connection")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open = "ADProvider"
    objCommand.ActiveConnection = objConnection
    objCommand.Properties ("Strona Rozmiar") = 100
    objCommand.Properties ("Timeout") = 900
    '#

    '### LDAP Filtrowy ###
    strFilter = "(& (objectClass=computer))"

    '### Atrybut ###
    strAttributes = "sAMAccountName, operatingSystemServicePack, operatingSystemServicePack"

    '### Wykonywać LDAP Zapytanie ###
    strBase = "" '
    strQuery = strBase & "; " & strFilter & "; " & strAttributes & "; subtree"
    objCommand.CommandText = strQuery
    'Na Błąd Życiorys Następnie
    Ustalony objRecordSet = objCommand.Execute

    '### Iść przez rejestr wracać i przechować info ###
    Do objRecordSet.EOF
        dicCompOS (UCase (Zamieniać (objRecordSet.Fields ("sAMAccountName"), "$", ""))) = objRecordSet.Fields ("operatingSystemServicePack") & "¶" & objRecordSet.Fields ("operatingSystemServicePack")
        'MsgBox dicCompOS (objRecordSet.Fields ("sAMAccountName")), objRecordSet.Fields ("sAMAccountName")
        objRecordSet.MoveNext
    Pętla

Końcówka Okręt podwodny

Funkcja fResolveIP (strComputer)
    Ciemnawy wmiQuery, objWMIService, objPing, objStatus
    
    wmiQuery = "Wybiórka * Od Win32_PingStatus Dokąd" & _
    "Adres = "" & strComputer & "" "
    
    Ustalony objWMIService = GetObject ("winmgmts: \ \. \ korzeń \ cimv2")
    Ustalony objPing = objWMIService.ExecQuery (wmiQuery)
    
    Dla ObjStatus objStatus w objPing
        Jeżeli IsNull (objStatus.StatusCode) Lub objStatus.Statuscode0<> Wtedy
            fResolveIP = "Nieznane"
        Inny
            fResolveIP = objStatus.ProtocolAddress
        Kończyć Jeżeli
    Następnie
Końcówka Funkcja
Inne rozwiązania  
 
programming4us programming4us