On Error Resume Next
Dim objSWbemLocator, objWMIService, objItem, colItems, strComputer, strUserName, strPassword

'define variables
strComputer = "M90n-1"	'computer name or computer's IP address
strUserName = "Admin"
strPassword = "minda"

'get the locator object 
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")

'get the service object from the remote server
Set objWMIService = objSWbemLocator.ConnectServer(strComputer, "root\CIMV2", strUserName, strPassword)
If Err.Number <> 0 Then
	WScript.Echo "Unable to connect to " & strComputer & ": " & Hex(Err.Number) & "."
	WScript.Quit
End If

objWMIService.Security_.ImpersonationLevel = 3
objWMIService.Security_.AuthenticationLevel = 6

'executes a WQL query
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colItems
    strResult =             "System Name         : " & objComputer.Name & vbcrlf
    strResult = strResult & "System Manufacturer : " & objComputer.Manufacturer & vbcrlf
    strResult = strResult & "System Model        : " & objComputer.Model & vbcrlf
Next

Set colSettings = objWMIService.ExecQuery ("Select * from Win32_BIOS")
For Each objBIOS in colSettings 
    strResult = strResult & "Serial Number       : " & objBIOS.SerialNumber & vbcrlf
    strResult = strResult & "BIOS Version        : " & objBIOS.SMBIOSBIOSVersion
Next
WScript.Echo strResult