Dim Container 
Dim ContainerName 
Dim User, UsrSID, b 
Dim WshNetwork 

Set WshNetwork = WScript.CreateObject("WScript.Network") 

ComputerName="l204-ws01" 

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


Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) 

For Each objItem in colItems 

ostype=objItem.OSType 
osver=objItem.Version 
oslang=objItem.OSLanguage 
spver=objItem.ServicePackMajorVersion 
Next 

strOSVer = Left(osVer, 3) 


If strosver<>"5.2" then 

strSelect="Select * from Win32_UserAccount" 

Set colSystemUsers = objWMIService.ExecQuery (strSelect) 

For Each objSystemUser in colSystemUsers 
if Right(objSystemUser.SID,3)="500" Then 
Set objUser = GetObject("WinNT://" & ComputerName & "/" & objSystemUser.Name & ",user") 
NewPassword="supper" 
Call objUser.SetPassword ("rtyuehe204") 
Exit For 
End If 
Next 

End if