0

i have a function

Public Sub TEST() Debug.Print CreateObject("wscript.shell").exec("cmd /V /C wmic os get SerialNumber").StdOut.ReadAll End Sub

it show my serial number in immediate window as

"SerialNumber

00369-41215-48742-AAGTF"

i want this in Cell

0 Answers0