51CTO博客开发
第一种: Dim revalSet objnet = CreateObject ("WScript.Network")Set R = CreateObject("WScript.Shell")reval = InputBox ("当前的计算机名是:" & objnet.ComputerName,"输入新的计算机名")On Error Resume NextstrCom
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号