Change Site code via vbs

Change the "RH1" according to the desired site code and save as vbs file

On Error Resume Next
set oSMSClient = CreateObject ("Microsoft.SMS.Client")
'if Err.Number <>0 then
'wscript.echo "Could not create SMS Client Object - quitting"
'end if
'Assign client to Servername
oSMSClient.SetAssignedSite "RH1",0
set oSMSClient=nothing