Cuestión : conseguir una versión alejada y el IP address del OS del servidor de las ventanas sin el permiso de acceso en ese servidor

¿Es posible conseguir una versión alejada e IP address del OS del servidor de las ventanas sin el permiso de acceso en ese servidor? el

I conoce VBScript (fijar los colGroups = GetObject (“WinNT: /” y strComputer y "") colGroups.Filter = el arsenal (“grupo”)) pueden conseguir a grupos de servidor alejados de las ventanas la información. ¿Hay manera similar de conseguir OS del servidor, IP address information.

When que utilizo pregunta de la instrumentación de la gerencia (WMI) de Windows, hace yo debe tener permiso de acceso en ese servidor?

Thanks por adelantado. class= > " claro " del
soluciones >Related class= IP address múltiple del >get del " qRelatedChild " del class= de un servidor de las ventanas " del title= " del href= " /Programming/Languages/Scripting/Perl/Q_26319566.html " del

Respuesta : conseguir una versión alejada y el IP address del OS del servidor de las ventanas sin el permiso de acceso en ese servidor

Hola howruaz9,

Debajo está una escritura que debe volver todo el qué usted quiere.  Usted reconocerá algo de la escritura como acabo de agregar a lo que usted tenía ya.

También he agregado en la pieza del IP address - pero ésta retrasa la pregunta considerablemente.  No puedo pensar en una manera más rápida de conseguir el IP address con excepción de un silbido de bala eficaz del nombre de computadora (sin permisos para preguntar el servidor directo que es).

¡De todas formas, ver cómo usted va!

Respetos,
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 dévil
Var2 dévil
strComputer dévil
dicCompOS dévil

'en curriculum vitae del error después

Fijar el dicCompOS = CreateObject (“Scripting.Dictionary”)
GetOSs ()   “# diccionario de la carga con los sistemas operativos de todas las computadoras del dominio”

Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar tf = fso.OpenTextFile (“PC_Info.txt”, 2, verdades)

'Del ### de la computadora ### determinado aquí
strComputer = “YOUR_SRV”



tf.write (“servidor; IP address; Nombre del OS; OS Service Pack; Grupos; Miembros; Nombre de la exhibición; ")
tf.writeline (“AdsPath”)

Fijar el objComputer = GetObject (“WinNT: /” y strComputer)

objComputer.Filter = arsenal (“grupo”)

strIPAddress = fResolveIP (strComputer)

Para cada objGroup en objComputer
    Para cada objMember en objGroup.Members
        var1 = objMember.Name
        Si objMember.Class <> “grupo” y Err.Number = 0 entonces
            var2 = ""
            En curriculum vitae del error después
            var2 = objMember.FullName
            En el error 0 indicado
            OSName = partió (dicCompOS (UCase (el strComputer)), “¶") (0)
            OSSP   = partió (dicCompOS (UCase (el strComputer)), “¶") (1)
            tf.writeline (strComputer y “; ” y strIPAddress y “; ” Y OSName y “; ” Y OSSP y “; ” y objGroup.Name y “; ” y var1 y “; ” y chr (34) y var2 y chr (34) y “; ” y objMember.AdsPath)
        
            tf.writeline (strComputer y “; ” y strIPAddress y “; ” Y OSName y “; ” Y OSSP y “; ” y objGroup.Name y “; ” y var1 y “; ” Y Chr (34) y chr (34) y “; ” y objMember.AdsPath)
            Err.Clear
        Terminan si
        var1 = ""
        var2 = ""
     Después
Después 
tf.close ()

MsgBox “hecho!”

Wscript.quit




GetOSs secundario ()

    '# DIFICULTAD Init
    Fijar el objRootDSE = GetObject (“LDAP: //RootDSE”)
    strDNSDomain = objRootDSE.Get (“defaultNamingContext”)
    strConfig = objRootDSE.Get (“configurationNamingContext”)
    Fijar el objCommand = CreateObject (“ADODB.Command”)
    Fijar el objConnection = CreateObject (“ADODB.Connection”)
    objConnection.Provider = “ADsDSOObject”
    objConnection.Open = “ADProvider”
    objCommand.ActiveConnection = objConnection
    objCommand.Properties (“tamaño de página”) = 100
    objCommand.Properties (“descanso”) = 900
    '#

    '### del filtro del ### LDAP
    strFilter = “(y (objectClass=computer))”

    'Cualidades del ### para recuperar el ###
    strAttributes = “sAMAccountName, operatingSystem, operatingSystemServicePack”

    El '### ejecuta el ### de la pregunta de LDAP
    strBase = "" '
    strQuery = strBase y “; ” y strFilter y “; ” y strAttributes y “; sub-estructura”
    objCommand.CommandText = strQuery
    'En curriculum vitae del error después
    Fijar el objRecordSet = objCommand.Execute

    El '### pasa a través de los expedientes vueltos y almacena el ### del Info
    Hacer hasta objRecordSet.EOF
        dicCompOS (UCase (substituir (objRecordSet.Fields (“sAMAccountName”), “$”, el ""))) = objRecordSet.Fields (“operatingSystem”) y “¶” y objRecordSet.Fields (“operatingSystemServicePack”)
        'dicCompOS de MsgBox (objRecordSet.Fields (“sAMAccountName”)), objRecordSet.Fields (“sAMAccountName”)
        objRecordSet.MoveNext
    Lazo

Submarino del extremo

fResolveIP de la función (strComputer)
    wmiQuery dévil, objWMIService, objPing, objStatus
    
    el wmiQuery = “selecciona * de Win32_PingStatus donde” y el _
    “Dirección = “” y strComputer y “” “
    
    Fijar el objWMIService = GetObject (“winmgmts: \ \. \ raíz \ cimv2”)
    El objPing determinado = objWMIService.ExecQuery (wmiQuery)
    
    Para cada objStatus en objPing
        Si IsNull (objStatus.StatusCode) u objStatus.Statuscode0<> entonces
            fResolveIP = “desconocido”
        
            fResolveIP = objStatus.ProtocolAddress
        Terminar si
    Después
Función del final
Otras soluciones  
 
programming4us programming4us