QTP中获取本地PCNAME

  方法1 ，通过环境变量
 pcname=environment("LocalHostName")&"_PC"
 msgbox pcname

   方法2  ，通过WshNetWork对象的计算机名属性
 Dim oNet
 Set Net=CreateObject("Wscript.Network")
 msgbox "Computer Name="& oNet.ComputerName
 Set Net=nothing

   方法3  ，通过WshNetWork对象的用户名属性
  Dim oNet
  Set Net=CreateObject("Wscript.Network")
  msgbox "Domain="& oNet.UserName
  Set Net=nothing