如何通过脚本获取本地计算机名？

[dugufeiyun]

由于工作上的需要，需要每天将多台服务器上的日志文件保存到一个固定的位置。目前已经在微软官方网站找到一个脚本用当前日期作为文件名保存日志文件的：

dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Application'")
For Each objLogfile in colLogFiles
objLogFile.BackupEventLog("C:\" & strBackupName & _
"_application.evt")
Next

但是这样做，多台服务器上的日志文件保存到同一个位置后就会出现同名重复，因此想在日志文件名前面再添加一串计算机名以区分，可是不知道该怎么通过Windows脚本来获取当前本地计算机名，因此请赐教！因为本人对Windows脚本不是很熟悉，最好能够给出修改过后的完整的脚本，谢谢。

[chenxdb]

Set objNetwork = CreateObject("WScript.Network")
strLocalComputer = objNetwork.ComputerName
msgbox strLocalComputer

[chenxdb]

dtmThisDay = Day(Date)
dtmThisMonth = Month(Date)
dtmThisYear = Year(Date)
strBackupName = dtmThisYear & "_" & dtmThisMonth & "_" & dtmThisDay
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Backup)}!\\" & _
strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
("Select * from Win32_NTEventLogFile where LogFileName='Application'")
Set objNetwork = CreateObject("WScript.Network")
strLocalComputer = objNetwork.ComputerName

For Each objLogfile in colLogFiles
objLogFile.BackupEventLog("C:\" & strLocalComputer & "_" & strBackupName & _
"_application.evt")
Next

[dugufeiyun]

谢谢楼上的回复！

[ljc007]

[code=BatchFile]echo %computername%[/code]