Vbs Get Serial Number
The following script can be used to remotely access the serial number for a computer on your network. Output: When you run the script it will prompt for the computer. Use VBScript to find and display my computer's serial. Install Xtools Pro. Have used wmic bios get serialnumber at command line to get serial number. Need a VBScript to do the.
The security best practices(and for 3 months ago the ISO27001 with us) forces IT departments to control the assets. So, what do we have in the hand as lazy admins to collect assets en the network, it depends! • Send 10-20 technicians to take inventory manually through the entire office, 1-2-3-4 AD Sites?
• Use System Center, OK, that's great for serial numers of CPU's but less for monitors, or we can have independent reports for CPU and monitors. So, it's not enough for me.
• Use this script I found, and find it great from: I don't know the owner of the site but it's a great script and I allow my self to share it. The results is exactly what our Management expects, an Excel with serial numbers from CPU's and monitors, associated to the user. Really great and congratulations to the owner of the script!
I am trying to create an Admin tools HTA. This is more for learning than anything else. So far I have found everything that I need on here. Right now I am stuck on one piece. I want to collect the serialnumber of a computer and output it into a textbox or textarea. Here is the code that I am trying to use. As is the code will output 'serialnumber' to the text box. Cod4 Promod 204 Youtube more.
Any help would be greatly appreciated. Sub ComputerS set objExec = objShell.Exec('wmic bios get serialnumber') Set objStdOut = objExec.StdOut strLine = objStdOut.ReadLine queryResults.value = strLine end Sub and here is the code for the texarea and button So I figured it out. I had to add one line of code sub ComputerS set objExec = objShell.Exec('wmic bios get serialnumber') Set objStdOut = objExec.StdOut objExec.StdOut.skipLine strLine = objStdOut.ReadLine queryResults.value = strLine end Sub When I added the skipLine it worked perfectly. Thanks everyone for the help I will definitely be using your information in the near future when I expand on my tool.