用来修改本机名跟IP地址 Private Sub form1_load() num = Int(InputBox("请输入该机的编号:")) If num > 0 And num < 10 Then jihao = "0" & num ElseIf num >= 10 And num < 100 Then jihao = num Else MsgBox ("输入超出范围!") End If wmitoip (jihao) voidWriteIPToReg (jihao) End Sub