Script for PC serial number and hostname.

[raquetman75]

Can anybody help me with a script that will output in a txt file and in it is the computer name, loginame and the PC serial number. Thank you very much.

 

[raquetman75]

What's wrong with this script? Help..

===================
Dim Model
Dim Name
Dim User
Dim Company
Dim Serial


strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")

Set colSettings = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
model=objComputer.Model
Set colBIOS = objWMIService.ExecQuery _
("Select * from Win32_BIOS")
For each objBIOS in colBIOS
serial=objBIOS.SerialNumber
Next
name=objComputer.Name
user=objComputer.Username
company=objComputer.Manufacturer
Next


Set objFSO = CreateObject("Scripting.FileSystemObject")


if objFSO.fileexists("\lic-nap\getsn\" & user & serial & ".txt")=False then

Const ForAppending = 8
Set objFile = objFSO.OpenTextFile("\lic-nap\getsn\userdata.txt", ForAppending)
Set objFile2=objFSO.CreateTextFile("\lic-nap\getsn\" & user & serial & ".txt",True)
DateInfo = DateInfo & Now & VbCrLf
out1="File Created: " & DateInfo
out2="User Name: " & user
out3="Computer Name: " & name
out4="Model: " & model
out5="Serial Number: " & serial
out6="Manufacturer: " & company

objFile2.Writeline out1
objFile2.Writeline out2
objFile2.Writeline out3
objFile2.Writeline out4
objFile2.Writeline out5
objFile2.Writeline out6
objFile.Writeline user & "," & name & "," & model & "," & serial & "," & company
objFile.Close
objFile2.Close


end if