Hur gör jag om följande vbscript till en vb6 dll?
Om jag bara klistrar in koden i VS (Class Library) så får jag en hiskelig massa fel... :(

<code>
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each objDisk in colDisks
Wscript.Echo "DeviceID: " & objDisk.DeviceID
Wscript.Echo "Disk Size: " & objDisk.Size
Next
</code>

/Anders

(Vågar man sig på att lägga in en del i lösningen tro??)



Först så ska du skriva MSGBOX där du har wscript.echo.

Då kan du testa koden i ett vanligt forumlär, tex i form load.
Funkade hos mig.


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk")
For Each objDisk In colDisks
MsgBox "DeviceID: " & objDisk.DeviceID
MsgBox "Disk Size: " & objDisk.Size
Next

Men ska man ha MSGBOX:ar i en DLL? Har för mig att det funkar men går det?

I övrigt så ska du skapa en funktion i ett "activeX dll"-projekt.
Där ska koden in. sen anropas den från annat ställe.

Fråga vidare:)


/B