[Batch] The Official Batch File Repository - Learn & ask questions about batch files

Discussion in 'Scripting' started by timesurfer, Oct 11, 2010.

Page 16 of 20
  1. deloppoled

    deloppoled MDL Novice

    Sep 3, 2013
    5
    0
    0
    #301 deloppoled, Sep 27, 2013
    Last edited by a moderator: Apr 20, 2017

    HI there everyone and thank you MasterDisaster for this thread. The thread is nearly three years old so I am sure that I am not the first one that has answered it but following my verbiage, here's what I can up with!

    It's really surprising how much I've forgotten when all I had was a DOS prompt on my (Leading Edge 8088) to work with, before all the bells and whistles we have today. Don't get me wrong, I like a lot of the bells and whistles but without DOS I would've probably never stuck around computers to see what they've become.

    My batch files name is diamond.bat and I have created a text file with the visually appealing, numerical diamond as it's contents--it is named simply "25" no extension or anything fancy pants like that. Maybe I cheated? I'm not really sure. Please feel free to call me all sorts of things if you think that I did, I will crawl under a rock, with a laptop and try again...maybe? But it was driving me nuts until I thought about it and well, it's the best that my brain could come up with! Thanks again for this thread!



    Code:
    Z:\>diamond 25

Z:\>type 25



       0
      0 1
     0 1 2
    0 1 2 3
   0 1 2 3 4
  0 1 2 3 4 5
  0 1 2 3 4 5
   0 1 2 3 4
    0 1 2 3
     0 1 2
      0 1
       0



Z:\>
     
  2. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #302 timesurfer, Oct 6, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    Pretty sure it's my thread :p...lol

    But seriously I need help with this batch

    Here it is ready to be written to IR72.bat but I need something else

    I need it to be written to another batch at another location

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo rd /S /Q %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial\IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo rd /S /Q %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
    So right now this code is in IR7 and writes to IR72.bat

    Inside IR72.bat I'll need it to write to %systemdrive%\delete.bat

    And after it's done to delete itself

    Any idea's on how to write that?

    Thanks :worthy:
     
  3. MasterDisaster

    MasterDisaster MDL Expert

    Aug 29, 2009
    1,255
    675
    60
    #303 MasterDisaster, Oct 6, 2013
    Last edited by a moderator: Apr 20, 2017
    Try this

    Code:
    echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
    Deleting a directory with files will give directory is not empty error. If you try to delete it again it will work.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  4. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #304 timesurfer, Oct 6, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    Like this in green?

    Code:
    @echo off
cls
mode con: cols=50 lines=12
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
setlocal ENABLEEXTENSIONS
set KEY_NAME=HKCU\Software\Microsoft\Command Processor
set VALUE_NAME=DefaultColor
for /F "usebackq tokens=2 delims=x" %%A IN (`reg query "%KEY_NAME%" /v "%VALUE_NAME%" 2^>nul ^| find "%VALUE_NAME%"`) do (
  IF /I %%A EQU 0x0 (goto color) ELSE (Color %%A)
)

:mainmenu
set userinp=
title Rearm Wizard
mode con: cols=50 lines=12
cls
echo.
echo.  
echo.              ---- Rearm Wizard ----
echo.    
echo.          A. IR7 (Windows 7 and Servers)
echo.          B. IORRT (Office 2013 VL)
echo.          C. Details
echo.          D. ISO/URL Links
echo.          E. ISO Installation Basics
echo.          F. Color Customization
echo.          G. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto IR7
if /i "%userinp%"=="B" goto IORRT
if /i "%userinp%"=="C" goto Details
if /i "%userinp%"=="D" goto Links
if /i "%userinp%"=="E" goto ISO
if /i "%userinp%"=="F" goto Color
if /i "%userinp%"=="G" goto Exit
GOTO :mainmenu

:IR7
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF %ERRORLEVEL% NEQ 0 CLS & echo Supports only windows 7 and server 2008 R2 & ping -n 5 127.0.0.1 >nul & goto mainmenu 
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A

:start
title IR7
mode con: cols=45 lines=11
cls
echo.
echo.
echo.             InfiniteRearm7 (IR7)
echo.                   
echo.                A. Install
echo.                B. Uninstall
echo.                C. Status                
echo.                D. Instructions
echo.                E. Rearm Wizard
echo.                F. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIR7
if /i "%userinp%"=="B" goto UninstallIR7
if /i "%userinp%"=="C" goto StatusIR7
if /i "%userinp%"=="D" goto InstructionsIR7
if /i "%userinp%"=="E" goto MAINMENU
if /i "%userinp%"=="F" goto Exit
GOTO start

:InstallIR7
cls
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
echo.
) ELSE (
echo IR7 is already installed...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Installing IR7...
echo.
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f >NUL
echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") >key.vbs
echo Set keys = CreateObject ("Scripting.Dictionary") >>key.vbs
echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" >>key.vbs
echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" >>key.vbs
echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" >>key.vbs
echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" >>key.vbs
echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" >>key.vbs
echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" >>key.vbs
echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" >>key.vbs
echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" >>key.vbs
echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" >>key.vbs
echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" >>key.vbs
echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" >>key.vbs
echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" >>key.vbs
echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" >>key.vbs
echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" >>key.vbs
echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" >>key.vbs
echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" >>key.vbs
echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" >>key.vbs
echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" >>key.vbs
echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" >>key.vbs
echo keys.Add "ServerHomePremium",              "YQXDR-G2MBV-63VW2-JX8J2-FVTVG" >>key.vbs
echo keys.Add "ServerHomeStandard",             "BTMWJ-8KHD9-B9BX8-J7JQ9-7M6J2" >>key.vbs
echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" >>key.vbs
echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" >>key.vbs
echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" >>key.vbs
echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" >>key.vbs
echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" >>key.vbs
echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" >>key.vbs
echo keys.Add "ServerSolution",                 "VVWPG-XFYWQ-4HBR7-DYGCW-TF7XW" >>key.vbs
echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" >>key.vbs
echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" >>key.vbs
echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" >>key.vbs
echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" >>key.vbs
echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" >>key.vbs
echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" >>key.vbs
echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" >>key.vbs
echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" >>key.vbs
echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" >>key.vbs
echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" >>key.vbs
echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" >>key.vbs
echo if keys.Exists(edition) then >>key.vbs
echo WScript.Echo keys.Item(edition) >>key.vbs
echo End If >>key.vbs
FOR /F %%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%A
del key.vbs
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
SET file=%sd%\IR7.bat
echo @echo off>>%file% 
echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^>^>drive.vbs>>%file% 
echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^>^>drive.vbs>>%file% 
echo echo For Each objItem in colItems^>^>drive.vbs>>%file% 
echo echo If Hex(%sn%) = Hex(objItem.SerialNumber) then^>^>drive.vbs>>%file% 
echo echo Wscript.Echo objItem.DriveLetter^>^>drive.vbs>>%file% 
echo echo End If ^>^>drive.vbs>>%file% 
echo echo Next ^>^>drive.vbs>>%file% 
echo for /f %%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%A>>%file% 
echo :loop>>%file%
echo if "%%dl:~-1%%"==" " set "dl=%%dl:~0,-1%%" ^& goto :loop>>%file%
echo del drive.vbs>>%file% 
echo reg load HKLM\MY_SYSTEM "%%dl%%\Windows\System32\config\system" ^>NUL >>%file% 
echo reg delete HKLM\MY_SYSTEM\WPA /f ^>NUL >>%file% 
echo reg unload HKLM\MY_SYSTEM ^>NUL >>%file%
echo echo cscript /b slmgr.vbs /ipk %PIDKEY%^>%%dl%%\installkey.bat >>%file%
echo echo slmgr.vbs /dlv ^>^>%%dl%%\installkey.bat >>%file%
echo echo del "C:\installkey.bat" ^>^>%%dl%%\installkey.bat >>%file%
echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^>%%dl%%\key.vbs >>%file%
echo echo @echo off ^>%%dl%%\launch.bat >>%file%
echo echo wscript.exe "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "%sd%\IR7.bat" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\launch.bat" ^>^>%%dl%%\launch.bat >>%file%
echo reg load HKLM\MY_SOFTWARE "%%dl%%\Windows\System32\config\software" ^>NUL >>%file% 
echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^>NUL >>%file%
echo reg unload HKLM\MY_SOFTWARE >>%file%
echo wpeutil reboot >>%file%
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder
) ELSE (
GOTO Check
)

:TrialFolder
md %SystemDrive%\Trial >nul 2>&1
GOTO Check

:Check
md %SystemDrive%\Trial\IR7 >nul 2>&1
echo @echo off >%SystemDrive%\Trial\IR7\IR7.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR7.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR7.bat
echo SETX IR7backup "%%SystemDrive%%\Trial\IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo set KEY_NAME=HKCU\Software\Microsoft\Windows\CurrentVersion\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo set VALUE_NAME=CurrentTheme>>%SystemDrive%\Trial\IR7\IR7.bat
echo set spp=SoftwareLicensingProduct>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /F "usebackq tokens=3*" %%%%A IN (`reg query "%%KEY_NAME%%" /v "%%VALUE_NAME%%" 2^^^>nul ^^^| find "%%VALUE_NAME%%"`) do IF ~%%%%B==~ (SET themefile=%%%%A) ELSE (SET themefile=%%%%A %%%%B)>>%SystemDrive%\Trial\IR7\IR7.bat
echo for %%%%F in ("%%themefile%%") do set theme=%%%%~nF>>%SystemDrive%\Trial\IR7\IR7.bat

echo set wppath=%%appdata%%\Microsoft\Windows\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /f "tokens=2,3,4,5,6,7 delims= " %%%%a in ('wmic os get caption') do set ver=%%%%a %%%%b %%%%c %%%%d %%%%e %%%%f >>%SystemDrive%\Trial\IR7\IR7.bat
echo :loopV >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver:~-1%%"==" " set "ver=%%ver:~0,-1%%" ^& goto :loopV >>%SystemDrive%\Trial\IR7\IR7.bat


echo wmic path %%spp%% get LicenseStatus /format:list 2^>nul ^| findstr /i 5 ^>nul 2^>^&1 >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==0 call IR72.bat ^& goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==1 goto :Backup >>%SystemDrive%\Trial\IR7\IR7.bat



echo :Backup>>%SystemDrive%\Trial\IR7\IR7.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :Exit ) >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :BackupHB ) >>%SystemDrive%\Trial\IR7\IR7.bat


echo if exist "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" del /s /q "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" ^>nul>>%SystemDrive%\Trial\IR7\IR7.bat
echo echo F ^| xcopy "%%themefile%%" /s /q "%%systemdrive%%\Trial\IR7" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo ren "%%systemdrive%%\Trial\IR7\%%theme%%.theme" "IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo :BackupHB >>%SystemDrive%\Trial\IR7\IR7.bat
echo xcopy "%%wppath%%\TranscodedWallpaper.jpg" /s /q "%%systemdrive%%\Trial\IR7" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR7.bat
echo exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo @echo off >%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=42 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Rearming and Restoring Theme/Wallpaper...>>%SystemDrive%\Trial\IR7\IR72.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR72.bat

echo for /f "usebackq tokens=2 delims==" %%%%n in (`"%%SystemRoot%%\System32\wbem\WMIC.exe" /namespace:\\root\cimv2 path SoftwareLicensingService get RemainingWindowsReArmCount /format:list`) do set r=%%%%n >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%r%% == 0 goto :Messagebox >>%SystemDrive%\Trial\IR7\IR72.bat
echo cscript.exe /b %%windir%%\system32\slmgr.vbs /rearm >>%SystemDrive%\Trial\IR7\IR72.bat
echo net stop sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo net start sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query ^| FINDSTR /i "IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%errorlevel%%==0 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%systemdrive%%\Windows\system32\cmd.exe' /c cscript.exe /b %%SystemDrive%%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat 
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :RestoreS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :RestoreHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo F ^| xcopy "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" /s /q "%%windir%%\resources\Themes" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Themes" /t REG_SZ /v CurrentTheme /d "%%windir%%\resources\Themes\IR7Bkup.theme" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreS >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%windir%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo xcopy "%%systemdrive%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :Messagebox>>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=41 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing reinstall/uninstall options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat 
echo msgbox.vbs "IR7" "Your 180 day free trial has ended, do you wish to install IR7 again?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& call :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat



echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial\IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat



echo :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Installing IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") ^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Set keys = CreateObject ("Scripting.Dictionary") ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomePremium",              "4BWDV-9MKGX-V9QJ4-YWFWR-P6974" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomeStandard",             "MCQYD-2TJYQ-JP7KR-7GYYF-YGPXQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolution",                 "Y7GVM-YFQQW-HV8HW-GRW6D-YJ84M" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if keys.Exists(edition) then ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo WScript.Echo keys.Item(edition) ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo End If ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo FOR /F %%%%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat 
echo del key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%%%A>>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where DriveLetter="%%SystemDrive%%" get SerialNumber /format:list"') do set sn=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%%sd%%\IR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo For Each objItem in colItems^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo If Hex(%%sn%%) = Hex(objItem.SerialNumber) then^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Wscript.Echo objItem.DriveLetter^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo End If ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Next ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo for /f %%%%%%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%%%%%A^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if "%%%%dl:~-1%%%%"==" " set "dl=%%%%dl:~0,-1%%%%" ^^^& goto :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SYSTEM "%%%%dl%%%%\Windows\System32\config\system" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg delete HKLM\MY_SYSTEM\WPA /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg unload HKLM\MY_SYSTEM ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo cscript /b slmgr.vbs /ipk %%PIDKEY%%^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo slmgr.vbs /dlv ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat

