Pleeezzzzzzz! Узнать имя компа в shell

Set wsNet = CreateObject("WScript.Network")
Set fsObj = CreateObject("Scripting.FileSystemObject")
If StrComp(wsNet.ComputerName,"server_name",vbTextCompare) = 0 Then
    If fsObj.FileExists("C:\Temp\test.txt") = True Then
        fsObj.CopyFile "C:\Temp\test.txt", "H:\", True
        MsgBox "Скопировано на Flash-накопитель."
    Else
        MsgBox "Не найден Flash-накопитель или файл на сервере."
    End If
Else
    If fsObj.FileExists("F:\test.txt") = True Then
        fsObj.CopyFile "F:\test.txt", "D:\Temp\", True
        MsgBox "Скопировано с Flash-накопителя."
    Else
        MsgBox "Не найден Flash-накопитель или файл на нём."
    End If
End If