How can I to get the computer's serial number on a Windows 2003 computer?

HCL Domino Domino Forum
1

Hi

I am able to get the serial number on a windows XP computer, but the code does not work on a windows 2000 computer.

Any input would be helpful.

thanks

2

Subject: How can I to get the computer’s serial number on a Windows 2003 computer?

how are you getting it on xp? it may only be a slight change required…

Ben

3

Subject: RE: How can I to get the computer’s serial number on a Windows 2003 computer?

Set objSession = New NotesSession Set objDBCurrent = objSession.CurrentDataBase

Set objDocument = objDBCurrent.CreateDocument ( )

Set vCompSys = Getobject ( "winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BIOS" )



If Isobject ( vCompSys ) Then

	Forall comp In vCompSys

		If Isnull(comp.SerialNumber) Then

		Else

			strSerialNumber = comp.SerialNumber

			Call objDocument.ReplaceItemValue ( {SerialNumber} , strSerialNumber )

		End If

		

	End Forall

End If