Fix My Code!

Reply

Batch OS RUN file code

« Prev
1
Next »

enzo
Administrator

Posts: 8

Batch OS RUN file code Feb 9, 2015 20:41:03 GMT

Quote

Post by enzo on Feb 9, 2015 20:41:03 GMT

@echo off

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

title Greg's Batch OS
echo Website: http://fixmycode.boards.net/
pause <nul
cls

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

doskey /reinstall
start along.bat
if exist system_info.txt goto :top
if not exist system_info.txt goto :sysinfo

:sysinfo
title gathering system info... info will be saved in current dir
( echo.
driverquery
echo.
echo.
echo.
gpresult /SCOPE USER /Z
echo.
echo.
echo.
systeminfo
echo.
echo.
echo.
netsh firewall show opmode
echo. ) > system_info.txt
echo.
md %cd:~0,2%\System_info\
wmic bios list full /format:hform > %cd:~0,2%\System_info\bios.html
wmic BASEBOARD list full /format:hform > %cd:~0,2%\System_info\mobo.html
wmic COMPUTERSYSTEM list full /format:hform > %cd:~0,2%\System_info\sys.html
wmic CPU list full /format:hform > %cd:~0,2%\System_info\CPU.html
wmic DISKDRIVE list full /format:hform > %cd:~0,2%\System_info\sys.html
wmic MEMORYCHIP list full /format:hform > %cd:~0,2%\System_info\mem.html
wmic MEMPHYSICAL list full /format:hform > %cd:~0,2%\System_info\memphy.html
wmic os list full /format:hform > %cd:~0,2%\System_info\os.html
wmic pagefile list full /format:hform > %cd:~0,2%\System_info\pagefile.html
wmic TEMPERATURE list full /format:hform > %cd:~0,2%\System_info\temp.html
cls
:top
cls
echo %cd%
title Greg's Batch OS version 1.0.1
call :ColorText 0c "Welcome to Greg's Commands!"
echo. <nul
echo   Time:%time:~0,2%:%time:~3,2%      Date: %date%       Username: %username%
for /f "tokens=2 delims==" %%I in ('wmic computersystem get model /format:list') do set "model=%%I"
echo PC Model: %model%
SetLocal
For /f "UseBackQ Tokens=1-2 Delims==" %%A In (`WMIc LogicalDisk Where^
 "DeviceID = '%CD:~,2%'" Get FreeSpace^, Size /Value`) Do If "%%B" NEq "" (
   Call Set _%%A=%%B)
Rem Set/a _FreePercent=%_FreeSpace:~,-3% / %_Size:~,-5%
Set/a _FreePercent=%_FreeSpace:~,-6% / %_Size:~,-8%
If %_FreeSpace:~,-6% lss 214748 (Set/a _FreeSpace=%_FreeSpace:~,-6%*9313/10000
   ) Else (Set/a _FreeSpace=%_FreeSpace:~,-6%/1074*1000)