echo if "%%ver%%" == "Windows 7 Starter" ( goto :WriteS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :WriteHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\IR7Bkup.theme" /s /q "%%%%%%%%windir%%%%%%%%\resources\Themes" /Y /V ^^^^^^^>null^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme"^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\installkey.bat" ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^^^>%%%%dl%%%%\key.vbs ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo @echo off ^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo wscript.exe "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "%%sd%%\IR7.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\launch.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SOFTWARE "%%%%dl%%%%\Windows\System32\config\software" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg unload HKLM\MY_SOFTWARE ^>^>%%file%%>> %SystemDrive%\Trial\IR7\IR72.bat
echo echo wpeutil reboot ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo reagentc /boottore ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Windows is restarting now... >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%SystemDrive%%\Windows\system32\cmd.exe' /c cscript.exe /b C:\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat 
echo shutdown.exe /r /t 0 >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR72.bat
echo exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :WriteS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%%%%%%%windir%%%%%%%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat  
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo :WriteHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
reagentc /boottore >NUL
cls & echo Windows is restarting now...
attrib +h "%SystemDrive%\Trial\IR7"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "IR7" /tr "'%SystemDrive%\Windows\system32\cmd.exe' /c cscript.exe /b %SystemDrive%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >nul
schtasks /create /tn "Hybrid2" /tr "%SystemDrive%\Trial\IR7\IR7.bat" /sc onlogon /rl highest /f >nul
shutdown.exe /r /t 0
ping -n 5 127.0.0.1 >nul
GOTO :Exit

:UninstallIR7
CLS
schtasks /query | FINDSTR /I "IR7" >NUL 
IF %ERRORLEVEL%==0 (
echo.
) ELSE ( echo IR7 is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Uninstalling IR7...
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete
) ELSE (
GOTO IR7FolderDelete
)

:TrialFolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:IR7FolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial\IR7
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:StatusIR7
mode con: cols=64 lines=8
echo Retrieving status...
echo.
echo.
echo.
echo.
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Status"
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Remaining"
echo.
schtasks /query /tn "IR7" 2>NUL | FINDSTR "IR7"
IF ERRORLEVEL 1 echo IR7 is not installed...
ping -n 5 127.0.0.1 >nul
GOTO Start

:InstructionsIR7
title IR7 Instructions
mode con: cols=110 lines=20
echo.
echo  IR7 Instructions
echo.
echo  1. Select Install then your computer will automatically restart into Recovery Environment (RE)
echo.
echo  2. Enter your keyboard language and login information
echo.
echo  3. Click command prompt and type "C:IR7" (without quotes) then press enter
echo.
echo  4. Ignore any non-genuine messages while windows is restarting
echo.
echo  5. Desktop watermark will disappear momentarily
echo.
echo  * If rearms do not reset try typing D:IR7, E:IR7, F:IR7, G:IR7, H:IR7 or I:IR7 in command prompt at step 3
echo.
echo  * If IR7 doesn't boot into (RE) restart your computer and press the F8 function key when BIOS screen flashes
echo.
echo  * Then choose the option to repair computer and start over at step 2
echo.
pause
goto start

:IORRT
setlocal enabledelayedexpansion
title IORRT
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF ERRORLEVEL 1 cls & echo IORRT supports Office 2013 only under Windows 7 & ping -n 5 127.0.0.1 >nul & goto mainmenu
set OfficeArchType=
if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchIR7
goto:WOWIR7
:WOWIR7
2>nul REG QUERY HKLM\SOFTWARE\Microsoft\Office\15.0\Common | find /i "InstallRoot" 1>nul
IF ERRORLEVEL 1 Set OfficeArchType=WOW && Goto:EndArchIR7
Set OfficeArchType=64
:EndArchIR7
if %OfficeArchType%==WOW (
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
Goto:FoundPath
)
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
:FoundPath
1>nul 2>nul net start osppsvc
cscript "%InstallRoot%"ospp.vbs /dstatus |FINDSTR /i "KMS_Client" >NUL
if %errorlevel% EQU 1 ( cls & echo No office 2013 VL detected... & ping -n 5 127.0.0.1 >nul & goto mainmenu )

:IORRT1
mode con: cols=45 lines=10
CLS
echo.
echo.  
echo.    InfiniteOfficeRestoreRearmTask (IORRT) 
echo.    
echo.               A. Install
echo.               B. Uninstall
echo.               C. Status
echo.               D. Rearm Wizard
echo.               E. Exit
echo.
  
:CHOOSEACTION1
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIORRT
if /i "%userinp%"=="B" goto UninstallIORRT
if /i "%userinp%"=="C" goto StatusIORRT
if /i "%userinp%"=="D" goto MAINMENU
if /i "%userinp%"=="E" goto Exit
GOTO IORRT1

:InstallIORRT
CLS
title IORRT
mode con: cols=45 lines=11
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF %ERRORLEVEL% NEQ 0 (
echo.
) ELSE (
echo IORRT is already installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Installing IORRT...
echo.
mkdir "%SystemDrive%\Check"
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Check\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Check\Backup\Registry" >NUL
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
if errorlevel==0 goto Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
cd /d "%InstallRoot%"
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo No Rearms Detected...
set msg=No rearms detected
call :speak "No rearms detected"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
:Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder2
) ELSE (
GOTO IR72
)

:TrialFolder2
md %SystemDrive%\Trial >nul 2>&1
GOTO IR72

:IR72
md %SystemDrive%\Trial\IORRT >nul 2>&1
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Trial\IORRT\Backup\Registry"
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
SET file=%SystemDrive%\Trial\IORRT\IORRT.bat
IF EXIST %file% attrib -h %file% 
echo @echo off >%file%
echo net stop osppsvc >>%file%
echo xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >>%file%
echo REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >>%file%
echo net start osppsvc >>%file%
echo IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" ( >>%file%
echo "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) >>%file%
echo schtasks /delete /tn "IORRT" /f >>%file%
echo schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >>%file%
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
attrib +h "%SystemDrive%\Trial\IORRT"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "Hybrid" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc onstart /ru "" >NUL
schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >NUL
echo.
title IORRT
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Installation Successful...
set msg=Installation Successful
call :speak "Installation Successful"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:UninstallIORRT
schtasks /query | FINDSTR /I "IORRT" >NUL
IF '%ERRORLEVEL%' EQU '0' (
echo.
) ELSE (
mode con: cols=45 lines=10
title IORRT
echo IORRT is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Uninstalling IORRT...
echo.
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete2
) ELSE (
GOTO IORRTFolderDelete
)

:TrialFolderDelete2
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:IORRTFolderDelete
SET file=%SystemDrive%\Trial\IORRT
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:Pass2
schtasks /delete /tn "Hybrid" /f >NUL
schtasks /delete /tn "IORRT" /f >NUL
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status" 
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Successfully Uninstalled...
set msg=Successfully Uninstalled
call :speak "Successfully Uninstalled"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:StatusIORRT
mode con: cols=64 lines=6
title IORRT
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
schtasks /query | FINDSTR /I "IORRT"
IF ERRORLEVEL 1 echo IORRT is not installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
endlocal

:Details
CLS
title Details
mode con: cols=109 lines=20
echo.
echo  Rearm Wizard
echo.
echo  IR7 - The Official Windows 7 Rearm Solution
echo.
echo  * IR7 allows you to use windows 7 and servers without patches, cracks, loaders, activators or leaked keys
echo  * IR7 keeps you in trial and in trial you are always genuine 
echo  * IR7 works with all updates and service packs
echo  * IR7 supports all Windows 7/R2, languages, versions, editions, 32/64bit
echo  * IR7 does not modify any system files and never causes restart problems
echo  * IR7 task runs silently while Hybrid2 task runs at boot to rearm and restore theme automatically if needed
echo.
echo  IORRT - The Official Office 2013 VL Rearm Solution
echo.
echo  * IORRT allows you to use office 2013 VL without patches, cracks, activators or leaked keys
echo  * IORRT works with all updates and service packs
echo  * IORRT gives A.I. voice confirmation
echo  * IORRT and Hybrid tasks both run silently
echo.
pause
GOTO mainmenu

:Links
CLS
title ISO/URL Links
mode con: cols=36 lines=12
echo.
echo  ISO/URL Links
echo.
echo. A. Rearm Wizard Development Thread
echo. B. Windows 7 Ultimate x86/x64 ISO 
echo. C. Windows 7 USB/DVD Download tool
echo. D. Virtual CloneDrive
echo. E. Office 2013 VL (x86) ISO
echo. F. Office 2013 VL (x64) ISO
echo. G. Rearm Wizard
echo.
set /p deli=    ^   Make your selection: 
set deli=%deli:~0,1%
if /i "%deli%"=="A" start http://forums.mydigitallife.net/threads/43861
if /i "%deli%"=="B" start http://forums.mydigitallife.net/threads/27069
if /i "%deli%"=="C" start http://images2.store.microsoft.com/prod/clustera/framework/w7udt/1.0/en-us/Windows7-USB-DVD-tool.exe
if /i "%deli%"=="D" start http://static.slysoft.com/SetupVirtualCloneDrive.exe
if /i "%deli%"=="E" start magnet:?xt=urn:btih:91641B6FC20521D6A5B86B1000140F03E556C175
if /i "%deli%"=="F" start magnet:?xt=urn:btih:FB03E471B7F46AE03C4C14F42BEFE8063A7283CB
if /i "%deli%"=="G" goto mainmenu
goto Links

:ISO
title ISO Installation Basics
mode con: cols=111 lines=17
echo.
echo  ISO Installation Basics
echo.
echo  Use the Windows 7 USB/DVD download tool to burn Windows 7 ISO
echo.
echo  1. Insert your USB device or DVD
echo  2. Open the Windows 7 USB/DVD download tool then choose the Windows 7 ISO file you wish to install
echo  3. Choose the media type such as your USB or DVD
echo  4. Begin coyping and wait for Windows 7 to be burned to USB or DVD
echo  5. Then you can upgrade or clean install from inside Windows or clean install from boot
echo  6. You can upgrade from Vista, but if you have XP a clean install will be necessary
echo  7. When installing Windows 7 just bypass entering any key then uncheck the activate online box and click next
echo  8. Install with updates and internet on
echo.
echo  Use Virtual CloneDrive to mount the Office 2013 VL ISO then install from the virtual drive on your computer
echo.
pause
goto mainmenu

:Color
title Color Customization
set bkg=
set txtclr=
mode con: cols=21 lines=22
CLS
echo.
echo  Color Customization
echo.
echo  0 = Black
echo  1 = Blue
echo  2 = Green
echo  3 = Aqua
echo  4 = Red
echo  5 = Purple
echo  6 = Yellow
echo  7 = White
echo  8 = Gray
echo  9 = Light Blue
echo  A = Light Green
echo  B = Light Aqua
echo  C = Light Red
echo  D = Light Purple
echo  E = Light Yellow
echo  F = Bright White
echo  G = Rearm Wizard
echo.
set /p txtclr=    ^   Text Color: 
if /i "%txtclr%"=="G" goto :mainmenu
set /p bkg=    ^   Background Color: 
if /i "%bkg%"=="G" goto :mainmenu
set bkg=%bkg:~0,1%
set txtclr=%txtclr:~0,1%
set bkg=%bkg%
set txtclr=%txtclr%
@COLOR %bkg%%txtclr%
mode con: cols=48 lines=11
reg add "HKCU\Software\Microsoft\Command Processor"  /t  REG_DWORD /v DefaultColor /d 0x%bkg%%txtclr% /f >NUL
IF '%ERRORLEVEL%' EQU '0' ( goto color
) ELSE (
goto mainmenu
)

:Exit
ENDLOCAL
exit
    When IR7 is opened and uninstall option is used it deletes fine as does IORRT folder delete work fine and they both have files inside them

    This is relating to the reinstall/uninstall yes/no msg box that pops up at day 180 to offer easier reinstall or uninstall without having to open IR7 and uninstall

    I was thinking that this uninstall wasn't working cause it would in essence be deleting itself before all the cmds had run!?

    So my concept was to have this uninstall create a file in %sd% that would uninstall either the IR7 folder or both Trial and IR7 folder from afar and then delete itself

    Thanks

    :shisha:
     
  5. MasterDisaster

    MasterDisaster MDL Expert

    Aug 29, 2009
    1,255
    675
    60
    #305 MasterDisaster, Oct 7, 2013
    Last edited by a moderator: Apr 20, 2017
    You need to call it at the end after everything completes

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial\IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 >nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  6. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #306 timesurfer, Oct 7, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    It deletes the tasks but not Trial and or IR7 folders yet :suicide:

    :worthy:
     
  7. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #307 timesurfer, Oct 7, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    How bout this?

    1. IR72.bat resets reg setting, deletes tasks then creates delete.bat then IR72.bat closes

    2. Delete.bat sets Trial or IR7 folder to be deleted, deletes Trial or IR7 folder then gives "
    IR7 has been successfully uninstalled... " message then deletes itself

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off ^>^>%SystemDrive%\delete.bat >%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.batIR7 has been successfully uninstalled... 
echo echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 >nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off ^>^>%SystemDrive%\delete.bat >%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial\IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 >nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
:exit
exit
     
  8. MasterDisaster

    MasterDisaster MDL Expert

    Aug 29, 2009
    1,255
    675
    60
    #308 MasterDisaster, Oct 8, 2013
    Last edited by a moderator: Apr 20, 2017
    I have made some changes to the code. Just check if it is the expected IR72.bat

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo @echo off>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query ^| FINDSTR /I "IORRT" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%%==1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f ^>NUL 2^>^&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f ^>NUL 2^>^&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%SystemDrive%\Trial\IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF EXIST %%file%% attrib -h %%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f ^>NUL 2^>^&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f ^>NUL 2^>^&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%%==0 ( echo IR7 has been successfully uninstalled... >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo ping -n 5 127.0.0.1 ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo cd %SystemDrive%^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rmdir /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  9. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #309 timesurfer, Oct 8, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    It still doesn't delete %sd%\Trial\IR7 :(

    Code:
    :UninstallIR7
@echo off
CLS 
echo Uninstalling IR7...
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF %ERRORLEVEL%==1 ( 
GOTO TrialFolderDelete 
) ELSE ( 
GOTO IR7FolderDelete 
) 
:TrialFolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f 
SET file=C:\Trial 
IF EXIST %file% attrib -h %file% 
schtasks /delete /tn "IR7" /f >NUL 2>&1 
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 
IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... 
) 
ping -n 5 127.0.0.1 >nul 
GOTO :Exit 
:IR7FolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f 
SET file=C:\Trial\IR7 
IF EXIST %file% attrib -h %file% 
schtasks /delete /tn "IR7" /f >NUL 2>&1 
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 
IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... 
) 
ping -n 5 127.0.0.1 >nul 
GOTO :Exit 
:Exit 
echo cd C:>>C:\delete.bat 
echo rmdir /S /Q %file% >>C:\delete.bat 
echo rmdir /S /Q %file% >>C:\delete.bat 
echo del /F /Q C:\delete.bat >>C:\delete.bat 
call C:\delete.bat
     
  10. MasterDisaster

    MasterDisaster MDL Expert

    Aug 29, 2009
    1,255
    675
    60
    #310 MasterDisaster, Oct 8, 2013
    Are you running it as Administrator? I am on Windows 8 and the above script is working fine.
     
    Stop hovering to collapse... Click to collapse... Hover to expand... Click to expand...
  11. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #311 timesurfer, Oct 8, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    Yes MD! I run both files as admin and no go :( IR7 folder is still there on W7

    It says operation completed successfully which I'll need to run silent and but will need it to say IR7 has been successfully uninstalled then ping for 5...

    Are you sure this is not worthy of looking at as an way to do it?

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off ^>^>%SystemDrive%\delete.bat >%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.batIR7 has been successfully uninstalled... 
echo echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 >nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off ^>^>%SystemDrive%\delete.bat >%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial\IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ) ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF %ERRORLEVEL%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 >nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
:exit
exit
    I believe it has the design I'm looking for and with content to display successful uninstallation, I just need help with the write part for IR72.bat and delete.bat

    This IR72.bat uninstall and a task to run %systemdrive%\Trial\IR7\IR7.bat silent and I'm done with Rearm Wizard Phase 2

    I'm so excited :eek:

    Thanks
     
  12. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #312 timesurfer, Oct 9, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    This is close I think :suicide:...lol

    At least IR72.bat creates delete.bat now :eek:...lol

    And delete.bat deletes itself ;)

    Tasks still delete :)

    But Trial and Trial\IR7 still do not delete :(

    Code:
    @echo off
cls
mode con: cols=50 lines=12
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
setlocal ENABLEEXTENSIONS
set KEY_NAME=HKCU\Software\Microsoft\Command Processor
set VALUE_NAME=DefaultColor
for /F "usebackq tokens=2 delims=x" %%A IN (`reg query "%KEY_NAME%" /v "%VALUE_NAME%" 2^>nul ^| find "%VALUE_NAME%"`) do (
  IF /I %%A EQU 0x0 (goto color) ELSE (Color %%A)
)

:mainmenu
set userinp=
title Rearm Wizard
mode con: cols=50 lines=12
cls
echo.
echo.  
echo.              ---- Rearm Wizard ----
echo.    
echo.          A. IR7 (Windows 7 and Servers)
echo.          B. IORRT (Office 2013 VL)
echo.          C. Details
echo.          D. ISO/URL Links
echo.          E. ISO Installation Basics
echo.          F. Color Customization
echo.          G. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto IR7
if /i "%userinp%"=="B" goto IORRT
if /i "%userinp%"=="C" goto Details
if /i "%userinp%"=="D" goto Links
if /i "%userinp%"=="E" goto ISO
if /i "%userinp%"=="F" goto Color
if /i "%userinp%"=="G" goto Exit
GOTO :mainmenu

:IR7
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF %ERRORLEVEL% NEQ 0 CLS & echo Supports only windows 7 and server 2008 R2 & ping -n 5 127.0.0.1 >nul & goto mainmenu 
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A

:start
title IR7
mode con: cols=45 lines=11
cls
echo.
echo.
echo.             InfiniteRearm7 (IR7)
echo.                   
echo.                A. Install
echo.                B. Uninstall
echo.                C. Status                
echo.                D. Instructions
echo.                E. Rearm Wizard
echo.                F. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIR7
if /i "%userinp%"=="B" goto UninstallIR7
if /i "%userinp%"=="C" goto StatusIR7
if /i "%userinp%"=="D" goto InstructionsIR7
if /i "%userinp%"=="E" goto MAINMENU
if /i "%userinp%"=="F" goto Exit
GOTO start

:InstallIR7
cls
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
echo.
) ELSE (
echo IR7 is already installed...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Installing IR7...
echo.
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f >NUL
echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") >key.vbs
echo Set keys = CreateObject ("Scripting.Dictionary") >>key.vbs
echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" >>key.vbs
echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" >>key.vbs
echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" >>key.vbs
echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" >>key.vbs
echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" >>key.vbs
echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" >>key.vbs
echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" >>key.vbs
echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" >>key.vbs
echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" >>key.vbs
echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" >>key.vbs
echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" >>key.vbs
echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" >>key.vbs
echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" >>key.vbs
echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" >>key.vbs
echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" >>key.vbs
echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" >>key.vbs
echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" >>key.vbs
echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" >>key.vbs
echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" >>key.vbs
echo keys.Add "ServerHomePremium",              "YQXDR-G2MBV-63VW2-JX8J2-FVTVG" >>key.vbs
echo keys.Add "ServerHomeStandard",             "BTMWJ-8KHD9-B9BX8-J7JQ9-7M6J2" >>key.vbs
echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" >>key.vbs
echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" >>key.vbs
echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" >>key.vbs
echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" >>key.vbs
echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" >>key.vbs
echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" >>key.vbs
echo keys.Add "ServerSolution",                 "VVWPG-XFYWQ-4HBR7-DYGCW-TF7XW" >>key.vbs
echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" >>key.vbs
echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" >>key.vbs
echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" >>key.vbs
echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" >>key.vbs
echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" >>key.vbs
echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" >>key.vbs
echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" >>key.vbs
echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" >>key.vbs
echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" >>key.vbs
echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" >>key.vbs
echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" >>key.vbs
echo if keys.Exists(edition) then >>key.vbs
echo WScript.Echo keys.Item(edition) >>key.vbs
echo End If >>key.vbs
FOR /F %%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%A
del key.vbs
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
SET file=%sd%\IR7.bat
echo @echo off>>%file% 
echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^>^>drive.vbs>>%file% 
echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^>^>drive.vbs>>%file% 
echo echo For Each objItem in colItems^>^>drive.vbs>>%file% 
echo echo If Hex(%sn%) = Hex(objItem.SerialNumber) then^>^>drive.vbs>>%file% 
echo echo Wscript.Echo objItem.DriveLetter^>^>drive.vbs>>%file% 
echo echo End If ^>^>drive.vbs>>%file% 
echo echo Next ^>^>drive.vbs>>%file% 
echo for /f %%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%A>>%file% 
echo :loop>>%file%
echo if "%%dl:~-1%%"==" " set "dl=%%dl:~0,-1%%" ^& goto :loop>>%file%
echo del drive.vbs>>%file% 
echo reg load HKLM\MY_SYSTEM "%%dl%%\Windows\System32\config\system" ^>NUL >>%file% 
echo reg delete HKLM\MY_SYSTEM\WPA /f ^>NUL >>%file% 
echo reg unload HKLM\MY_SYSTEM ^>NUL >>%file%
echo echo cscript /b slmgr.vbs /ipk %PIDKEY%^>%%dl%%\installkey.bat >>%file%
echo echo slmgr.vbs /dlv ^>^>%%dl%%\installkey.bat >>%file%
echo echo del "C:\installkey.bat" ^>^>%%dl%%\installkey.bat >>%file%
echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^>%%dl%%\key.vbs >>%file%
echo echo @echo off ^>%%dl%%\launch.bat >>%file%
echo echo wscript.exe "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "%sd%\IR7.bat" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\launch.bat" ^>^>%%dl%%\launch.bat >>%file%
echo reg load HKLM\MY_SOFTWARE "%%dl%%\Windows\System32\config\software" ^>NUL >>%file% 
echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^>NUL >>%file%
echo reg unload HKLM\MY_SOFTWARE >>%file%
echo wpeutil reboot >>%file%
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder
) ELSE (
GOTO Check
)

