HI, I'm trying to migrate 2 VBScripts that i found on the internet into one script. The first Scripts checks if the user has Admin Rights and the second script is a Key Changer. But if i migrate this 2 scripts into one script and when i then execute it then it wants to add "relaunch" as a Key. '-> Begin of the Admin Right Check ScriptSet reg = GetObject("winmgmts://./root/default:StdRegProv")rc = reg.GetStringValue(&h80000003, "S-1-5-19\Environment", "TEMP", val)If rc = 5 Then If WScript.Arguments.Count = 0 Then CreateObject("Shell.Application").ShellExecute "wscript.exe" _ , Chr(34) & WScript.ScriptFullName & Chr(34) & " relaunch", "", "runas", 1 WScript.Quit Else WScript.Echo "Cannot acquire admin privileges." WScript.Quit End IfElse'-> Begin of the Key Changer ScriptOn Error Resume NextIf WScript.Arguments.Count<1 Then VOL_PROD_KEY = InputBox ("This script will change the product key of:"&vbCr&"Windows XP SP1, SP2 and SP3."&vbCr&vbCr&"Enter a correct CD-Key in the blank field below:","Windows XP Key Changer") If VOL_PROD_KEY = "" Then WScript.Quit End IfElse VOL_PROD_KEY = WScript.Arguments.Item(0)End IfVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","")for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation") result = Obj.SetProductKey (VOL_PROD_KEY) If Err.Number = 0 Then WScript.Echo "Windows XP Product Key was changed successfuly." End If If Err.Number <> 0 Then WScript.Echo "Error entering new product key: "&VOL_PROD_KEY&""&vbCr&vbCr&"Please verify that this Product Key was entered correctly and if it is a valid key." Err.Number.Clear End IfNextWScript.Quit