Echo(HD Drive %CD:~,2% %_FreeSpace:~,-3% GB Of Free Space = %_FreePercent%%%^
 available 
echo   Loaded From:   %cd%
echo.
echo.

:login
call :ColorText 0c " Type owner to find the owners contact info."
echo.
echo.
call :ColorText 0c " Username"
echo. <nul
SET /P loginname=
if "%loginname%"=="owner" goto :owner
:L5
call :ColorText 0c " Password"
echo. <nul
   :HInput
   SetLocal DisableDelayedExpansion
   Set "password="
   Rem Save 0x08 character in BS variable
   For /F %%# In (
   '"Prompt;$H&For %%# in (1) Do Rem"'
   ) Do Set "BS=%%#"

   :HILoop
   Set "Key="
   For /F "delims=" %%# In (
   'Xcopy /L /W "%~f0" "%~f0" 2^>Nul'
   ) Do If Not Defined Key Set "Key=%%#"
   Set "Key=%Key:~-1%"
   SetLocal EnableDelayedExpansion
   If Not Defined Key Goto :HIEnd
   If %BS%==^%Key% (Set /P "=%BS% %BS%" <Nul
   Set "Key="
   If Defined password Set "password=!password:~0,-1!"
   ) Else Set /P "=*" <Nul
   If Not Defined password (EndLocal &Set "password=%Key%"
   ) Else For /F delims^=^ eol^= %%# In (
   "!password!") Do EndLocal &Set "password=%%#%Key%"
   Goto :HILoop

   :HIEnd <nul
   Echo( <nul
Echo Your password is '!password!' <nul
   Pause <nul
   Goto :pass

:pass
if "%loginname%"=="klawrie" (
        goto :password1
    ) else (
        cls
        goto :login
    )

:password1
if "%password%"=="password" (
        goto :menua
    ) else (
        cls
        goto :L5
    )

:: :::::::Login Done:::::::

:owner
echo Name: Kyle Lawrie
echo Phone: 541-892-3848
echo Email: kylelawriezzz@gmail.com
echo press any key to return to login...
pause <nul
goto :login

:menua
if EXIST "HTG Locker" goto :UNLOCKFOLDER
if NOT EXIST Private goto :MDLOCKER1

:MDLOCKER1
md Private
echo Private created successfully
goto :mainb

:UNLOCKFOLDER
attrib -h -s "HTG Locker" 
ren "HTG Locker" Private 

:mainb
title Greg's Batch OS version 1.0.1
MODE CON COLS=132 LINES=40
cls
doskey /reinstall
echo. 
echo. 
call :ColorText 0f "                               Main Menu"
echo. 
echo. 
color 0f
echo   Time: %time%       Date: %date%       Username: %username%
echo   Loaded From:   %cd%   Domain: %USERDOMAIN%
call :ColorText 0F "Select an option"
echo.
echo.
echo.
call :ColorText 0a "   input option = program                       input option = program"
echo.
echo. 
call :ColorText 0a "        taskman = task list                            Paint = MS Paint"
echo.
echo.
call :ColorText 0a "          timer = Timer                                   PS = Photoshop"
echo.
echo.
call :ColorText 0a "            N++ = Notepad++                              exp = My Computer"
echo.
echo.
call :ColorText 0a "            CMD = Command Prompt                        word = MS Word"
echo.
echo.
call :ColorText 0a "              T = Test Bench                            cmdh = info on editing batch files"
echo.
echo.
call :ColorText 0a "           game = game pack                                H = Help"
echo.
echo.
call :ColorText 0a "         google = search google                            C = Commands"
echo.
echo.
call :ColorText 0a "              L = Lock Folder                              U = Unlock Folder"
echo.
echo.
SET /P mainmenuoption= Option:
if /i "%mainmenuoption%"=="taskman" goto :taskman
if /i "%mainmenuoption%"=="exp" goto :exp
if /i "%mainmenuoption%"=="paint" goto :paint
if /i "%mainmenuoption%"=="ps" goto :photoshop
if /i "%mainmenuoption%"=="word" goto :word
if /i "%mainmenuoption%"=="timer" goto :timer
if /i "%mainmenuoption%"=="cmd" goto :cmd1
if /i "%mainmenuoption%"=="test" goto :testbench
if /i "%mainmenuoption%"=="lel" goto :gify
if /i "%mainmenuoption%"=="cmdh" goto :batche
if /i "%mainmenuoption%"=="game" goto :gamepack
if /i "%mainmenuoption%"=="u" goto :unlockfolder
if /i "%mainmenuoption%"=="google" goto :google
if /i "%mainmenuoption%"=="N++" goto :notepad++
if /i "%mainmenuoption%"=="L" goto :lockfolder
if /i "%mainmenuoption%"=="calc" goto :calcul
if /i "%mainmenuoption%"=="C" goto :commands1
if /i "%mainmenuoption%"=="H" goto :help
if /i "%mainmenuoption%"=="*" goto :menua (
        goto :menua
    ) else (
	doskey /reinstall
        cls
        goto :L5
    )

:batche
start "" "Batch-E.htm"
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:word
start WINWORD.exe
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:paint
start paint.exe
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:photoshop
start photoshop.exe
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:exp
start explorer.exe
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:gify
start http://giphy.com/gifs/80s-marty-feldman-PaDc0tDWmxCW4
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:help
echo no info given yet for this option
pause
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:commands1
echo if you are using this command you should already know what your doing...
set /p commandsmenuoption= CMD:
if /i "%commandsmenuoption%"=="ip" goto :ipconfig
if /i "%commandsmenuoption%"=="ipconfig" goto :ipconfig
if /i "%commandsmenuoption%"=="md" goto :makedir
if /i "%commandsmenuoption%"=="makefolder" goto :makedir
if /i "%commandsmenuoption%"=="netstat" goto :netstat
if /i "%commandsmenuoption%"=="ping" ( goto :webping
	) else (
	cls
	doskey /reinstall
	goto :commands1
	)

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::	

:netstat
netstat -an
pause
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:webping
set /p webaddress= Address / IP:
set /p ipcount= Count (Enter 1 for 1 ping):
set /p iptimeout= Timeout:
set /p ipsize= Size:
ping %webaddress% -n %ipcount% -w %iptimeout% -l %ipsize%
pause
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:lockfolder
ren Private "HTG Locker" 
attrib +h +s "HTG Locker" 
echo Folder locked
pause
goto :mainb


:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:calcul
start "" "\Batch OS\Programs\calculatorwdec.bat"
cls
goto :mainb


:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:notepad++
start "" "\Batch OS\Programs\Notepad++\notepad++.exe"
cls
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:cmd1
start
goto :mainb


:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:testbench
start testbench.bat
goto :mainb

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:google
cls
echo Search: 
set string=%string: =+%
set /p SC=
start http://www.google.com/search?q=%SC%
goto :menua

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:makedir
cls
SET /P dirl= Directory Location (type quit to go back):
if %dirl%==quit goto :menua
md %dirl%
echo Done!
pause
goto :menua

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:ipconfig

ipconfig /all
pause
cls
goto :menua

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:timer
start "" "\Batch OS\Programs\timer.bat"
cls
goto :menua

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:sys
cls
call sys.bat
pause <nul
goto :menua

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:gamepack
%cd% <nul
call Start.bat
goto :maina

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:taskman
Title Process Manager inside Greg's Batch OS
SETLOCAL ENABLEDELAYEDEXPANSION
PUSHD "%TEMP%"
set SPW=0
set offset=
set sorder=
set osetpid=27
set osetmem=60
set osetcpu=141

:Reload
cls
set num=0
echo -----------------------------------------------
echo [Process Name]      [PID]       [MEM] [CPUTime]
echo -----------------------------------------------
if not defined NAME set NAME=All
if "!NAME!" == "All" (
tasklist /FO TABLE /NH /V | SORT !offset! !sorder! >"plist.txt"
) else (
tasklist /FI "USERNAME eq !NAME!" /FO TABLE /NH /V | SORT !offset! !sorder! >"plist.txt"
)
for /f "tokens=*" %%a in (plist.txt) do (
set /a num+=1
set tempvar=%%a
if "!tempvar:~34,1!" == " " (
set "list=!tempvar:~0,20! !tempvar:~29,5! !tempvar:~66,9!K!tempvar:~147,10!"
set osetpid=29
set osetmem=66
set osetcpu=147
) else (
set "list=!tempvar:~0,20! !tempvar:~27,5! !tempvar:~60,9!K!tempvar:~141,10!"
set osetpid=27
set osetmem=60
set osetcpu=141
)
echo !list!
)
:Reload_End
del /F "plist.txt" >nul 2>&1
echo.
echo ----------------------------------------------
if "!NAME!"=="All" (
echo All processes - [!num!] Processes running
) else (
echo !NAME! - [!num!] Processes running
)
echo ----------------------------------------------
echo.
if not defined ac (
if /i "!NAME!"=="%username%" goto :MNG
if /i "!NAME!"=="SYSTEM" goto :MNG
if /i "!NAME!"=="All" goto :MNG
)
if /i "!ac!"=="A" set NAME=
if /i "!ac!"=="U" set NAME=%username%
if /i "!ac!"=="S" set NAME=SYSTEM
if /i "!ac!"=="T" goto :SPW
if /i "!ac!"=="E" goto :Explore
if /i "!ac!"=="K" goto :Kill
if /i "!ac!"=="M" goto :SMEM
if /i "!ac!"=="N" goto :SNAME
if /i "!ac!"=="P" goto :SPID
if /i "!ac!"=="X" EXIT
if /i "!ac!"=="menu" goto :menua
if /i "!ac!"=="1A" goto :menua
set ac=
goto :Reload


:MNG
echo Options:
echo  Sort by:    N=Name, P=PID,     M=MEM
echo  Show procs: A=All,  S=System,  U=User, T=Paths
echo  Functions:  K=Kill, E=Explore, X=Exit
echo  1a=Main Menu
set /p ac=Manage : 
if "!SPW!" == "1" goto :EOF
goto :Reload

:SPW
set SPW=1
cls
wmic process get ExecutablePath,ProcessID
echo.
call :MNG
if /i "!ac!"=="E" set SPW=0&&goto :Explore
if /i "!ac!"=="K" set SPW=0&&goto :Kill
set SPW=0
goto :Reload


:Kill
echo Type PID to Kill.
set /p PID=PID: 
if not defined PID (
set ac=
goto :Reload
)
taskkill /F /PID !PID! >nul 2>&1
if errorlevel 1 (echo No task running with this PID.) else (
if !PID! geq 0 if !PID! lss 10 (
echo Cannot kill a critical process.
goto :clr_var
) else (
echo Success: Task with PID=!PID!
echo          has been terminated.
))
:clr_var
set ac=
set PID=
set exepath=
del /F "path.txt" >nul 2>&1
pause >nul
goto :Reload

:Explore
echo Type PID to explore.
set /p PID=PID: 
if not defined PID (
set ac=
goto :Reload
)
if !PID! lss 10 goto :clr_var
if !PID! gtr 10000 goto :clr_var
wmic process get ProcessID,ExecutablePath | find " !PID!" >"path.txt"
for /f "delims=" %%a in (path.txt) do (
set tempvar=%%a
for /f "delims=" %%b in ("!tempvar!") do set exepath=%%~dpb
)
if not defined exepath (
echo No task running with this PID.
pause >nul
) else (
explorer ""!exepath!""
)
goto :clr_var

:SNAME
set offset=
set sorder=
set ac=
goto :Reload

:SPID
set offset=/+!osetpid!
set sorder=
set ac=
goto :Reload

:1a
cls
goto :maina

:SMEM
set offset=/+!osetmem!
set sorder=/R
set ac=
goto :reload

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:ColorText [%1 = Color] [%2 = Text]
set /p ".=." > "%~2" <nul
findstr /v /a:%1 /R "^$" "%~2" nul 2>nul
set /p ".={BS}{BS}" <nul
if "%3" == "end" set /p ".=  " <nul
del "%~2" >nul 2>nul
exit /b


:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:ColorText1 [%1 = Color] [%2 = Text]
set /p ".=." > "%~2" <nul 
findstr /v /a:%1 /R "^$" "%~2" nul 2>nul
set /p ".= " <nul
if "%3" == "end" set /p ".=  " <nul
del "%~2" >nul 2>nul

:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:last
doskey /reinstall
exit /b
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

Last Edit: Feb 9, 2015 21:09:43 GMT by enzo: added a fix and website

Aleksseolinks Guest	Batch OS RUN file code Mar 4, 2022 3:51:56 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Aleksseolinks on Mar 4, 2022 3:51:56 GMT We will help you promote your site, backlinks for the site are here inexpensive <a href=http://links-for.site>www.links-for.site</a>

Aleksseolinks Guest	Batch OS RUN file code Mar 4, 2022 3:54:54 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Aleksseolinks on Mar 4, 2022 3:54:54 GMT We will help you promote your site, backlinks for the site are here inexpensive <a href=http://links-for.site>www.links-for.site</a>

Aleksseolinks Guest	Batch OS RUN file code Mar 4, 2022 3:56:11 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Aleksseolinks on Mar 4, 2022 3:56:11 GMT We will help you promote your site, backlinks for the site are here inexpensive <a href=http://links-for.site>www.links-for.site</a>

Jamesenept Guest	Batch OS RUN file code Mar 13, 2022 0:22:04 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Jamesenept on Mar 13, 2022 0:22:04 GMT Play and win, the first deposit bonus is 100% <a href=https://clck.su/ZkiKH>https://clck.su/ZkiKH</a>

Jamesenept Guest	Batch OS RUN file code Mar 13, 2022 0:23:25 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Jamesenept on Mar 13, 2022 0:23:25 GMT Play and win, the first deposit bonus is 100% <a href=https://clck.su/ZkiKH>https://clck.su/ZkiKH</a>

Jamesenept Guest	Batch OS RUN file code Mar 13, 2022 0:24:46 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by Jamesenept on Mar 13, 2022 0:24:46 GMT Play and win, the first deposit bonus is 100% <a href=https://clck.su/ZkiKH>https://clck.su/ZkiKH</a>

Reply

Quick Reply