Convert from vbscript to VB6

[ASPVBNerd]

If I would like to to this with VB6 is it possible?

VBSCRIPT

Set dtmConvertedDate = CreateObject("WbemScripting.SWbemDateTime")

strComputer = "."

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

Set colOperatingSystems = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

    	strOS = objOperatingSystem.Caption
    	Wscript.Echo strOS 
	
Next

 

[strongm]

Yes

The only bit that you'd really have to change is the output method: wscript.echo doesn't exist in VB. There are plenty of other choices, however, eg: Print, Debug.Print, MsgBox, adding the items into a listbox or a listview (or even a treeview)

 

[ASPVBNerd]

Okay, is it possible through VB to get the ip-address of a remote computer?

George

 

[ASPVBNerd]

Never mind my last question. I asked the same question in Vbscript forum and PHV solved ut to me.