'1、下面这句是不是定义了一个string的数组? Dim ls() As String ’这句没有错误 ls = CType(share.Item("IPAddress"), String()) ’奇怪的是这句能执行,然后报错:未将对象引用设置到对象的实例。 MsgBox(ls.Length) 其实说白一点,我现在好象不太会用这种数组,msdn中我没找到string()的相关资料,哪儿有个说明呢?谢谢!
'获取网卡的详细信息
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration")
Dim share As New ManagementObject
Dim strIPInfo As String()
'调用指定的 WMI 查询并返回结果集合
For Each share In searcher.Get()
'严格的类型转换操作,DirectCast要求对象变量的运行时类型与指定的类型相同。
' strIPInfo(0) = DirectCast(share.Item("IPAddress"), String())(0).ToString()
Dim ls As String
ls = share.Item("IPAddress").GetType().ToString
MsgBox(ls)
Next share