:TrialFolder
md %SystemDrive%\Trial >nul 2>&1
GOTO Check

:Check
md %SystemDrive%\Trial\IR7 >nul 2>&1
echo @echo off >%SystemDrive%\Trial\IR7\IR7.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR7.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR7.bat
echo SETX IR7backup "%%SystemDrive%%\Trial\IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo set KEY_NAME=HKCU\Software\Microsoft\Windows\CurrentVersion\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo set VALUE_NAME=CurrentTheme>>%SystemDrive%\Trial\IR7\IR7.bat
echo set spp=SoftwareLicensingProduct>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /F "usebackq tokens=3*" %%%%A IN (`reg query "%%KEY_NAME%%" /v "%%VALUE_NAME%%" 2^^^>nul ^^^| find "%%VALUE_NAME%%"`) do IF ~%%%%B==~ (SET themefile=%%%%A) ELSE (SET themefile=%%%%A %%%%B)>>%SystemDrive%\Trial\IR7\IR7.bat
echo for %%%%F in ("%%themefile%%") do set theme=%%%%~nF>>%SystemDrive%\Trial\IR7\IR7.bat

echo set wppath=%%appdata%%\Microsoft\Windows\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /f "tokens=2,3,4,5,6,7 delims= " %%%%a in ('wmic os get caption') do set ver=%%%%a %%%%b %%%%c %%%%d %%%%e %%%%f >>%SystemDrive%\Trial\IR7\IR7.bat
echo :loopV >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver:~-1%%"==" " set "ver=%%ver:~0,-1%%" ^& goto :loopV >>%SystemDrive%\Trial\IR7\IR7.bat


echo wmic path %%spp%% get LicenseStatus /format:list 2^>nul ^| findstr /i 5 ^>nul 2^>^&1 >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==0 call IR72.bat ^& goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==1 goto :Backup >>%SystemDrive%\Trial\IR7\IR7.bat



echo :Backup>>%SystemDrive%\Trial\IR7\IR7.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :Exit ) >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :BackupHB ) >>%SystemDrive%\Trial\IR7\IR7.bat


echo if exist "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" del /s /q "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" ^>nul>>%SystemDrive%\Trial\IR7\IR7.bat
echo echo F ^| xcopy "%%themefile%%" /s /q "%%systemdrive%%\Trial\IR7" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo ren "%%systemdrive%%\Trial\IR7\%%theme%%.theme" "IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo :BackupHB >>%SystemDrive%\Trial\IR7\IR7.bat
echo xcopy "%%wppath%%\TranscodedWallpaper.jpg" /s /q "%%systemdrive%%\Trial\IR7" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR7.bat
echo exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo @echo off >%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=42 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "usebackq tokens=2 delims==" %%%%n in (`"%%SystemRoot%%\System32\wbem\WMIC.exe" /namespace:\\root\cimv2 path SoftwareLicensingService get RemainingWindowsReArmCount /format:list`) do set r=%%%%n >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%r%% == 0 goto :Messagebox >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Rearming and Restoring Theme/Wallpaper...>>%SystemDrive%\Trial\IR7\IR72.bat
echo cscript.exe /b %%windir%%\system32\slmgr.vbs /rearm >>%SystemDrive%\Trial\IR7\IR72.bat
echo net stop sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo net start sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query ^| FINDSTR /i "IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%errorlevel%%==0 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%systemdrive%%\Windows\system32\cmd.exe' /c cscript.exe /b %%SystemDrive%%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat 
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :RestoreS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :RestoreHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo F ^| xcopy "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" /s /q "%%windir%%\resources\Themes" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Themes" /t REG_SZ /v CurrentTheme /d "%%windir%%\resources\Themes\IR7Bkup.theme" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreS >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%windir%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo xcopy "%%systemdrive%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :Messagebox>>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=41 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing reinstall/uninstall options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat 
echo msgbox.vbs "IR7" "Your 180 day free trial has ended, do you wish to install IR7 again?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& call :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat



echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF %%ERRORLEVEL%%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 ^>nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial\IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%file%% attrib -h %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%file%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF %%ERRORLEVEL%%==0 ( echo IR7 has been successfully uninstalled... ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 ^>nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat



echo :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Installing IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") ^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Set keys = CreateObject ("Scripting.Dictionary") ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomePremium",              "4BWDV-9MKGX-V9QJ4-YWFWR-P6974" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomeStandard",             "MCQYD-2TJYQ-JP7KR-7GYYF-YGPXQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolution",                 "Y7GVM-YFQQW-HV8HW-GRW6D-YJ84M" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if keys.Exists(edition) then ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo WScript.Echo keys.Item(edition) ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo End If ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo FOR /F %%%%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat 
echo del key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%%%A>>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where DriveLetter="%%SystemDrive%%" get SerialNumber /format:list"') do set sn=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%%sd%%\IR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo For Each objItem in colItems^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo If Hex(%%sn%%) = Hex(objItem.SerialNumber) then^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Wscript.Echo objItem.DriveLetter^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo End If ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Next ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo for /f %%%%%%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%%%%%A^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if "%%%%dl:~-1%%%%"==" " set "dl=%%%%dl:~0,-1%%%%" ^^^& goto :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SYSTEM "%%%%dl%%%%\Windows\System32\config\system" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg delete HKLM\MY_SYSTEM\WPA /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg unload HKLM\MY_SYSTEM ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo cscript /b slmgr.vbs /ipk %%PIDKEY%%^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo slmgr.vbs /dlv ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat

echo if "%%ver%%" == "Windows 7 Starter" ( goto :WriteS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :WriteHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\IR7Bkup.theme" /s /q "%%%%%%%%windir%%%%%%%%\resources\Themes" /Y /V ^^^^^^^>null^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme"^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\installkey.bat" ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^^^>%%%%dl%%%%\key.vbs ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo @echo off ^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo wscript.exe "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "%%sd%%\IR7.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\launch.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SOFTWARE "%%%%dl%%%%\Windows\System32\config\software" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg unload HKLM\MY_SOFTWARE ^>^>%%file%%>> %SystemDrive%\Trial\IR7\IR72.bat
echo echo wpeutil reboot ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo reagentc /boottore ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Windows is restarting now... >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%SystemDrive%%\Windows\system32\cmd.exe' /c cscript.exe /b C:\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat 
echo shutdown.exe /r /t 0 >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR72.bat
echo exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :WriteS >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%%%%%%%windir%%%%%%%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat  
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo :WriteHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat

cls & echo Windows is restarting now...
attrib +h "%SystemDrive%\Trial\IR7"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "IR7" /tr "'%SystemDrive%\Windows\system32\cmd.exe' /c cscript.exe /b %SystemDrive%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >nul
schtasks /create /tn "Hybrid2" /tr "%SystemDrive%\Trial\IR7\IR7.bat" /sc onlogon /rl highest /f >nul

ping -n 5 127.0.0.1 >nul
GOTO :Exit

:UninstallIR7
CLS
schtasks /query | FINDSTR /I "IR7" >NUL 
IF %ERRORLEVEL%==0 (
echo.
) ELSE ( echo IR7 is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Uninstalling IR7...
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete
) ELSE (
GOTO IR7FolderDelete
)

:TrialFolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:IR7FolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial\IR7
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:StatusIR7
mode con: cols=64 lines=8
echo Retrieving status...
echo.
echo.
echo.
echo.
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Status"
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Remaining"
echo.
schtasks /query /tn "IR7" 2>NUL | FINDSTR "IR7"
IF ERRORLEVEL 1 echo IR7 is not installed...
ping -n 5 127.0.0.1 >nul
GOTO Start

:InstructionsIR7
title IR7 Instructions
mode con: cols=110 lines=20
echo.
echo  IR7 Instructions
echo.
echo  1. Select Install then your computer will automatically restart into Recovery Environment (RE)
echo.
echo  2. Enter your keyboard language and login information
echo.
echo  3. Click command prompt and type "C:IR7" (without quotes) then press enter
echo.
echo  4. Ignore any non-genuine messages while windows is restarting
echo.
echo  5. Desktop watermark will disappear momentarily
echo.
echo  * If rearms do not reset try typing D:IR7, E:IR7, F:IR7, G:IR7, H:IR7 or I:IR7 in command prompt at step 3
echo.
echo  * If IR7 doesn't boot into (RE) restart your computer and press the F8 function key when BIOS screen flashes
echo.
echo  * Then choose the option to repair computer and start over at step 2
echo.
pause
goto start

:IORRT
setlocal enabledelayedexpansion
title IORRT
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF ERRORLEVEL 1 cls & echo IORRT supports Office 2013 only under Windows 7 & ping -n 5 127.0.0.1 >nul & goto mainmenu
set OfficeArchType=
if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchIR7
goto:WOWIR7
:WOWIR7
2>nul REG QUERY HKLM\SOFTWARE\Microsoft\Office\15.0\Common | find /i "InstallRoot" 1>nul
IF ERRORLEVEL 1 Set OfficeArchType=WOW && Goto:EndArchIR7
Set OfficeArchType=64
:EndArchIR7
if %OfficeArchType%==WOW (
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
Goto:FoundPath
)
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
:FoundPath
1>nul 2>nul net start osppsvc
cscript "%InstallRoot%"ospp.vbs /dstatus |FINDSTR /i "KMS_Client" >NUL
if %errorlevel% EQU 1 ( cls & echo No office 2013 VL detected... & ping -n 5 127.0.0.1 >nul & goto mainmenu )

:IORRT1
mode con: cols=45 lines=10
CLS
echo.
echo.  
echo.    InfiniteOfficeRestoreRearmTask (IORRT) 
echo.    
echo.               A. Install
echo.               B. Uninstall
echo.               C. Status
echo.               D. Rearm Wizard
echo.               E. Exit
echo.
  
:CHOOSEACTION1
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIORRT
if /i "%userinp%"=="B" goto UninstallIORRT
if /i "%userinp%"=="C" goto StatusIORRT
if /i "%userinp%"=="D" goto MAINMENU
if /i "%userinp%"=="E" goto Exit
GOTO IORRT1

:InstallIORRT
CLS
title IORRT
mode con: cols=45 lines=11
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF %ERRORLEVEL% NEQ 0 (
echo.
) ELSE (
echo IORRT is already installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Installing IORRT...
echo.
mkdir "%SystemDrive%\Check"
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Check\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Check\Backup\Registry" >NUL
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
if errorlevel==0 goto Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
cd /d "%InstallRoot%"
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo No Rearms Detected...
set msg=No rearms detected
call :speak "No rearms detected"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
:Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder2
) ELSE (
GOTO IR72
)

:TrialFolder2
md %SystemDrive%\Trial >nul 2>&1
GOTO IR72

:IR72
md %SystemDrive%\Trial\IORRT >nul 2>&1
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Trial\IORRT\Backup\Registry"
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
SET file=%SystemDrive%\Trial\IORRT\IORRT.bat
IF EXIST %file% attrib -h %file% 
echo @echo off >%file%
echo net stop osppsvc >>%file%
echo xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >>%file%
echo REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >>%file%
echo net start osppsvc >>%file%
echo IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" ( >>%file%
echo "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) >>%file%
echo schtasks /delete /tn "IORRT" /f >>%file%
echo schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >>%file%
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
attrib +h "%SystemDrive%\Trial\IORRT"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "Hybrid" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc onstart /ru "" >NUL
schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >NUL
echo.
title IORRT
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Installation Successful...
set msg=Installation Successful
call :speak "Installation Successful"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:UninstallIORRT
schtasks /query | FINDSTR /I "IORRT" >NUL
IF '%ERRORLEVEL%' EQU '0' (
echo.
) ELSE (
mode con: cols=45 lines=10
title IORRT
echo IORRT is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Uninstalling IORRT...
echo.
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete2
) ELSE (
GOTO IORRTFolderDelete
)

:TrialFolderDelete2
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:IORRTFolderDelete
SET file=%SystemDrive%\Trial\IORRT
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:Pass2
schtasks /delete /tn "Hybrid" /f >NUL
schtasks /delete /tn "IORRT" /f >NUL
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status" 
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Successfully Uninstalled...
set msg=Successfully Uninstalled
call :speak "Successfully Uninstalled"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:StatusIORRT
mode con: cols=64 lines=6
title IORRT
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
schtasks /query | FINDSTR /I "IORRT"
IF ERRORLEVEL 1 echo IORRT is not installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
endlocal

:Details
CLS
title Details
mode con: cols=107 lines=20
echo.
echo  Rearm Wizard
echo.
echo  IR7 - The Official Windows 7 Rearm Solution
echo.
echo  * IR7 allows you to use windows 7 and servers without patches, cracks, loaders, activators or leaked keys
echo  * IR7 keeps you in trial and in trial you are always genuine 
echo  * IR7 works with all updates and service packs
echo  * IR7 supports all Windows 7/R2, languages, versions, editions, 32/64bit
echo  * IR7 does not modify any system files and never causes restart problems
echo  * IR7 and Hybrid2 tasks both run silently
echo.
echo  IORRT - The Official Office 2013 VL Rearm Solution
echo.
echo  * IORRT allows you to use office 2013 VL without patches, cracks, activators or leaked keys
echo  * IORRT works with all updates and service packs
echo  * IORRT gives A.I. voice confirmation
echo  * IORRT and Hybrid tasks both run silently
echo.
pause
GOTO mainmenu

:Links
CLS
title ISO/URL Links
mode con: cols=36 lines=12
echo.
echo  ISO/URL Links
echo.
echo. A. Rearm Wizard Development Thread
echo. B. Windows 7 Ultimate x86/x64 ISO 
echo. C. Windows 7 USB/DVD Download tool
echo. D. Virtual CloneDrive
echo. E. Office 2013 VL (x86) ISO
echo. F. Office 2013 VL (x64) ISO
echo. G. Rearm Wizard
echo.
set /p deli=    ^   Make your selection: 
set deli=%deli:~0,1%
if /i "%deli%"=="A" start http://forums.mydigitallife.net/threads/43861
if /i "%deli%"=="B" start http://forums.mydigitallife.net/threads/27069
if /i "%deli%"=="C" start http://images2.store.microsoft.com/prod/clustera/framework/w7udt/1.0/en-us/Windows7-USB-DVD-tool.exe
if /i "%deli%"=="D" start http://static.slysoft.com/SetupVirtualCloneDrive.exe
if /i "%deli%"=="E" start magnet:?xt=urn:btih:91641B6FC20521D6A5B86B1000140F03E556C175
if /i "%deli%"=="F" start magnet:?xt=urn:btih:FB03E471B7F46AE03C4C14F42BEFE8063A7283CB
if /i "%deli%"=="G" goto mainmenu
goto Links

:ISO
title ISO Installation Basics
mode con: cols=111 lines=17
echo.
echo  ISO Installation Basics
echo.
echo  Use the Windows 7 USB/DVD download tool to burn Windows 7 ISO
echo.
echo  1. Insert your USB device or DVD
echo  2. Open the Windows 7 USB/DVD download tool then choose the Windows 7 ISO file you wish to install
echo  3. Choose the media type such as your USB or DVD
echo  4. Begin coyping and wait for Windows 7 to be burned to USB or DVD
echo  5. Then you can upgrade or clean install from inside Windows or clean install from boot
echo  6. You can upgrade from Vista, but if you have XP a clean install will be necessary
echo  7. When installing Windows 7 just bypass entering any key then uncheck the activate online box and click next
echo  8. Install with updates and internet on
echo.
echo  Use Virtual CloneDrive to mount the Office 2013 VL ISO then install from the virtual drive on your computer
echo.
pause
goto mainmenu

:Color
title Color Customization
set bkg=
set txtclr=
mode con: cols=21 lines=22
CLS
echo.
echo  Color Customization
echo.
echo  0 = Black
echo  1 = Blue
echo  2 = Green
echo  3 = Aqua
echo  4 = Red
echo  5 = Purple
echo  6 = Yellow
echo  7 = White
echo  8 = Gray
echo  9 = Light Blue
echo  A = Light Green
echo  B = Light Aqua
echo  C = Light Red
echo  D = Light Purple
echo  E = Light Yellow
echo  F = Bright White
echo  G = Rearm Wizard
echo.
set /p txtclr=    ^   Text Color: 
if /i "%txtclr%"=="G" goto :mainmenu
set /p bkg=    ^   Background Color: 
if /i "%bkg%"=="G" goto :mainmenu
set bkg=%bkg:~0,1%
set txtclr=%txtclr:~0,1%
set bkg=%bkg%
set txtclr=%txtclr%
@COLOR %bkg%%txtclr%
mode con: cols=48 lines=11
reg add "HKCU\Software\Microsoft\Command Processor"  /t  REG_DWORD /v DefaultColor /d 0x%bkg%%txtclr% /f >NUL
IF '%ERRORLEVEL%' EQU '0' ( goto color
) ELSE (
goto mainmenu
)

:Exit
ENDLOCAL
exit
    Note: The reagentc /boottore >NUL and shutdown.exe /r /t 0 cmds have been removed for testing
     
  13. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #313 timesurfer, Oct 10, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    This

    Code:
    @echo off
cls
mode con: cols=50 lines=12
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
setlocal ENABLEEXTENSIONS
set KEY_NAME=HKCU\Software\Microsoft\Command Processor
set VALUE_NAME=DefaultColor
for /F "usebackq tokens=2 delims=x" %%A IN (`reg query "%KEY_NAME%" /v "%VALUE_NAME%" 2^>nul ^| find "%VALUE_NAME%"`) do (
  IF /I %%A EQU 0x0 (goto color) ELSE (Color %%A)
)

:mainmenu
set userinp=
title Rearm Wizard
mode con: cols=50 lines=12
cls
echo.
echo.  
echo.              ---- Rearm Wizard ----
echo.    
echo.          A. IR7 (Windows 7 and Servers)
echo.          B. IORRT (Office 2013 VL)
echo.          C. Details
echo.          D. ISO/URL Links
echo.          E. ISO Installation Basics
echo.          F. Color Customization
echo.          G. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto IR7
if /i "%userinp%"=="B" goto IORRT
if /i "%userinp%"=="C" goto Details
if /i "%userinp%"=="D" goto Links
if /i "%userinp%"=="E" goto ISO
if /i "%userinp%"=="F" goto Color
if /i "%userinp%"=="G" goto Exit
GOTO :mainmenu

:IR7
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF %ERRORLEVEL% NEQ 0 CLS & echo Supports only windows 7 and server 2008 R2 & ping -n 5 127.0.0.1 >nul & goto mainmenu 
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A

:start
title IR7
mode con: cols=45 lines=11
cls
echo.
echo.
echo.             InfiniteRearm7 (IR7)
echo.                   
echo.                A. Install
echo.                B. Uninstall
echo.                C. Status                
echo.                D. Instructions
echo.                E. Rearm Wizard
echo.                F. Exit
echo.
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIR7
if /i "%userinp%"=="B" goto UninstallIR7
if /i "%userinp%"=="C" goto StatusIR7
if /i "%userinp%"=="D" goto InstructionsIR7
if /i "%userinp%"=="E" goto MAINMENU
if /i "%userinp%"=="F" goto Exit
GOTO start

:InstallIR7
cls
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
echo.
) ELSE (
echo IR7 is already installed...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Installing IR7...
echo.
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f >NUL
echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") >key.vbs
echo Set keys = CreateObject ("Scripting.Dictionary") >>key.vbs
echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" >>key.vbs
echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" >>key.vbs
echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" >>key.vbs
echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" >>key.vbs
echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" >>key.vbs
echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" >>key.vbs
echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" >>key.vbs
echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" >>key.vbs
echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" >>key.vbs
echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" >>key.vbs
echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" >>key.vbs
echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" >>key.vbs
echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs
echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs
echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs
echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" >>key.vbs
echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" >>key.vbs
echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" >>key.vbs
echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" >>key.vbs
echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" >>key.vbs
echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" >>key.vbs
echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" >>key.vbs
echo keys.Add "ServerHomePremium",              "YQXDR-G2MBV-63VW2-JX8J2-FVTVG" >>key.vbs
echo keys.Add "ServerHomeStandard",             "BTMWJ-8KHD9-B9BX8-J7JQ9-7M6J2" >>key.vbs
echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" >>key.vbs
echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" >>key.vbs
echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" >>key.vbs
echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" >>key.vbs
echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" >>key.vbs
echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs
echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" >>key.vbs
echo keys.Add "ServerSolution",                 "VVWPG-XFYWQ-4HBR7-DYGCW-TF7XW" >>key.vbs
echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" >>key.vbs
echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs
echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs
echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs
echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" >>key.vbs
echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" >>key.vbs
echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" >>key.vbs
echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" >>key.vbs
echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" >>key.vbs
echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" >>key.vbs
echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" >>key.vbs
echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" >>key.vbs
echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" >>key.vbs
echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" >>key.vbs
echo if keys.Exists(edition) then >>key.vbs
echo WScript.Echo keys.Item(edition) >>key.vbs
echo End If >>key.vbs
FOR /F %%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%A
del key.vbs
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A
SET file=%sd%\IR7.bat
echo @echo off>>%file% 
echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^>^>drive.vbs>>%file% 
echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^>^>drive.vbs>>%file% 
echo echo For Each objItem in colItems^>^>drive.vbs>>%file% 
echo echo If Hex(%sn%) = Hex(objItem.SerialNumber) then^>^>drive.vbs>>%file% 
echo echo Wscript.Echo objItem.DriveLetter^>^>drive.vbs>>%file% 
echo echo End If ^>^>drive.vbs>>%file% 
echo echo Next ^>^>drive.vbs>>%file% 
echo for /f %%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%A>>%file% 
echo :loop>>%file%
echo if "%%dl:~-1%%"==" " set "dl=%%dl:~0,-1%%" ^& goto :loop>>%file%
echo del drive.vbs>>%file% 
echo reg load HKLM\MY_SYSTEM "%%dl%%\Windows\System32\config\system" ^>NUL >>%file% 
echo reg delete HKLM\MY_SYSTEM\WPA /f ^>NUL >>%file% 
echo reg unload HKLM\MY_SYSTEM ^>NUL >>%file%
echo echo cscript /b slmgr.vbs /ipk %PIDKEY%^>%%dl%%\installkey.bat >>%file%
echo echo slmgr.vbs /dlv ^>^>%%dl%%\installkey.bat >>%file%
echo echo del "C:\installkey.bat" ^>^>%%dl%%\installkey.bat >>%file%
echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^>%%dl%%\key.vbs >>%file%
echo echo @echo off ^>%%dl%%\launch.bat >>%file%
echo echo wscript.exe "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "%sd%\IR7.bat" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file%
echo echo del "C:\launch.bat" ^>^>%%dl%%\launch.bat >>%file%
echo reg load HKLM\MY_SOFTWARE "%%dl%%\Windows\System32\config\software" ^>NUL >>%file% 
echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^>NUL >>%file%
echo reg unload HKLM\MY_SOFTWARE >>%file%
echo wpeutil reboot >>%file%
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder
) ELSE (
GOTO Check
)

:TrialFolder
md %SystemDrive%\Trial >nul 2>&1
GOTO Check

:Check
md %SystemDrive%\Trial\IR7 >nul 2>&1
echo @echo off >%SystemDrive%\Trial\IR7\IR7.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR7.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR7.bat
echo SETX IR7backup "%%SystemDrive%%\Trial\IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo set KEY_NAME=HKCU\Software\Microsoft\Windows\CurrentVersion\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo set VALUE_NAME=CurrentTheme>>%SystemDrive%\Trial\IR7\IR7.bat
echo set spp=SoftwareLicensingProduct>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /F "usebackq tokens=3*" %%%%A IN (`reg query "%%KEY_NAME%%" /v "%%VALUE_NAME%%" 2^^^>nul ^^^| find "%%VALUE_NAME%%"`) do IF ~%%%%B==~ (SET themefile=%%%%A) ELSE (SET themefile=%%%%A %%%%B)>>%SystemDrive%\Trial\IR7\IR7.bat
echo for %%%%F in ("%%themefile%%") do set theme=%%%%~nF>>%SystemDrive%\Trial\IR7\IR7.bat

echo set wppath=%%appdata%%\Microsoft\Windows\Themes>>%SystemDrive%\Trial\IR7\IR7.bat
echo for /f "tokens=2,3,4,5,6,7 delims= " %%%%a in ('wmic os get caption') do set ver=%%%%a %%%%b %%%%c %%%%d %%%%e %%%%f >>%SystemDrive%\Trial\IR7\IR7.bat
echo :loopV >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver:~-1%%"==" " set "ver=%%ver:~0,-1%%" ^& goto :loopV >>%SystemDrive%\Trial\IR7\IR7.bat


echo wmic path %%spp%% get LicenseStatus /format:list 2^>nul ^| findstr /i 5 ^>nul 2^>^&1 >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==0 call IR72.bat ^& goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo if %%errorlevel%%==1 goto :Backup >>%SystemDrive%\Trial\IR7\IR7.bat



echo :Backup>>%SystemDrive%\Trial\IR7\IR7.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :Exit ) >>%SystemDrive%\Trial\IR7\IR7.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :BackupHB ) >>%SystemDrive%\Trial\IR7\IR7.bat


