你好：你可以在窗体添加TEXTBOX控件命名为TEXT1

Private Sub GetProcessorID()
Dim a As SWbemServices
Dim b As SWbemObjectSet
Dim c As SWbemObject
Dim d As SWbemPropertySet
Dim e As SWbemProperty
应怎样定义SWbemServices、SWbemObjectSet、SWbemObject、SWbemPropertySet、SWbemProperty这几个类型？

您好
在"工程"菜单中的"引用"中选择"Microsoft WMI Scripting V1.2 Library"

  问题已解决，谢谢！
  另有一问，不知是否愿意回答（与本例注册有关，但是本书之外的内容）——怎样在用安装盘安装的时候，让安装者正确填写一个序列号问 题 : 
  我已将作好的系统打包并已制作好安装盘，但是，还没有安装，我所希望的是在用安装盘安装的时候，让安装者正确填写一个序列号，才能安装；
  我知道：VB6安装程序的源程序在VB98WizardPDWizardSetup1目录下可以找到。我可以在VB中打开这个工程，然后在其中添加我需要的对话框和检验算法。编译后使用我的Setup1.exe替换系统的Setup1.exe就可以了。
  但是，我是初学者，我在Setup1SETUP1.VBP中不知如何添加我所需要填写一个序列号的对话框  ？

您好！

您已经找到了要修改的地方，剩下就是修改这个程序，该工程中的每个窗体都有相应的功能，如frmWelcome是欢迎窗体，您可以通过修改该窗体来实现修改安装时的欢迎界面。当然，您也可以在适当的位置（此位置应根据您程序的需要）添加一个窗体，用于弹出一个对话框。但是要注意前后窗体的衔接。

注意：在修改该程序前，要备份，以免程序被破坏无法打包。