On Error Resume Next
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
objRegistry.EnumValues &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", arrSubKeys
For Each subkey In arrSubKeys
objRegistry.GetStringValue &H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\", subkey, kk
With UserForm2.ComboBox1
.AddItem subkey + " 在 " + Mid(kk, InStr(kk, ",") + 1, InStr(kk, ":,") - InStr(kk, ","))
If InStr(subkey, "210") > 0 Then
.Value = subkey + " 在 " + Mid(kk, InStr(kk, ",") + 1, InStr(kk, ":,") - InStr(kk, ","))
y = 1
End If
End With
With UserForm2.ComboBox3
.AddItem subkey + " 在 " + Mid(kk, InStr(kk, ",") + 1, InStr(kk, ":,") - InStr(kk, ","))
If InStr(subkey, "210") > 0 Then
.Value = subkey + " 在 " + Mid(kk, InStr(kk, ",") + 1, InStr(kk, ":,") - InStr(kk, ","))
y = 1
End If
End With
i = i + 1
Next |