<div>
If you have admin access to all of the PCs then you can use WMI as in the example below. 

<pre><code class="code-10 nolinks" id="code-998560">On Error Resume Next

sInputFile = &quot;Input.txt&quot;
sOutputFile = &quot;Output.csv&quot;
sAdminUserName = &quot;username&quot;
sAdminPassword = &quot;password&quot;

Set oFS = CreateObject(&quot;Scripting.FilesystemObject&quot;)

Set oInputFile = oFS.OpenTextFile(sInputFile, 1, True)
Set oOutputFile = oFS.CreateTextFile(sOutputFile, True)

sSerialQuery = &quot;Select IdentifyingNumber From Win32_ComputerSystemProduct&quot;
sWiFiQuery = &quot;Select MACAddress from Win32_NetworkAdapterConfiguration WHERE Description Like '%WiFi%' OR Description Like '%Wireless%' OR Description Like '%AGN%'&quot;

Set oComputerObject = CreateObject(&quot;WbemScripting.SWbemLocator&quot;)
oComputerObject.Security_.ImpersonationLevel = 3
oComputerObject.Security_.AuthenticationLevel = 0

Do While Not oInputFile.AtEndOfStream
 sPC = oInputFile.ReadLine
 Set oWMI = oComputerObject.ConnectServer(sPC, &quot;root\cimv2&quot;, sPC &amp; &quot;\&quot; &amp; sAdminUserName, sAdminPassword)

 Set cTemp1 = oWMI.ExecQuery(sSerialQuery)
 Set cTemp2 = oWMI.ExecQuery(sWiFiQuery)
 For Each oItem In cTemp1
 oOutputFile.Write oItem.IdentifyingNumber &amp; &quot;,&quot;
 Next
 For Each oItem In cTemp2
 oOutputFile.WriteLine oItem.MACAddress
 Exit For
 Next
 Set cTemp1 = Nothing
 Set cTemp2 = Nothing
 Set oWMI = Nothing
Loop
Set oComputerObject = Nothing
Wscript.Echo &quot;Complete.&quot;

Function Ping(sHost)
 Dim oWMILocal, cPings, oPing, iPingResult

 Set oWMILocal = GetObject(&quot;winmgmts:\\.\root\cimv2&quot;)

 Set cPings = oWMILocal.ExecQuery(&quot;Select * from Win32_PingStatus &quot; &amp;_
 &quot;Where Address = '&quot; &amp; sHost &amp; &quot;' AND timeout = 500&quot;)
 For Each oPing In cPings
 iPingResult = oPing.StatusCode
 If (iPingResult = 0) Then
 Ping = True
 Exit Function
 Else
 Ping = False
 End If
 Next
End Function
</code></pre>
</div>

<div>
check this script you might, I don't have wireless network card on my computer to check it but you might need to change line 51 if it didn't work remove &nbsp;WHERE AdapterType like '%wireless%' from the code and try it I thing adaptertype should be wireless but you can try it 

<pre><code class="code-10 nolinks" id="code-998645">Dim objFSO, objFolder, objShell, objTextFile, objFile
Dim strOutputDir, strOutputFile, strComputersList 
On Error Resume Next

Const ForAppending = 8
Const ForReading = 1

'Variables to change
strOutputDir = &quot;d:\desktop&quot;	'folder to store outputfile should be written without end \
strOutputFile = &quot;output.txt&quot;	'file to store output data should start with \
strComputersList = &quot;d:\desktop\ServerList.txt&quot;


Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)

If objFSO.FolderExists(strOutputDir) Then
 Set objFolder = objFSO.GetFolder(strOutputDir)
Else
 Set objFolder = objFSO.CreateFolder(strOutputDir)
End If

If objFSO.FileExists(strOutputDir &amp; &quot;\&quot; &amp; strOutputFile) Then
 Set objFolder = objFSO.GetFolder(strOutputDir)
Else
 Set objFile = objFSO.CreateTextFile(strOutputDir &amp; &quot;\&quot; &amp; strOutputFile)
End If 

set objFile = nothing
set objFolder = nothing

Set objTextFile = objFSO.OpenTextFile (strOutputDir &amp; &quot;\&quot; &amp; strOutputFile, ForAppending, True)



