Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Codigo funciona como script y no en Web

27/10/2008 - 02:05 por Ricardo M. | Informe spam
Ayuda Hacer una pregunta
On error resume Next
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\.oot\cimv2")

Set colComputer = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem")

For Each objComputer in colComputer
userlogonactual = objComputer.UserName

Next
'parse the username
userlogonactual = Mid(userlogonactual, InStr(userlogonactual, "\") + 1)
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 MEVB
27/10/2008 - 16:05 | Informe spam
El problema es que GetObject() no funciona en VBScript para ASP.
Para crear el objeto en una página ASP debes usar:
Server.CreateObject(...)

Salu2
MV

"Ricardo M." escribió en el mensaje
news:
On error resume Next
Set objWMIService > GetObject("winmgmts:{impersonationLevel=impersonate}!\\.oot\cimv2")

Set colComputer = objWMIService.ExecQuery("Select * from
Win32_ComputerSystem")

For Each objComputer in colComputer
userlogonactual = objComputer.UserName

Next
'parse the username
userlogonactual = Mid(userlogonactual, InStr(userlogonactual, "\") +
1)

Preguntas similares

 

Busqueda sugerida :