Just nu i M3-nätverket
Jump to content

VBScript kod


Patric Johansson

Recommended Posts

Patric Johansson

Jag har följande VBScript kod:

Function IPAddress()

Count = 0
for each sIPVar in IPConfigSet
    Count = Count + 1
next

ReDim sIP(Count - 1)
Count = 0
For each sIPVar in IPConfigSet
    sIP(Count) = sIPVar.IPAddress(0)
    IPAddress = sIP(Count)
    Count = Count + 1
next

End Function

Men jag får följande error när jag ska använda mig av Response.Write IPAddress() i ASP.

Error Type:

(0x80041003)

/test/Default.asp, line 17

Och på rad 17 finns följande kod:

Set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select IPAddress, DefaultIPGateway from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Går inte den att köra i ASP eller har jag missat något som måste göras innan eller så?

 

Tack på förhand!

 

/ProTeuS

Resistance is futile. You will be assimilated.

- citat från ”Star Trek - First Contact”

 

[inlägget ändrat 2002-11-22 01:54:25 av ProTeuS]

Link to comment
Share on other sites

0x80041003 betyder E_FILE_NOT_FOUND.

 

Jag är inte helt säker men det hela kan bero på säkerhetsinställningar så du kan inte skapa detta COM object.

 

Som sagt så gissar jag bara på detta..

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...