?excellent, just the bit I was after - thanks Todd.
Stuart Watret Offshore - IT Ltd ________________________________ From: [email protected] <[email protected]> on behalf of Miller, Todd <[email protected]> Sent: 29 August 2014 19:05 To: [email protected] Subject: [mssms] RE: vb query against cm for mac Here's is part of the way there. I have a script that takes the computer name and does a SQL query (via WMI) and pulls the MAC so that it can be used to send a WOL packet to the named machine using the WOL.dll You will need to edit this a little bit if you want to just pull the MAC address - but it should be pretty clear what you need - I think the hard part is figuring out the SQL query and how to parse the response. The stuff in between the <<<< >>>> are things you need to edit. Basically, when you get down into that "For Each Result" loop, Result.MACAddress, Result.IPAddress, and Result.Subnet will be filled with the information you are looking for. Machinesmay have more than one active NIC so the script loops through them all. Dim IPNumber, MacAddress, SubnetMask, PortNumber, CompName, strSiteServer, strSiteCode dim strQuery ' String for the Query dim oLocator ' SWbemLocator object dim gService ' SWbemServices object dim oQueryResult CompName = request.QueryString ("txtValue") Response.write ("Waking up " & CompName & "<br><br>") 'You will need to edit the following line to fit your environment. SMSServer = Your SMS Server. Leave the "" strSiteServer = "<<<<YOUR SCCM SERVERS NAME>>>>" 'You will need to edit the following line to fit your environment. SMSSite Code = Your 3 Digit Site Code. Leave the "" strSiteCode = "<<<<YOUR three char SITE CODE>>>>" set oLocator = CreateObject("WbemScripting.SWbemLocator") set gService = Locator.ConnectServer(strSiteServer, "root/sms/site_" & strSiteCode,"<<<<DOMAIN\ACCOUNT THAT CAN READ SCCM DATA>>>>","<<<<PASSWORD FOR THAT ACCOUNT>>>>") strQuery="SELECT IPAddress, MACAddress, IPSubnet " & _ "From SMS_G_System_NETWORK_ADAPTER_CONFIGURATION INNER JOIN SMS_G_System_SYSTEM " & _ "On SMS_G_System_NETWORK_ADAPTER_CONFIGURATION.ResourceID = SMS_G_System_SYSTEM.ResourceID " & _ "Where SMS_G_System_NETWORK_ADAPTER_CONFIGURATION.IPEnabled=1 and SMS_G_System_SYSTEM.Name like " & CHR(34) & CompName & CHR(34) set oQueryResult = gService.ExecQuery(strQuery) if oQueryResult.Count = 0 then response.write ("Could not locate unique IP address for machine<br><br>") else response.write ("<br><br>") response.write ("Found " & oQueryResult.Count & " possible addresses for " & CompName & ".") For each Result in oQueryResult On error resume next PortNumber=<<<<YOUR PORT NUMBER FOR WOL>>>> MacAddress=Replace(Result.MACAddress,":","") response.write ("<br><br>MacAddress: " & MACAddress & vbcr) response.write ("<br>IPNumber: " & Result.IPAddress & vbcr) response.write ("<br>SubnetMask: " & Result.IPSubnet & "<br>" & vbcr) If IsNull (Result.IPSubnet) or IsNull (Result.IPAddress) or IsNull (MACAddres) then response.write ("<B>SMS does not have enough information to wake up this machine.</B>") else set WakeOnLan = server.createobject("DigitalWol.Wol") WakeOnLan.TheMacAddress(MACAddress) WakeOnLan.TheIpNumber(Result.IPAddress) WakeOnLan.TheSubnetMask(Result.IPSubnet) WakeOnLan.ThePortNumber(PortNumber) WakeOnLan.WakeMeUp end if Next end if From: [email protected] [mailto:[email protected]] On Behalf Of Stuart Watret Sent: Friday, August 29, 2014 11:09 AM To: [email protected] Subject: [mssms] vb query against cm for mac Anyone have a working vbscript example of a successful query for a mac address given the netbios name? Struggling......... Stuart Watret Offshore - IT Ltd ________________________________ Notice: This UI Health Care e-mail (including attachments) is covered by the Electronic Communications Privacy Act, 18 U.S.C. 2510-2521, is confidential and may be legally privileged. If you are not the intended recipient, you are hereby notified that any retention, dissemination, distribution, or copying of this communication is strictly prohibited. Please reply to the sender that you have received the message in error, then delete it. Thank you. ________________________________
