自己解决了。
on error resume next
Set oReg = GetObject("Winmgmts:\root\default:StdRegProv")
if Err.Number <>0 then
……
[ Last edited by lwb1978 on 2008-1-9 at 02:16 PM ]
on error resume next
Set oReg = GetObject("Winmgmts:\root\default:StdRegProv")
if Err.Number <>0 then
……
[ Last edited by lwb1978 on 2008-1-9 at 02:16 PM ]