echo if exist "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" del /s /q "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" ^>nul>>%SystemDrive%\Trial\IR7\IR7.bat
echo echo F ^| xcopy "%%themefile%%" /s /q "%%systemdrive%%\Trial\IR7" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo ren "%%systemdrive%%\Trial\IR7\%%theme%%.theme" "IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo :BackupHB >>%SystemDrive%\Trial\IR7\IR7.bat
echo xcopy "%%wppath%%\TranscodedWallpaper.jpg" /s /q "%%systemdrive%%\Trial\IR7" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR7.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR7.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR7.bat
echo exit >>%SystemDrive%\Trial\IR7\IR7.bat

echo @echo off >%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=42 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo setlocal ENABLEDELAYEDEXPANSION >>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "usebackq tokens=2 delims==" %%%%n in (`"%%SystemRoot%%\System32\wbem\WMIC.exe" /namespace:\\root\cimv2 path SoftwareLicensingService get RemainingWindowsReArmCount /format:list`) do set r=%%%%n >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%r%% == 0 goto :Messagebox >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Rearming and Restoring Theme/Wallpaper...>>%SystemDrive%\Trial\IR7\IR72.bat
echo cscript.exe /b %%windir%%\system32\slmgr.vbs /rearm >>%SystemDrive%\Trial\IR7\IR72.bat
echo net stop sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo net start sppsvc ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query ^| FINDSTR /i "IR7" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo if %%errorlevel%%==0 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%systemdrive%%\Windows\system32\cmd.exe' /c cscript.exe /b %%SystemDrive%%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat 
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat


