none
VBS: Как получить имя текущего компьютера? RRS feed

Ответы

  • Code Snippet

    Option Explicit

     

    Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
    Dim strComputerName : strComputerName = objNet.ComputerName

     

    WScript.Echo (strComputerName)

     

     

     

    Наверное, приблизительно так.

    1 ноября 2008 г. 13:04

Все ответы

  • Code Snippet

    Option Explicit

     

    Dim objNetwork : Set objNetwork = CreateObject("WScript.Network")
    Dim strComputerName : strComputerName = objNet.ComputerName

     

    WScript.Echo (strComputerName)

     

     

     

    Наверное, приблизительно так.

    1 ноября 2008 г. 13:04
  • можно через раскрытие переменных среды:

     

    Set wshshell = CreateObject("WScript.Shell")
    computer = WshShell.ExpandEnvironmentStrings("%computername%")

     

    11 ноября 2008 г. 7:01
  • А можно еще так! если из AD

     Set objSysInfo = CreateObject("ADSystemInfo")
    msgbox right(left(objSysInfo.computername,instr(1,objSysInfo.computername,",")-1),len(left(objSysInfo.computername,instr(1,objSysInfo.computername,",")-1))-instr(1,left(objSysInfo.computername,instr(1,objSysInfo.computername,",")-1),"="))

    19 октября 2009 г. 9:24