Fråga : få en avlägsen version för fönsterserverOS, och IPet address without tar fram tillåtelse på den server

Är det möjligheten som får en avlägsen version för fönsterserverOS, och IPet address without tar fram tillåtelse på den server?

I vet VBScript (fastställda colGroups = GetObject (”WinNT: /” & strComputer & "") colGroups.Filter = samling (”grupp”)) kan få avlägsna fönsterservergrupper information. Finns det liknande långt att få serverOS, IPet address information.

When som jag använder query för Windows ledning (WMI)Instrumentation, gör mig måste ha att ta fram tillåtelse på den server?

Thanks i advance. Related lösningar för class= ": " title= " för get för server" class=" qRelatedChild " av knyter kontakt adapter, som installerade på fönster server

Svar : få en avlägsen version för fönsterserverOS, och IPet address without tar fram tillåtelse på den server

Hi howruaz9,

Nedanför är en skriva som bör gå allt tillbaka vad du önskar.  Du ska känner igen någon av skriva, som I tillfogade precis till vad du hade redan.

Jag har också tillfogat i IP addressdelen - men denna saktar besegrar queryen betydligt.  Jag kan inte funderare av ett snabbare långt få IPet address annat än en effektiv ping av computernamen (utan tillåtelser att query serveren direkt som är).

Se hur du går, på något sätt!

Hälsningar,
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:

Dunkel var1
Dunkel var2
Dunkel strComputer
Dunkel dicCompOS

'på felmeritförteckning därefter

Fastställd dicCompOS = CreateObject (”Scripting.Dictionary”)
GetOSs ()   ”nr. laddar ordboken med fungeringssystem för alla områdesdatorer”

Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Uppsättning tf = fso.OpenTextFile (”PC_Info.txt”, 2, riktigt)

'För ### fastställd för dator ### här
strComputer = ”YOUR_SRV”,



tf.write (”server; IP address; Känt OS; Tjänste- packe för OS; Grupper; Medlemmar; Känd skärm; ”)
tf.writeline (”AdsPath”)

Fastställd objComputer = GetObject (”WinNT: /” & strComputer)

objComputer.Filter = samling (”grupp”)

strIPAddress = fResolveIP (strComputer)

För varje objGroup i objComputer
    För varje objMember i objGroup.Members
        var1 = objMember.Name
        Om objMember.Class <> ”grupp” och Err.Number = 0 därefter
            var2 = "",
            På felmeritförteckning därefter
            var2 = objMember.FullName
            På fel Goto 0
            OSName = splittring (dicCompOS (UCase (strComputer)), ”¶”) (0)
            OSSP   = splittring (dicCompOS (UCase (strComputer)), ”¶”) (1)
            tf.writeline (strComputer & ”; ” & strIPAddress & ”; ” & OSName & ”; ” & OSSP & ”; ” & objGroup.Name & ”; ” & var1 & ”; ” & chr (34) & var2 & chr (34) & ”; ” & objMember.AdsPath)
        Annars
            tf.writeline (strComputer & ”; ” & strIPAddress & ”; ” & OSName & ”; ” & OSSP & ”; ” & objGroup.Name & ”; ” & var1 & ”; ” & Chr (34) & chr (34) & ”; ” & objMember.AdsPath)
            Err.Clear
        Avsluta om
        var1 = "",
        var2 = "",
     Därefter
Därefter 
tf.close ()

Gjorda MsgBox ”!”,

Wscript.quit




UnderGetOSs ()

    'Nr. ADO Init
    Fastställd objRootDSE = GetObject (”LDAP: //RootDSE”)
    strDNSDomain = objRootDSE.Get (”defaultNamingContext”)
    strConfig = objRootDSE.Get (”configurationNamingContext”)
    Fastställd objCommand = CreateObject (”ADODB.Command”)
    Fastställd objConnection = CreateObject (”ADODB.Connection”)
    objConnection.Provider = ”ADsDSOObject”,
    objConnection.Open = ”ADProvider”,
    objCommand.ActiveConnection = objConnection
    objCommand.Properties (”sida storleksanpassar”), = 100
    objCommand.Properties (”frånslagningstid”) = 900
    'nr.

    '### LDAP filtrerar ###
    strFilter = ”(& (objectClass=computer))”,

    '###attribut som hämtar ###
    strAttributes = ”sAMAccountName som är operatingSystem, operatingSystemServicePack”,

    '### utför LDAP-Query###
    strBase = "" ',
    strQuery = strBase & ”; ” & strFilter & ”; ” & strAttributes & ”; subtree”,
    objCommand.CommandText = strQuery
    'På felmeritförteckning därefter
    Fastställd objRecordSet = objCommand.Execute

    '### går till och med gångna tillbaka rekord och lagrar info-###
    Gör till objRecordSet.EOF
        dicCompOS (UCase (byt ut (objRecordSet.Fields (”sAMAccountName”), ”$”, ""))) = objRecordSet.Fields (”operatingSystem”) & ”¶” & objRecordSet.Fields (”operatingSystemServicePack”)
        'MsgBox dicCompOS (objRecordSet.Fields (”sAMAccountName”)), objRecordSet.Fields (”sAMAccountName”)
        objRecordSet.MoveNext
    Kretsa

Avsluta suben

Fungera fResolveIP (strComputer)
    Dunkel wmiQuery, objWMIService som objPing, objStatus
    
    wmiQueryen = ”väljer * från Win32_PingStatus var” & _,
    ”Tilltala = ”” & strComputer & ”” ”,
    
    Fastställd objWMIService = GetObject (”winmgmts: \ \. \ rotar \ cimv2”)
    Uppsättning som objPing = objWMIService.ExecQuery (wmiQuery)
    
    För varje objStatus, i objPing
        Om IsNull (objStatus.StatusCode) eller objStatus.Statuscode0<> därefter
            fResolveIP = ”okända”,
        Annars
            fResolveIP = objStatus.ProtocolAddress
        Avsluta om
    Därefter
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us