Get all the machines volume label names to a file

see this link
http://msdn2.microsoft.com/en-us/library/system.io.driveinfo.getdrives(VS.80).aspx

'
' get-HD-label-all-PCs.vbs
' read the computer computers list from the file c:\computers.txt
' for get output on file run:
'
' cscript //nologo get-HD-label-all-PCs.vbs >result.txt
'
' Gastone Canali
'
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Computers.txt", ForReading)
do while not objFile.AtEndOfStream
    PC = objFile.ReadLine
    Gethdinfo (PC)
loop
objFile.Close
sub Gethdinfo(strComputer)
  getinfo=""
  On Error Resume Next
  Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/CIMV2" )
  Set colInstances = objWMIService.ExecQuery( "SELECT * FROM Win32_LogicalDisk where driveType=3",  "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly )
  If Err.Number = 0 then
    For Each objInstance In colInstances
          getinfo=getinfo & " " & objInstance.deviceID &" " & objInstance.volumename  
    Next
  else
    getinfo="Error computer not found"
    err.clear
  end if
  WScript.echo strComputer & space(10-len(strComputer)) &": " & getinfo
end sub

I tried tha same way as mentioned.TRhe file is creating but no data in the results.txt

try only:
cscript //nologo get-HD-label-all-PCs.vbs

C:\>cscript //nologo get-HD-label-all-PCs.vbs
hydsophos :  C:  D: Data
          : Error computer not found
          : Error computer not found
          : Error computer not found