Set objFile = objFSO.OpenTextFile(strComputersList, ForReading)
Do Until objFile.AtEndOfStream

strComputer = objFile.ReadLine 
tLine = strComputer

Set objWMIService = GetObject(&quot;winmgmts:\\&quot; &amp; strComputer &amp; &quot;\root\CIMV2&quot;) 

select case err.number
 case 0
 Set colItems = objWMIService.ExecQuery(&quot;SELECT * FROM Win32_SystemEnclosure&quot;,,48) 
 For Each objItem in colItems 
 tLine= tLine &amp; vbtab &amp; objItem.SerialNumber
 Next

 Set colItems = objWMIService.ExecQuery(&quot;SELECT * FROM Win32_NetworkAdapter WHERE AdapterType like '%wireless%'&quot;,,48) 

 For Each objItem in colItems 
 if objItem.MACAddress &lt;&gt;&quot;&quot; then tLine= tLine &amp; vbtab &amp; objItem.AdapterType &amp; &quot; (&quot; objItem.MACAddress &amp; &quot;)&quot;
 Next
 case 70
 tLine=tLine &amp; vbtab &amp; &quot;Access denied&quot;
 case 462
 tLine=tLine &amp; vbtab &amp; &quot;Cannot be Contacted&quot;
 case else
 wscript.echo err.number
end select

 objTextFile.WriteLine(tLine)
 
 strComputer = Null
 objWMIService = Null
 colItems = Null
 objItem = Null

Loop
objFile.Close

objTextFile.Close
wscript.echo &quot;Script execution Completed, check the file &quot; &amp; strOutputDir &amp; &quot;\&quot; &amp; strOutputFile &amp; &quot; for output results&quot;
</code></pre>
</div>

<div>
spinzr0: 
 
it's almost there...Here's the content of my input file 
 
745362S 
9P7HR1S 
B45362S 
5H1VY1S 
155362S 
 
and the following is my output file 
 
745362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A8:A4:08 
00:23:14:A8:A4:08 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
B45362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A8:63:88 
00:23:14:A8:63:88 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
155362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A5:DE:A4 
 
As you can see it repeats the Mac address of the previous because the laptops 9P7HR1S &amp;&nbsp;5H1VY1S were turned off. 
 
I would rather see the output look like the following 
 
745362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A8:A4:08 
9P7HR1S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Not Found 
B45362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A8:63:88 
5H1VY1S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Not Found 
155362S &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;00:23:14:A5:DE:A4 
 
Thanks 
Cheers 
 
 
 

</div>

<div>
Give this a shot 

<pre><code class="code-10 nolinks" id="code-1000197">On Error Resume Next

sInputFile = &quot;Input.txt&quot;
sOutputFile = &quot;Output.csv&quot;
sAdminUserName = &quot;username&quot;
sAdminPassword = &quot;password&quot;

Set oFS = CreateObject(&quot;Scripting.FilesystemObject&quot;)

Set oInputFile = oFS.OpenTextFile(sInputFile, 1, True)
Set oOutputFile = oFS.CreateTextFile(sOutputFile, True)

sSerialQuery = &quot;Select IdentifyingNumber From Win32_ComputerSystemProduct&quot;
sWiFiQuery = &quot;Select MACAddress from Win32_NetworkAdapterConfiguration WHERE Description Like '%WiFi%' OR Description Like '%Wireless%' OR Description Like '%AGN%'&quot;

Set oComputerObject = CreateObject(&quot;WbemScripting.SWbemLocator&quot;)
oComputerObject.Security_.ImpersonationLevel = 3
oComputerObject.Security_.AuthenticationLevel = 0

