прописать

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

'-----------------------------------------------------------------------------
Dim objWshNetwork

Set objWshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo objWshNetwork.ComputerName

'-----------------------------------------------------------------------------
Dim objSystemInfo

Set objSystemInfo = WScript.CreateObject("WinNTSystemInfo")
WScript.Echo objSystemInfo.ComputerName

'-----------------------------------------------------------------------------
Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx

strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_ComputerSystem")

For Each objSWbemObjectEx In collSWbemObjectSet
    WScript.Echo objSWbemObjectEx.Name
Next

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate,(Backup, security)}!\\" & _ 
        strComputer & "\root\cimv2") 
 
Set colLogFiles = objWMIService.ExecQuery _ 
    ("Select * from Win32_NTEventLogFile where LogFileName='Security'") 
 
 For Each objLogfile in colLogFiles 
    errBackupLog = objLogFile.BackupEventLog("C:\" & strComputer & "_security.evt")
    If errBackupLog <> 0 Then         
        Wscript.Echo "The Security event log could not be backed up." 
    Else 
        objLogFile.ClearEventLog() 
    End If 
Next

Помогите, пожалуйста, новичку кто чем сможет