echo if "%%ver%%" == "Windows 7 Starter" ( goto :RestoreS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :RestoreHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo F ^| xcopy "%%systemdrive%%\Trial\IR7\IR7Bkup.theme" /s /q "%%windir%%\resources\Themes" /V /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme">>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Themes" /t REG_SZ /v CurrentTheme /d "%%windir%%\resources\Themes\IR7Bkup.theme" /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreS >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%windir%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat

echo :RestoreHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo xcopy "%%systemdrive%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& shutdown /l ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :Messagebox>>%SystemDrive%\Trial\IR7\IR72.bat
echo title IR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=41 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing reinstall/uninstall options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo set args=WScript.Arguments ^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^>^>msgbox.vbs >>%SystemDrive%\Trial\IR7\IR72.bat 
echo msgbox.vbs "IR7" "Your 180 day free trial has ended, do you wish to install IR7 again?" 4 >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 6 del /s /q msgbox.vbs ^>nul ^&^& call :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo IF %%ERRORLEVEL%% EQU 7 del /s /q msgbox.vbs ^>nul ^&^& call :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat



echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query | FINDSTR /I "IORRT" >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%%%file%%%% attrib -h %%%%file%%%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%%%file%%%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 ^>nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f >NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo mode con: cols=42 lines=2 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo title IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo SET file=%SystemDrive%\Trial\IR7 ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo IF EXIST %%%%file%%%% attrib -h %%%%file%%%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /S /Q %%%%file%%%% ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo ping -n 5 127.0.0.1 ^>nul ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\delete.bat ^>^>%SystemDrive%\delete.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo call %SystemDrive%\delete.bat>>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat



echo :ReinstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Installing IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") ^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Set keys = CreateObject ("Scripting.Dictionary") ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomePremium",              "4BWDV-9MKGX-V9QJ4-YWFWR-P6974" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHomeStandard",             "MCQYD-2TJYQ-JP7KR-7GYYF-YGPXQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolution",                 "Y7GVM-YFQQW-HV8HW-GRW6D-YJ84M" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if keys.Exists(edition) then ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo WScript.Echo keys.Item(edition) ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo End If ^>^>key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo FOR /F %%%%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat 
echo del key.vbs >>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%%%A>>%SystemDrive%\Trial\IR7\IR72.bat
echo for /f "tokens=2 delims==" %%%%A in ('"wmic volume where DriveLetter="%%SystemDrive%%" get SerialNumber /format:list"') do set sn=%%%%A >>%SystemDrive%\Trial\IR7\IR72.bat
echo SET file=%%sd%%\IR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo @echo off^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo For Each objItem in colItems^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo If Hex(%%sn%%) = Hex(objItem.SerialNumber) then^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Wscript.Echo objItem.DriveLetter^^^>^^^>drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo End If ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo Next ^^^>^^^>drive.vbs^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo for /f %%%%%%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%%%%%A^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo if "%%%%dl:~-1%%%%"==" " set "dl=%%%%dl:~0,-1%%%%" ^^^& goto :loop^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del drive.vbs^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SYSTEM "%%%%dl%%%%\Windows\System32\config\system" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg delete HKLM\MY_SYSTEM\WPA /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg unload HKLM\MY_SYSTEM ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo cscript /b slmgr.vbs /ipk %%PIDKEY%%^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo slmgr.vbs /dlv ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat

echo if "%%ver%%" == "Windows 7 Starter" ( goto :WriteS ) >>%SystemDrive%\Trial\IR7\IR72.bat
echo if "%%ver%%" == "Windows 7 Home Basic" ( goto :WriteHB ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\IR7Bkup.theme" /s /q "%%%%%%%%windir%%%%%%%%\resources\Themes" /Y /V ^^^^^^^>null^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo start rundll32.exe Shell32.dll,Control_RunDLL desk.cpl desk,@Themes /Action:OpenTheme /File:"C:\Windows\Resources\Themes\IR7Bkup.theme"^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\installkey.bat" ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^^^>%%%%dl%%%%\key.vbs ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo @echo off ^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo wscript.exe "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "%%sd%%\IR7.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\key.vbs" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo del "C:\launch.bat" ^^^>^^^>%%%%dl%%%%\launch.bat ^>^>%%file%%>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg load HKLM\MY_SOFTWARE "%%%%dl%%%%\Windows\System32\config\software" ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^^^>NUL ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo reg unload HKLM\MY_SOFTWARE ^>^>%%file%%>> %SystemDrive%\Trial\IR7\IR72.bat
echo echo wpeutil reboot ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo reagentc /boottore ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Windows is restarting now... >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "IR7" /tr "'%%SystemDrive%%\Windows\system32\cmd.exe' /c cscript.exe /b C:\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f ^>nul >>%SystemDrive%\Trial\IR7\IR72.bat 
echo shutdown.exe /r /t 0 >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
echo ENDLOCAL >>%SystemDrive%\Trial\IR7\IR72.bat
echo exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :WriteS >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%%%%%%%windir%%%%%%%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat  
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat
echo :WriteHB >>%SystemDrive%\Trial\IR7\IR72.bat
echo mode con: cols=28 lines=2 >>%SystemDrive%\Trial\IR7\IR72.bat
echo cls >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Preparing logoff options...>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo xcopy "%%%%%%%%systemdrive%%%%%%%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%%wppath%%" /Y ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%wppath%%\TranscodedWallpaper.jpg" /t "REG_SZ" ^^^^^^^>nul ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo echo set args=WScript.Arguments ^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^^^^^>^^^^^^^>msgbox.vbs ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 6 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& shutdown /l ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat 
echo echo echo IF %%%%%%%%ERRORLEVEL%%%%%%%% EQU 7 del /s /q msgbox.vbs ^^^^^^^>nul ^^^^^^^& call :Exit ^^^>^^^>%%%%dl%%%%\installkey.bat ^>^>%%file%% >>%SystemDrive%\Trial\IR7\IR72.bat
echo goto :ResumeIR7 >>%SystemDrive%\Trial\IR7\IR72.bat

cls & echo Windows is restarting now...
attrib +h "%SystemDrive%\Trial\IR7"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "IR7" /tr "'%SystemDrive%\Windows\system32\cmd.exe' /c cscript.exe /b %SystemDrive%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >nul
schtasks /create /tn "Hybrid2" /tr "%SystemDrive%\Trial\IR7\IR7.bat" /sc onlogon /rl highest /f >nul

ping -n 5 127.0.0.1 >nul
GOTO :Exit

:UninstallIR7
CLS
schtasks /query | FINDSTR /I "IR7" >NUL 
IF %ERRORLEVEL%==0 (
echo.
) ELSE ( echo IR7 is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO start
)
cls & echo Uninstalling IR7...
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete
) ELSE (
GOTO IR7FolderDelete
)

:TrialFolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:IR7FolderDelete
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL
SET file=%SystemDrive%\Trial\IR7
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
schtasks /delete /tn "IR7" /f >NUL 2>&1
schtasks /delete /tn "Hybrid2" /f >NUL 2>&1
IF %ERRORLEVEL%==0 ( cls & echo IR7 has been successfully uninstalled...
) ELSE (
echo IR7 is already uninstalled...
)
ping -n 5 127.0.0.1 >nul
GOTO Start

:StatusIR7
mode con: cols=64 lines=8
echo Retrieving status...
echo.
echo.
echo.
echo.
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Status"
echo.
cscript.exe %windir%\system32\slmgr.vbs /dlv | FINDSTR /I "Remaining"
echo.
schtasks /query /tn "IR7" 2>NUL | FINDSTR "IR7"
IF ERRORLEVEL 1 echo IR7 is not installed...
ping -n 5 127.0.0.1 >nul
GOTO Start

:InstructionsIR7
title IR7 Instructions
mode con: cols=110 lines=20
echo.
echo  IR7 Instructions
echo.
echo  1. Select Install then your computer will automatically restart into Recovery Environment (RE)
echo.
echo  2. Enter your keyboard language and login information
echo.
echo  3. Click command prompt and type "C:IR7" (without quotes) then press enter
echo.
echo  4. Ignore any non-genuine messages while windows is restarting
echo.
echo  5. Desktop watermark will disappear momentarily
echo.
echo  * If rearms do not reset try typing D:IR7, E:IR7, F:IR7, G:IR7, H:IR7 or I:IR7 in command prompt at step 3
echo.
echo  * If IR7 doesn't boot into (RE) restart your computer and press the F8 function key when BIOS screen flashes
echo.
echo  * Then choose the option to repair computer and start over at step 2
echo.
pause
goto start

:IORRT
setlocal enabledelayedexpansion
title IORRT
REG QUERY "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion | FINDSTR 6.1 >NUL
IF ERRORLEVEL 1 cls & echo IORRT supports Office 2013 only under Windows 7 & ping -n 5 127.0.0.1 >nul & goto mainmenu
set OfficeArchType=
if '%processor_architecture%'=='x86' Set OfficeArchType=32 && Goto:EndArchIR7
goto:WOWIR7
:WOWIR7
2>nul REG QUERY HKLM\SOFTWARE\Microsoft\Office\15.0\Common | find /i "InstallRoot" 1>nul
IF ERRORLEVEL 1 Set OfficeArchType=WOW && Goto:EndArchIR7
Set OfficeArchType=64
:EndArchIR7
if %OfficeArchType%==WOW (
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
Goto:FoundPath
)
FOR /F "tokens=2* delims= " %%A IN ('"REG QUERY "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v Path 2>NUL"') DO SET InstallRoot=%%B
if not defined InstallRoot ( cls & echo Office 2013 VL is not installed... & ping -n 5 127.0.0.1 >nul & goto mainmenu )
:FoundPath
1>nul 2>nul net start osppsvc
cscript "%InstallRoot%"ospp.vbs /dstatus |FINDSTR /i "KMS_Client" >NUL
if %errorlevel% EQU 1 ( cls & echo No office 2013 VL detected... & ping -n 5 127.0.0.1 >nul & goto mainmenu )

:IORRT1
mode con: cols=45 lines=10
CLS
echo.
echo.  
echo.    InfiniteOfficeRestoreRearmTask (IORRT) 
echo.    
echo.               A. Install
echo.               B. Uninstall
echo.               C. Status
echo.               D. Rearm Wizard
echo.               E. Exit
echo.
  
:CHOOSEACTION1
set /p userinp=    ^   Make your selection: 
set userinp=%userinp:~0,1%
if /i "%userinp%"=="A" goto InstallIORRT
if /i "%userinp%"=="B" goto UninstallIORRT
if /i "%userinp%"=="C" goto StatusIORRT
if /i "%userinp%"=="D" goto MAINMENU
if /i "%userinp%"=="E" goto Exit
GOTO IORRT1

:InstallIORRT
CLS
title IORRT
mode con: cols=45 lines=11
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF %ERRORLEVEL% NEQ 0 (
echo.
) ELSE (
echo IORRT is already installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Installing IORRT...
echo.
mkdir "%SystemDrive%\Check"
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Check\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Check\Backup\Registry" >NUL
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
if errorlevel==0 goto Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
cd /d "%InstallRoot%"
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo No Rearms Detected...
set msg=No rearms detected
call :speak "No rearms detected"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
:Pass
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Check\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Check\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
SET file=%SystemDrive%\Check
IF EXIST %file% attrib -h %file%
RD /S /Q  %file%
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolder2
) ELSE (
GOTO IR72
)

:TrialFolder2
md %SystemDrive%\Trial >nul 2>&1
GOTO IR72

:IR72
md %SystemDrive%\Trial\IORRT >nul 2>&1
net stop osppsvc >NUL
xcopy /cheriky "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" >NUL
mkdir "%SystemDrive%\Trial\IORRT\Backup\Registry"
reg save "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
SET file=%SystemDrive%\Trial\IORRT\IORRT.bat
IF EXIST %file% attrib -h %file% 
echo @echo off >%file%
echo net stop osppsvc >>%file%
echo xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >>%file%
echo REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >>%file%
echo reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >>%file%
echo net start osppsvc >>%file%
echo IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" ( >>%file%
echo "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >>%file%
echo ) >>%file%
echo schtasks /delete /tn "IORRT" /f >>%file%
echo schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >>%file%
IF Exist "%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" (
"%ProgramFiles%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
) ELSE ( "%programfiles(x86)%\Microsoft Office\Office15\OSPPREARM.exe" >NUL
)
attrib +h "%SystemDrive%\Trial\IORRT"
attrib +h "%SystemDrive%\Trial"
schtasks /create /tn "Hybrid" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc onstart /ru "" >NUL
schtasks /create /tn "IORRT" /tr "%SystemDrive%\Trial\IORRT\IORRT.bat" /sc daily /mo 1 /ru "" >NUL
echo.
title IORRT
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Installation Successful...
set msg=Installation Successful
call :speak "Installation Successful"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:UninstallIORRT
schtasks /query | FINDSTR /I "IORRT" >NUL
IF '%ERRORLEVEL%' EQU '0' (
echo.
) ELSE (
mode con: cols=45 lines=10
title IORRT
echo IORRT is already uninstalled...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
)
mode con: cols=62 lines=5
title IORRT
echo Uninstalling IORRT...
echo.
net stop osppsvc >NUL
xcopy /cheriky "%SystemDrive%\Trial\IORRT\Backup\Files\Tokens" "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform" >NUL
REG DELETE HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
REG ADD HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform /f >NUL
reg restore "HKLM\SOFTWARE\Microsoft\OfficeSoftwareProtectionPlatform" %SystemDrive%\Trial\IORRT\Backup\Registry\OfficeSPPInfo.hiv >NUL
net start osppsvc >NUL
DEL "%ALLUSERSPROFILE%\Microsoft\OfficeSoftwareProtectionPlatform\Backup.hiv" 2> nul
schtasks /query | FINDSTR /I "IR7" >NUL 
IF ERRORLEVEL 1 (
GOTO TrialFolderDelete2
) ELSE (
GOTO IORRTFolderDelete
)

:TrialFolderDelete2
SET file=%SystemDrive%\Trial
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:IORRTFolderDelete
SET file=%SystemDrive%\Trial\IORRT
IF EXIST %file% attrib -h %file%
rd /S /Q  %file%
goto Pass2

:Pass2
schtasks /delete /tn "Hybrid" /f >NUL
schtasks /delete /tn "IORRT" /f >NUL
cd /d "%InstallRoot%"
echo.
echo.
cscript OSPP.VBS /dstatus | FINDSTR /i "Status" 
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
echo Successfully Uninstalled...
set msg=Successfully Uninstalled
call :speak "Successfully Uninstalled"
goto :END
:speak
echo On Error Resume Next: CreateObject("SAPI.SpVoice").Speak %1 >"%~dp0vc.vbs"
"%~dp0vc.vbs" & del "%~dp0vc.vbs"
ping -n 5 127.0.0.1 >nul
GOTO IORRT1

:StatusIORRT
mode con: cols=64 lines=6
title IORRT
cd /d "%InstallRoot%"
cscript OSPP.VBS /dstatus | FINDSTR /i "Status"
cscript OSPP.VBS /dstatus | FINDSTR /i "Remaining"
echo.
schtasks /query | FINDSTR /I "IORRT"
IF ERRORLEVEL 1 echo IORRT is not installed...
ping -n 5 127.0.0.1 >nul
GOTO IORRT1
endlocal

:Details
CLS
title Details
mode con: cols=107 lines=20
echo.
echo  Rearm Wizard
echo.
echo  IR7 - The Official Windows 7 Rearm Solution
echo.
echo  * IR7 allows you to use windows 7 and servers without patches, cracks, loaders, activators or leaked keys
echo  * IR7 keeps you in trial and in trial you are always genuine 
echo  * IR7 works with all updates and service packs
echo  * IR7 supports all Windows 7/R2, languages, versions, editions, 32/64bit
echo  * IR7 does not modify any system files and never causes restart problems
echo  * IR7 and Hybrid2 tasks both run silently
echo.
echo  IORRT - The Official Office 2013 VL Rearm Solution
echo.
echo  * IORRT allows you to use office 2013 VL without patches, cracks, activators or leaked keys
echo  * IORRT works with all updates and service packs
echo  * IORRT gives A.I. voice confirmation
echo  * IORRT and Hybrid tasks both run silently
echo.
pause
GOTO mainmenu

:Links
CLS
title ISO/URL Links
mode con: cols=36 lines=12
echo.
echo  ISO/URL Links
echo.
echo. A. Rearm Wizard Development Thread
echo. B. Windows 7 Ultimate x86/x64 ISO 
echo. C. Windows 7 USB/DVD Download tool
echo. D. Virtual CloneDrive
echo. E. Office 2013 VL (x86) ISO
echo. F. Office 2013 VL (x64) ISO
echo. G. Rearm Wizard
echo.
set /p deli=    ^   Make your selection: 
set deli=%deli:~0,1%
if /i "%deli%"=="A" start http://forums.mydigitallife.net/threads/43861
if /i "%deli%"=="B" start http://forums.mydigitallife.net/threads/27069
if /i "%deli%"=="C" start http://images2.store.microsoft.com/prod/clustera/framework/w7udt/1.0/en-us/Windows7-USB-DVD-tool.exe
if /i "%deli%"=="D" start http://static.slysoft.com/SetupVirtualCloneDrive.exe
if /i "%deli%"=="E" start magnet:?xt=urn:btih:91641B6FC20521D6A5B86B1000140F03E556C175
if /i "%deli%"=="F" start magnet:?xt=urn:btih:FB03E471B7F46AE03C4C14F42BEFE8063A7283CB
if /i "%deli%"=="G" goto mainmenu
goto Links

:ISO
title ISO Installation Basics
mode con: cols=111 lines=17
echo.
echo  ISO Installation Basics
echo.
echo  Use the Windows 7 USB/DVD download tool to burn Windows 7 ISO
echo.
echo  1. Insert your USB device or DVD
echo  2. Open the Windows 7 USB/DVD download tool then choose the Windows 7 ISO file you wish to install
echo  3. Choose the media type such as your USB or DVD
echo  4. Begin coyping and wait for Windows 7 to be burned to USB or DVD
echo  5. Then you can upgrade or clean install from inside Windows or clean install from boot
echo  6. You can upgrade from Vista, but if you have XP a clean install will be necessary
echo  7. When installing Windows 7 just bypass entering any key then uncheck the activate online box and click next
echo  8. Install with updates and internet on
echo.
echo  Use Virtual CloneDrive to mount the Office 2013 VL ISO then install from the virtual drive on your computer
echo.
pause
goto mainmenu

:Color
title Color Customization
set bkg=
set txtclr=
mode con: cols=21 lines=22
CLS
echo.
echo  Color Customization
echo.
echo  0 = Black
echo  1 = Blue
echo  2 = Green
echo  3 = Aqua
echo  4 = Red
echo  5 = Purple
echo  6 = Yellow
echo  7 = White
echo  8 = Gray
echo  9 = Light Blue
echo  A = Light Green
echo  B = Light Aqua
echo  C = Light Red
echo  D = Light Purple
echo  E = Light Yellow
echo  F = Bright White
echo  G = Rearm Wizard
echo.
set /p txtclr=    ^   Text Color: 
if /i "%txtclr%"=="G" goto :mainmenu
set /p bkg=    ^   Background Color: 
if /i "%bkg%"=="G" goto :mainmenu
set bkg=%bkg:~0,1%
set txtclr=%txtclr:~0,1%
set bkg=%bkg%
set txtclr=%txtclr%
@COLOR %bkg%%txtclr%
mode con: cols=48 lines=11
reg add "HKCU\Software\Microsoft\Command Processor"  /t  REG_DWORD /v DefaultColor /d 0x%bkg%%txtclr% /f >NUL
IF '%ERRORLEVEL%' EQU '0' ( goto color
) ELSE (
goto mainmenu
)