Do While Not oInputFile.AtEndOfStream
 sPC = oInputFile.ReadLine
 Err.Clear
 Set oWMI = oComputerObject.ConnectServer(sPC, &quot;root\cimv2&quot;, sPC &amp; &quot;\&quot; &amp; sAdminUserName, sAdminPassword)
 If Err.Number &lt;&gt; 0 Then
 oOutputFile.WriteLine sPC &amp; &quot;,Not Found&quot;
 Err.Clear
 Else
 Set cTemp1 = oWMI.ExecQuery(sSerialQuery)
 Set cTemp2 = oWMI.ExecQuery(sWiFiQuery)
 For Each oItem In cTemp1
 oOutputFile.Write oItem.IdentifyingNumber &amp; &quot;,&quot;
 Next
 For Each oItem In cTemp2
 oOutputFile.WriteLine oItem.MACAddress
 Exit For
 Next
 Set cTemp1 = Nothing
 Set cTemp2 = Nothing
 End If
 Set oWMI = Nothing
Loop
Set oComputerObject = Nothing
Wscript.Echo &quot;Complete.&quot;

Function Ping(sHost)
 Dim oWMILocal, cPings, oPing, iPingResult

 Set oWMILocal = GetObject(&quot;winmgmts:\\.\root\cimv2&quot;)

 Set cPings = oWMILocal.ExecQuery(&quot;Select * from Win32_PingStatus &quot; &amp;_
 &quot;Where Address = '&quot; &amp; sHost &amp; &quot;' AND timeout = 500&quot;)
 For Each oPing In cPings
 iPingResult = oPing.StatusCode
 If (iPingResult = 0) Then
 Ping = True
 Exit Function
 Else
 Ping = False
 End If
 Next
End Function
</code></pre>
</div>

<div>
spinzr0: 
 
Since it was weekend, I gave it a shot this morning and the following is the result..It seems that &quot;spc&quot; is not returning any value (service tag). 
 
,Not Found 
,Not Found 
,Not Found 
,Not Found 
1R43T1S,00:1C:BF:8B:7F:CF 
,Not Found 
,Not Found 
DMSDT1S,00:1D:E0:79:A5:75 
 
Cheers 
Christian 
 

</div>

<div>
 
have you tried my code or spinzr0
</div>

<div>
spinzr0: 
 
No, there's no blank in the input file. So I ran again the latest version you gave me and that's the result. 
Very Strange ! 
 
Input File 
 
155362S 
1DCM52S 
1R43T1S 
23N7V1S 
355362S 
3LV132S 
3RN1W1S 
69WW12S 
 
Output CSV file 
 
155362S,Not Found 
1DCM52S,00:24:D6:83:3C:D6 
1R43T1S,00:1C:BF:8B:7F:CF 
23N7V1S,Not Found 
355362S,00:23:14:A6:07:B4 
3LV132S,00:24:D6:09:72:E4 
3RN1W1S,00:1F:3B:7B:49:51 
69WW12S,Not Found 
,Not Found 
 
There's a little mistake on the last record...it shouldn't be there 
 
Cheers 

</div>

<div>
spinzr0: 
 
Thanks for your help. 
</div>

<div>
<div class="content wysiwyg-content">
I need help to collect Ethernet Adapter Wireless Network MAC address for a list of laptops. I will have an input file with all the Service Tag of the laptops in there. I need a VB Script that will read through the input file and export the following to a text or excel file 
 
Service Tag &amp;&nbsp;Ethernet Adapter Wireless Network MAC address 
 
Eg &nbsp;The output file will look like 
23N7V1S &nbsp; &nbsp;00-1F-3B-01-49-BD 
CZNS22S &nbsp; 00-22-FB-CD-4A-18 
 
Thanks 
Cheers 
 
 
 

</div>
</div>

I need help to collect Ethernet Adapter Wireless Network MAC address for a list of laptops. I will have an input file with all the Service Tag of the laptops in there. I need a VB Script that will read through the input file and export the following to a text or excel file 

Service Tag & Ethernet Adapter Wireless Network MAC address

Eg  The output file will look like
23N7V1S    00-1F-3B-01-49-BD
CZNS22S   00-22-FB-CD-4A-18

Thanks
Cheers





Collect Ethernet Adapter Wireless Network MAC address

VBScript (Visual Basic Scripting Edition) is an interpreted scripting language developed by Microsoft that is modeled on Visual Basic, but with some important differences. VBScript is commonly used for automating administrative and other tasks in Windows operating systems (by means of the Windows Script Host) and for server-side scripting in ASP web applications. It is also used for client-side scripting in Internet Explorer, specifically in intranet web applications.