[dimich22]

voler, если вместо "." использовать имя компьютера напрямую, то все работает.

Попробуй тогда вместо первой строки

Код:

Set objNetwork = CreateObject("WScript.Network") 
strComputer = objNetwork.ComputerName 

Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _ 
strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & _ 
strComputer & "'")