If WScript.Arguments.length = 0 Then ' Elevate privileges Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "wscript.exe", Chr(34) & WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1 Else strFileName = "C:\Program Files (x86)\iVMS-4200 Site\iVMS-4200 Client\Server\iVMS-4200.DeviceManagement.S\CloudP2PSetup.xml" With WScript.CreateObject("Scripting.FileSystemObject") If .FileExists(strFileName) Then ' Read With .OpenTextFile(strFileName, 1) strContent = .ReadAll() .Close End With ' Replace strContent = Replace(strContent, "https://openauth.ezvizlife.com", "https://irusopenauth.ezvizru.com") strContent = Replace(strContent, "https://open.ezvizlife.com", "https://irusopen.ezvizru.com") ' Write With .OpenTextFile(strFileName, 2) .Write strContent .Close End With Else WScript.Echo "File [" & strFileName & "] not found" End If End With End If WScript.Quit 0