strComputer = InputBox("请输入计算机名或者IP地址", "输入") file = "d:/TaskInfo_" & strComputer & ".txt" '保存信息的文件名 Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!/