On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
    os_name = objOperatingSystem.Name
    os_ver = objOperatingSystem.Version
    sp_ver = objOperatingSystem.ServicePackMajorVersion _
            & "." & objOperatingSystem.ServicePackMinorVersion
Next

Set colSettings = objWMIService.ExecQuery _
    ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
    sys_name = objComputer.Name
    sys_man =  objComputer.Manufacturer
    sys_model = objComputer.Model
    total_phy_mem =  objComputer.TotalPhysicalMemory
Next

Set pc = CreateObject("Wscript.Network")
	username = pc.username 'Get the Username

	surl="http://your_web_server_address/user_support/update.php?action=update&os_name="& os_name & "&os_ver=" & os_ver & "&sp_ver=" & sp_ver & "&sys_name=" & sys_name & "&sys_man=" & sys_man & "&sys_model=" & sys_model & "&total_phy_mem=" & total_phy_mem & "&username=" & username

set oxmlhttp=createobject("msxml2.xmlhttp")
with oxmlhttp
    .open "post",surl,false
    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send srequest
end with