如有疑问,请阅读文档
返回已转换为大写的字符串。
因此,只需更改此行
computerName = ComputerNameArea.Value
至
computerName = UCase(ComputerNameArea.Value)