Ver originales (Francés)

Acceso denegado a GetObject en WMI en VBScript

Crabe77 -  
 Usuario anónimo -
Hola,

Estoy buscando desde hace bastante tiempo la forma de hacer funcionar mi script. Es un script que escanea los puestos de una red y que hace ping así como recupera la resolución de pantalla. Tengo acceso denegado en el getobject.

He intentado hacer la impersonación pero no funciona y siendo novato en el script, ¿podrías darme información? Gracias

while Not f.AtEndOfStream
sPoste = f.readline
wscript.echo "lectura del puesto :" & sPoste
'err.clear
set objWMIService = GetObject("winmgmts:\\" & sPoste & "\root\cimv2")
set objWMIService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" & sPoste & "/root/cimv2")
if err = 0 then
set objPing = objWMIService.ExecQuery("select * from Win32_PingStatus where address = '" & sPoste & "'")
For Each objStatus In objPing
r.Write "ping ok : " & sPoste & vbcrlf
set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("Select * From Win32_DesktopMonitor where address = '" & sPoste & "'")
'set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
for each objItem in colItems

if objItem.ScreenWidth <> null then
wscript.echo "la valeur n'est pas nulle"
'On Error resume next
CurrentRecordSet.open "select Nom_Pos from POSTES where Nom_Pos = '" & sPoste & "';" ,oConn
if currentrecordset("Nom_Pos") = null then
wscript.echo "le nom du poste est :" & currentrecordset("Nom_Pos")
Valeur = currentrecordset("Nom_Pos")
CurrentRecordset.close

Configuration: Windows 7 / Safari 535.11

7 respuestas

  1. Crabe77
     
    mientras no f.AtEndOfStream
    sPoste= f.readline
    wscript.echo "lecture du poste :" & sPoste
    'err.clear
    'set objWMIService = GetObject("winmgmts:\\" sPoste &&"\\root\\cimv2")
    set objWMIService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//" sPoste &&"/root/cimv2")
    if err = 0 then
    set objPing = objWMIService.ExecQuery("select * from Win32_PingStatus where address = '" & sPoste & "'")
    For Each objStatus In objPing
    r.Write "ping ok : " & sPoste & vbcrlf
    set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("Select * From Win32_DesktopMonitor where address = '" & sPoste & "'")
    'set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
    for each objItem in colItems
    if objItem.ScreenWidth <> null then
    wscript.echo "la valeur n'est pas nulle"
    'On Error resume next
    CurrentRecordSet.open "select Nom_Pos from POSTES where Nom_Pos = '" & sPoste & "' ;" ,oConn
    if currentrecordset("Nom_Pos") = null then
    wscript.echo "le nom du poste est :" & currentrecordset("Nom_Pos")
    Valeur = currentrecordset("Nom_Pos")
    CurrentRecordset.close
    0
  2. Usuario anónimo
     
    Hola,

    A primera vista:

    set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("Select * From Win32_DesktopMonitor where address = '" & sPoste & "'")

    debería leerse como sigue:

    set colItems = objWMIService.GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("Select * From Win32_DesktopMonitor where address = '" & sPoste & "'")

    aquí está el ejemplo de uno de mis scripts:

    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")

    Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='Service'")

    Cdt

    Lupin
    0
  3. Crabe77
     
    Intenté y siempre obtengo el error en

    set objWMIService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//"& sPoste &"/root/cimv2")

    Permiso denegado
    0
  4. Usuario anónimo
     
    Asociado:

    Observa bien, tu sintaxis es diferente:

    La tuya:
    set objWMIService = GetObject("WinMgmts:{impersonationLevel=impersonate}!//"& sPoste &&" /root/cimv2")

    La mía:
    Set objWMIService = GetObject("winmgmts:&"{impersonationLevel=impersonate}!\\"" & sPoste & &quot"\root\cimv2")

    también puedes intentar reemplazar [ sPoste ] por [ . ] para localhost

    gestiona los espacios en la sintaxis.

    Cordialmente

    Lupin
    0
  6. Crabe77
     
    Sigo obteniendo el mismo error, escaneo una ubicación remota, no está en local.
    0
  7. Crabe77
     
    Escribí en mi script tu trozo de (Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")

    Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name='Service'") ) reemplazándolo por los datos que correspondan y siempre la misma error...
    0
  8. Usuario anónimo
     
    re:

    ¡No entiendo, lo siento!

    de mi lado funciona en local, pero nunca lo he probado a distancia.

    Saludos

    Lupin
    0