:Exit
ENDLOCAL
exit
    Writes this but it won't delete IR7 folder :suicide:...lol

    Code:
    mode con: cols=42 lines=2  
title IR7  
Uninstalling IR7... 
SET file=C:\Trial\IR7  
IF EXIST %file% attrib -h %file%  
rd /S /Q %file%
ping -n 5 127.0.0.1  
del /F /Q C:\delete.bat
     
  14. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #314 timesurfer, Oct 22, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    Hey MD I solved it...lol

    I used a little task magic to solve the 180 uninstall problem :p...lol

    Check it out :eek:

    Code:
    echo :UninstallIR7>>%SystemDrive%\Trial\IR7\IR72.bat
echo CLS >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo Uninstalling IR7...>>%SystemDrive%\Trial\IR7\IR72.bat
echo REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "IR7" /f ^>NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /delete /tn "Hybrid2" /f ^>NUL 2>&1 >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /query ^| FINDSTR /I "IORRT" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo IF ERRORLEVEL 1 ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO TrialFolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) ELSE ( >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO IR7FolderDelete >>%SystemDrive%\Trial\IR7\IR72.bat
echo ) >>%SystemDrive%\Trial\IR7\IR72.bat

echo :TrialFolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /s /q %SystemDrive%\Trial ^>NUL ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo schtasks /delete /tn "removeIR7" /f ^>NUL ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\removeIR7.bat ^>nul ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "removeIR7" /tr ^>NUL "%SystemDrive%\removeIR7.bat" /sc onlogon /ru "" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /run /tn "removeIR7" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat

echo :IR7FolderDelete>>%SystemDrive%\Trial\IR7\IR72.bat
echo echo rd /s /q %SystemDrive%\Trial\IR7 ^>NUL ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo schtasks /delete /tn "removeIR7" /f ^>NUL ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo echo del /F /Q %SystemDrive%\removeIR7.bat ^>nul ^>^>%SystemDrive%\removeIR7.bat >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /create /tn "removeIR7" /tr ^>NUL "%SystemDrive%\removeIR7.bat" /sc onlogon /ru "" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo schtasks /run /tn "removeIR7" ^>NUL >>%SystemDrive%\Trial\IR7\IR72.bat
echo GOTO :Exit >>%SystemDrive%\Trial\IR7\IR72.bat
     
  15. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #315 timesurfer, Oct 25, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    Huge Task Problem :O

    Hybrid2 task is suppose to run silent IR7.bat at onlogon and it is also suppose to call another batch IR72.bat

    Code:
    schtasks /create /tn "Hybrid2" /tr "%SystemDrive%\Trial\IR7\IR7.bat" /sc onlogon /ru ""
    Hybrid2 says it's running in task scheduler at onlogon but it doesn't call IR72.bat like it is suppose to so I know IR7.bat is not running :(

    Also if I open up task scheduler and run Hybrid2 it also says it's running but IR7.bat doesn't call IR72.bat to run :eek: so I know IR7.bat is not running :(

    But if I manually run IR7.bat it will call IR72.bat and it runs!

    What is going on here?

    Is it cause the IR7.bat is silent that it won't call IR72.bat?

    It's weird :confused:

    And IR72.bat needs "possible" interaction so it needs to run non-silent

    It's gotta be something about the task switches or silently run tasks can't call batch files but that doesn't make sense :eek:

    Here is some possible information concerning this subject and here

    IR7.bat

    Code:
    @echo off 
mode con: cols=42 lines=2 
title IR7 
setlocal ENABLEDELAYEDEXPANSION 
SETX IR7backup "%SystemDrive%\Trial\IR7" >nul 
set KEY_NAME=HKCU\Software\Microsoft\Windows\CurrentVersion\Themes
set VALUE_NAME=CurrentTheme
set spp=SoftwareLicensingProduct
for /F "usebackq tokens=3*" %%A IN (`reg query "%KEY_NAME%" /v "%VALUE_NAME%" 2^>nul ^| find "%VALUE_NAME%"`) do IF ~%%B==~ (SET themefile=%%A) ELSE (SET themefile=%%A %%B)
for %%F in ("%themefile%") do set theme=%%~nF
set wppath=%appdata%\Microsoft\Windows\Themes
for /f "tokens=2,3,4,5,6,7 delims= " %%a in ('wmic os get caption') do set ver=%%a %%b %%c %%d %%e %%f 
:loopV 
if "%ver:~-1%"==" " set "ver=%ver:~0,-1%" & goto :loopV 
wmic path %spp% get LicenseStatus /format:list 2>nul | findstr /i 5 >nul 2>&1 
if %errorlevel%==0 call IR72.bat & goto :Exit 
if %errorlevel%==1 goto :Backup 
:Backup
if "%ver%" == "Windows 7 Starter" ( goto :Exit ) 
if "%ver%" == "Windows 7 Home Basic" ( goto :BackupHB ) 
if exist "%systemdrive%\Trial\IR7\IR7Bkup.theme" del /s /q "%systemdrive%\Trial\IR7\IR7Bkup.theme" >nul
echo F | xcopy "%themefile%" /s /q "%systemdrive%\Trial\IR7" /V /Y >nul 
ren "%systemdrive%\Trial\IR7\%theme%.theme" "IR7Bkup.theme"
goto :Exit 
:BackupHB 
xcopy "%wppath%\TranscodedWallpaper.jpg" /s /q "%systemdrive%\Trial\IR7" /Y >nul 
goto :Exit 
:Exit 
ENDLOCAL 
exit
    IR72.bat

    Code:
    @echo off 
title IR7 
setlocal ENABLEDELAYEDEXPANSION 
for /f "usebackq tokens=2 delims==" %%n in (`"%SystemRoot%\System32\wbem\WMIC.exe" /namespace:\\root\cimv2 path SoftwareLicensingService get RemainingWindowsReArmCount /format:list`) do set r=%%n 
if %r% == 0 goto :Messagebox 
mode con: cols=42 lines=2 
cls 
echo Rearming and Restoring Theme/Wallpaper...
cscript.exe /b %windir%\system32\slmgr.vbs /rearm 
net stop sppsvc >NUL 
net start sppsvc >NUL 
schtasks /create /tn "IR7" /tr "'%systemdrive%\Windows\system32\cmd.exe' /c cscript.exe /b %SystemDrive%\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >NUL  
if "%ver%" == "Windows 7 Starter" ( goto :RestoreS ) 
if "%ver%" == "Windows 7 Home Basic" ( goto :RestoreHB ) 
echo F | xcopy "%systemdrive%\Trial\IR7\IR7Bkup.theme" /s /q "%windir%\resources\Themes" /V /Y >nul 
echo Set WshShell = WScript.CreateObject("WScript.Shell") >>twrpwc.vbs 
echo WshShell.Run "C:\Windows\\resources\\themes\\IR7Bkup.theme" >>twrpwc.vbs 
echo Wscript.Sleep 10000 >>twrpwc.vbs 
echo WshShell.AppActivate("Desktop Properties") >>twrpwc.vbs 
echo WshShell.Sendkeys "%%FC" >>twrpwc.vbs 
echo WshShell.Sendkeys "{F4}" >>twrpwc.vbs 
call twrpwc.vbs 
del twrpwc.vbs 
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Themes" /t REG_SZ /v CurrentTheme /d "%windir%\resources\Themes\IR7Bkup.theme" /f >NUL 
goto :Exit 
:RestoreS 
title IR7 
mode con: cols=28 lines=2 
cls 
echo Preparing logoff options...
reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%windir%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" >nul 
echo set args=WScript.Arguments >msgbox.vbs 
echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) >>msgbox.vbs 
msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 
IF %ERRORLEVEL% EQU 6 del /s /q msgbox.vbs >nul && shutdown /l && call :Exit 
IF %ERRORLEVEL% EQU 7 del /s /q msgbox.vbs >nul && call :Exit 
cls 
echo Preparing logoff options...
:RestoreHB 
title IR7 
mode con: cols=28 lines=2 
cls 
echo Preparing logoff options...
xcopy "%systemdrive%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%wppath%" /Y >nul 
reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%wppath%\TranscodedWallpaper.jpg" /t "REG_SZ" >nul 
echo set args=WScript.Arguments >msgbox.vbs 
echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) >>msgbox.vbs 
msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 
IF %ERRORLEVEL% EQU 6 del /s /q msgbox.vbs >nul && shutdown /l && call :Exit 
IF %ERRORLEVEL% EQU 7 del /s /q msgbox.vbs >nul && call :Exit 
:Messagebox
title IR7 
mode con: cols=41 lines=2 
cls 
echo Preparing reinstall/uninstall options...
echo set args=WScript.Arguments >msgbox.vbs 
echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) >>msgbox.vbs  
msgbox.vbs "IR7" "Your 180 day free trial has ended, do you wish to install IR7 again?" 4 
IF %ERRORLEVEL% EQU 6 del /s /q msgbox.vbs >nul && call :ReinstallIR7
IF %ERRORLEVEL% EQU 7 del /s /q msgbox.vbs >nul && call :UninstallIR7
:UninstallIR7
CLS 
echo IR7 has been successfully uninstalled...
REG  ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 0 /f >NUL 
schtasks /delete /tn "IR7" /f >NUL 
schtasks /delete /tn "Hybrid2" /f >NUL 
schtasks /query | FINDSTR /I "IORRT" >NUL 
IF ERRORLEVEL 1 ( 
GOTO TrialFolderDelete 
) ELSE ( 
GOTO IR7FolderDelete 
) 
:TrialFolderDelete
echo rd /s /q C:\Trial >NUL >>C:\removeIR7.bat 
echo schtasks /delete /tn "removeIR7" /f >NUL >>C:\removeIR7.bat 
echo del /F /Q C:\removeIR7.bat >nul >>C:\removeIR7.bat 
schtasks /create /tn "removeIR7" /tr >NUL "C:\removeIR7.bat" /sc onlogon /ru "" >NUL 
schtasks /run /tn "removeIR7" >NUL 
GOTO :Exit 
:IR7FolderDelete
echo rd /s /q C:\Trial\IR7 >NUL >>C:\removeIR7.bat 
echo schtasks /delete /tn "removeIR7" /f >NUL >>C:\removeIR7.bat 
echo del /F /Q C:\removeIR7.bat >nul >>C:\removeIR7.bat 
schtasks /create /tn "removeIR7" /tr >NUL "C:\removeIR7.bat" /sc onlogon /ru "" >NUL 
schtasks /run /tn "removeIR7" >NUL 
GOTO :Exit 
:ReinstallIR7
echo Installing IR7...
REG ADD "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SoftwareProtectionPlatform\Activation" /v NotificationDisabled /t REG_DWORD /d 1 /f >NUL 
echo edition = CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\EditionID") >key.vbs 
echo Set keys = CreateObject ("Scripting.Dictionary") >>key.vbs 
echo keys.Add "Enterprise",                     "H7X92-3VPBB-Q799D-Y6JJ3-86WC6" >>key.vbs 
echo keys.Add "EnterpriseE",                    "H3V6Q-JKQJG-GKVK3-FDDRF-TCKVR" >>key.vbs 
echo keys.Add "EnterpriseN",                    "BQ4TH-BWRRY-424Y9-7PQX2-B4WBD" >>key.vbs 
echo keys.Add "HomeBasic",                      "YGFVB-QTFXQ-3H233-PTWTJ-YRYRV" >>key.vbs 
echo keys.Add "HomeBasicE",                     "VTKM9-74GQY-K3W94-47DHV-FTXJY" >>key.vbs 
echo keys.Add "HomeBasicN",                     "MD83G-H98CG-DXPYQ-Q8GCR-HM8X2" >>key.vbs 
echo keys.Add "HomePremium",                    "RHPQ2-RMFJH-74XYM-BH4JX-XM76F" >>key.vbs 
echo keys.Add "HomePremiumE",                   "76BRM-9Q4K3-QDJ48-FH4F3-9WT2R" >>key.vbs 
echo keys.Add "HomePremiumN",                   "D3PVQ-V7M4J-9Q9K3-GG4K3-F99JM" >>key.vbs 
echo keys.Add "Professional",                   "HYF8J-CVRMY-CM74G-RPHKF-PW487" >>key.vbs 
echo keys.Add "ProfessionalE",                  "3YHKG-DVQ27-RYRBX-JMPVM-WG38T" >>key.vbs 
echo keys.Add "ProfessionalN",                  "BKFRB-RTCT3-9HW44-FX3X8-M48M6" >>key.vbs 
echo keys.Add "ServerDatacenter",               "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs 
echo keys.Add "ServerDatacenterCore",           "7X29B-RDCR7-J6R29-K27FF-H9CR9" >>key.vbs 
echo keys.Add "ServerEmbeddedSolution",         "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs 
echo keys.Add "ServerEmbeddedSolutionCore",     "M2KD2-F2333-Q3TJ8-BQMHX-9PWX6" >>key.vbs 
echo keys.Add "ServerEnterprise",               "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs 
echo keys.Add "ServerEnterpriseCore",           "7P8GH-FV2FF-8FDCR-YK49D-D7P97" >>key.vbs 
echo keys.Add "ServerEnterpriseIA64",           "7YKJ4-CX8QP-Q23QY-7BYQM-H2893" >>key.vbs 
echo keys.Add "ServerEssentialAdditional",      "7PDBG-28HK4-276G6-XVJF4-KH9Y4" >>key.vbs 
echo keys.Add "ServerEssentialAdditionalSvc",   "RCDPD-97Q7B-MRDC3-GTRYF-MCD6G" >>key.vbs 
echo keys.Add "ServerEssentialManagement",      "4F37J-4YTKY-6DFDJ-FDRFY-2HT34" >>key.vbs 
echo keys.Add "ServerEssentialManagementSvc",   "4HFV2-KB9P6-TQVJF-87D8X-2YYBF" >>key.vbs 
echo keys.Add "ServerForSBSolutions",           "PHYFD-HQ4XW-78PR4-2CXKF-V67KJ" >>key.vbs 
echo keys.Add "ServerForSBSolutionsEM",         "JR4Y2-WC84X-PBRDJ-QTBTB-TQGGH" >>key.vbs 
echo keys.Add "ServerHomePremium",              "4BWDV-9MKGX-V9QJ4-YWFWR-P6974" >>key.vbs 
echo keys.Add "ServerHomeStandard",             "MCQYD-2TJYQ-JP7KR-7GYYF-YGPXQ" >>key.vbs 
echo keys.Add "ServerHPC",                      "Q7PRR-M2WBM-RJJ99-FG393-MGY3B" >>key.vbs 
echo keys.Add "ServerHyperCore",                "Q8R8C-T2W6H-7MGPB-4CQ9R-KR36H" >>key.vbs 
echo keys.Add "ServerMediumBusinessManagement", "FD499-FD79G-V9D2W-F9WQ6-MD2VC" >>key.vbs 
echo keys.Add "ServerMediumBusinessMessaging",  "YVYC7-KVQ8G-XF6K4-9MG8M-QXFC2" >>key.vbs 
echo keys.Add "ServerMediumBusinessSecurity",   "YQ3V7-79DM4-42PVW-BYRH8-69VXK" >>key.vbs 
echo keys.Add "ServerSBSPremium",               "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs 
echo keys.Add "ServerSBSPremiumCore",           "BXQQP-Q6Q6D-TR7TR-3YXQW-VFHKM" >>key.vbs 
echo keys.Add "ServerSBSStandard",              "YMFM8-J2RV2-66G78-XPQ7C-4RY3B" >>key.vbs 
echo keys.Add "ServerSolution",                 "Y7GVM-YFQQW-HV8HW-GRW6D-YJ84M" >>key.vbs 
echo keys.Add "ServerSolutionEM",               "WF9T8-VT7D2-GD629-WTKGH-3WBJT" >>key.vbs 
echo keys.Add "ServerSolutionsPremium",         "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs 
echo keys.Add "ServerSolutionsPremiumCore",     "4TMY4-8JG4B-VKY8X-6TVDH-J7XFV" >>key.vbs 
echo keys.Add "ServerStandard",                 "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs 
echo keys.Add "ServerStandardCore",             "HMG6P-C7VGP-47GJ9-TWBD4-2YYCD" >>key.vbs 
echo keys.Add "ServerWeb",                      "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs 
echo keys.Add "ServerWebCore",                  "YGTGP-9XH8D-8BVGY-BVK4V-3CPRF" >>key.vbs 
echo keys.Add "ServerWinFoundation",            "36RXV-4Y4PJ-B7DWH-XY4VW-KQXDQ" >>key.vbs 
echo keys.Add "ServerWinSB",                    "JG43G-CMPHG-VPBC6-9TDQR-RRFJ4" >>key.vbs 
echo keys.Add "ServerWinSBV",                   "WQG3Q-VWT72-VX39Q-VRTRD-2RF7K" >>key.vbs 
echo keys.Add "Starter",                        "7Q28W-FT9PC-CMMYT-WHMY2-89M6G" >>key.vbs 
echo keys.Add "StarterE",                       "BRQCV-K7HGQ-CKXP6-2XP7K-F233B" >>key.vbs 
echo keys.Add "StarterN",                       "D4C3G-38HGY-HGQCV-QCWR8-97FFR" >>key.vbs 
echo keys.Add "Ultimate",                       "D4F6K-QK3RD-TMVMJ-BBMRX-3MBMV" >>key.vbs 
echo keys.Add "UltimateE",                      "TWMF7-M387V-XKW4Y-PVQQD-RK7C8" >>key.vbs 
echo keys.Add "UltimateN",                      "HTJK6-DXX8T-TVCR6-KDG67-97J8Q" >>key.vbs 
echo keys.Add "Embedded",                       "743Q4-G676P-84RX9-B8HRR-6V73F" >>key.vbs 
echo if keys.Exists(edition) then >>key.vbs 
echo WScript.Echo keys.Item(edition) >>key.vbs 
echo End If >>key.vbs 
FOR /F %%A in ('cscript /nologo key.vbs') do SET PIDKEY=%%A  
del key.vbs 
for /f "tokens=2 delims==" %%A in ('"wmic volume where SystemVolume="true" get DeviceId /format:list"') do set sd=%%A
for /f "tokens=2 delims==" %%A in ('"wmic volume where DriveLetter="%SystemDrive%" get SerialNumber /format:list"') do set sn=%%A 
SET file=%sd%\IR7.bat 
echo @echo off>>%file%  
echo echo Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")^>^>drive.vbs>>%file%  
echo echo Set colItems = objWMIService.ExecQuery( "SELECT * FROM Win32_Volume",,48)^>^>drive.vbs>>%file%  
echo echo For Each objItem in colItems^>^>drive.vbs>>%file% 
echo echo If Hex(%sn%) = Hex(objItem.SerialNumber) then^>^>drive.vbs>>%file%  
echo echo Wscript.Echo objItem.DriveLetter^>^>drive.vbs>>%file%  
echo echo End If ^>^>drive.vbs>>%file% 
echo echo Next ^>^>drive.vbs>>%file% 
echo for /f %%%%A IN ('"cscript /nologo drive.vbs"') do set dl=%%%%A>>%file% 
echo :loop>>%file% 
echo if "%%dl:~-1%%"==" " set "dl=%%dl:~0,-1%%" ^& goto :loop>>%file% 
echo del drive.vbs>>%file% 
echo reg load HKLM\MY_SYSTEM "%%dl%%\Windows\System32\config\system" ^>NUL >>%file%  
echo reg delete HKLM\MY_SYSTEM\WPA /f ^>NUL >>%file%  
echo reg unload HKLM\MY_SYSTEM ^>NUL >>%file% 
echo echo cscript /b slmgr.vbs /ipk %PIDKEY%^>%%dl%%\installkey.bat >>%file% 
echo echo slmgr.vbs /dlv ^>^>%%dl%%\installkey.bat >>%file% 
if "%ver%" == "Windows 7 Starter" ( goto :WriteS ) 
if "%ver%" == "Windows 7 Home Basic" ( goto :WriteHB ) 
echo echo xcopy "%%%%systemdrive%%%%\Trial\IR7\IR7Bkup.theme" /s /q "%%%%windir%%%%\resources\Themes" /Y /V ^^^>null^>^>%%dl%%\installkey.bat >>%file%  
echo Set WshShell = WScript.CreateObject("WScript.Shell") >>twrpwc.vbs 
echo WshShell.Run "C:\Windows\\resources\\themes\\IR7Bkup.theme" >>twrpwc.vbs 
echo Wscript.Sleep 10000 >>twrpwc.vbs 
echo WshShell.AppActivate("Desktop Properties") >>twrpwc.vbs 
echo WshShell.Sendkeys "%%FC" >>twrpwc.vbs 
echo WshShell.Sendkeys "{F4}" >>twrpwc.vbs 
call twrpwc.vbs 
del twrpwc.vbs 
:ResumeIR7 
echo echo del "C:\installkey.bat" ^>^>%%dl%%\installkey.bat >>%file%
echo echo CreateObject("WScript.Shell").Run """C:\installkey.bat""", 0, False^>%%dl%%\key.vbs >>%file% 
echo echo @echo off ^>%%dl%%\launch.bat >>%file% 
echo echo wscript.exe "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file% 
echo echo del "%sd%\IR7.bat" ^>^>%%dl%%\launch.bat >>%file% 
echo echo del "C:\key.vbs" ^>^>%%dl%%\launch.bat >>%file% 
echo echo del "C:\launch.bat" ^>^>%%dl%%\launch.bat >>%file%
echo reg load HKLM\MY_SOFTWARE "%%dl%%\Windows\System32\config\software" ^>NUL >>%file%  
echo reg add HKLM\MY_SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce /v InstallKey /t REG_SZ /d C:\launch.bat /f ^>NUL >>%file% 
echo reg unload HKLM\MY_SOFTWARE >>%file%
echo wpeutil reboot >>%file% 
reagentc /boottore >NUL 
echo Windows is restarting now... 
schtasks /create /tn "IR7" /tr "'%SystemDrive%\Windows\system32\cmd.exe' /c cscript.exe /b C:\Windows\System32\slmgr.vbs /rearm && net stop sppsvc && net start sppsvc" /sc daily /mo 30 /ru "" /f >nul  
shutdown.exe /r /t 0 
GOTO :Exit 
:Exit 
ENDLOCAL 
exit 
:WriteS 
mode con: cols=28 lines=2 
cls 
echo Preparing logoff options...
echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%%%%windir%%%%\web\wallpaper\windows\img0.jpg" /t "REG_SZ" ^^^>nul ^>^>%%dl%%\installkey.bat >>%file%  
echo echo echo set args=WScript.Arguments ^^^>msgbox.vbs^>^>%%dl%%\installkey.bat >>%file%   
echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^>^^^>msgbox.vbs ^>^>%%dl%%\installkey.bat >>%file%  
echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^>^>%%dl%%\installkey.bat >>%file%  
echo echo IF %%%%ERRORLEVEL%%%% EQU 6 del /s /q msgbox.vbs ^^^>nul ^^^& shutdown /l ^^^& call :Exit ^>^>%%dl%%installkey.bat >>%file% 
echo echo IF %%%%ERRORLEVEL%%%% EQU 7 del /s /q msgbox.vbs ^^^>nul ^^^& call :Exit ^>^>%%dl%%\installkey.bat >>%file% 
goto :ResumeIR7 
:WriteHB 
mode con: cols=28 lines=2 
cls 
echo Preparing logoff options...
echo echo xcopy "%%%%systemdrive%%%%\Trial\IR7\TranscodedWallpaper.jpg" /s /q "%wppath%" /Y ^^^>nul ^>^>%%dl%%\installkey.bat >>%file% 
echo echo reg add "HKCU\Control Panel\Desktop" /f /v "Wallpaper" /d "%wppath%\TranscodedWallpaper.jpg" /t "REG_SZ" ^^^>nul ^>^>%%dl%%\installkey.bat >>%file%  
echo echo echo set args=WScript.Arguments ^^^>msgbox.vbs ^>^>%%dl%%\installkey.bat >>%file% 
echo echo echo wscript.quit MsgBox(Replace(Replace(args.item(1),"{cr}",vbNewLine,1,-1,1),"{qt}",Chr(34),1,-1,1),args.item(2),args.item(0)) ^^^>^^^>msgbox.vbs ^>^>%%dl%%\installkey.bat >>%file% 
echo echo msgbox.vbs "IR7" "LOGOFF required. Log Off now?" 4 ^>^>%%dl%%\installkey.bat >>%file% 
echo echo IF %%%%ERRORLEVEL%%%% EQU 6 del /s /q msgbox.vbs ^^^>nul ^^^& shutdown /l ^^^& call :Exit ^>^>%%dl%%\installkey.bat >>%file%  
echo echo IF %%%%ERRORLEVEL%%%% EQU 7 del /s /q msgbox.vbs ^^^>nul ^^^& call :Exit ^>^>%%dl%%\installkey.bat >>%file% 
goto :ResumeIR7
    Any help would be appreciated...

    Thanks
     
  16. HORIZONTAL THINKER

    HORIZONTAL THINKER MDL Member

    Jun 13, 2012
    155
    29
    10
    #316 HORIZONTAL THINKER, Oct 27, 2013
    Last edited by a moderator: Apr 20, 2017
    I got it with what's below:

    Code:
    if not exist \Windows\System32\TestFolder mkdir \Windows\System32\TestFolder
     
  17. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #317 timesurfer, Oct 27, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    The test was to see if could create folder without admin

    The purpose was to make sure Trilogy was run as admin!

    The admin check got upgraded twice since then:

    Code:
    REG QUERY "HKU\S-1-5-19" >NUL 2>&1 && (
GOTO mainmenu
) || (
echo Right click Trilogy 4.2 and run as administrator
echo.
pause
GOTO exit
)
    Rearm Wizard

    Code:
    >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
if '%errorlevel%' NEQ '0' (
echo Requesting administrative privileges...
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
set params = %*:"=""
echo UAC.ShellExecute "%~s0", "%params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit /B
:gotAdmin
if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
pushd "%CD%"
CD /D "%~dp0"
     
  18. HORIZONTAL THINKER

    HORIZONTAL THINKER MDL Member

    Jun 13, 2012
    155
    29
    10
    #318 HORIZONTAL THINKER, Oct 30, 2013
    Last edited by a moderator: Apr 20, 2017
    My apologies timesurfer for only replying now. My enthusiasm got the better of me :rolleyes: My apologies. Just want to add what a brilliant and educational thread for noobs like me.
    I find myself more and more searching for solutions to mundane tasks everyday to try and get them done via batch.

    Book marked. AGAIN! :eek::worthy::biggrin:
     
  19. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #319 timesurfer, Oct 30, 2013 (OP)
    No hurry bro, just take your time and enjoy MDL for what it is, a place to get creative and selfless help for investigating computer OS's and apps...

    Enthusiasm rules :worthy:...lol
     
  20. timesurfer

    timesurfer MDL Developer

    Nov 22, 2009
    8,524
    4,112
    270
    #320 timesurfer, Oct 31, 2013
    Last edited by a moderator: Apr 20, 2017
    (OP)
    [SOLVED]

    To have a .bat file work and run silent create a .vbs file like this:

    Code:
    CreateObject("Wscript.Shell").Run "%systemdrive%\Folder\?.bat",0,True
     
Page 16 of 20