תחומים - פורום חרדי מקצועי

@בערל
אני הצלחתי להתקין 12 אופליין ולדלג על האקטיביזציה.
ובגלל שהוא לא התחבר כלל לשרת, אין לו פג תוקף עבור הרישיון...
עכשיו התור שלכם למצוא פתרון לעדכון אופליין.

פשוט עקבתי אחרי השינויים בריגר'סטרי, ויצרתי עותק של הערכים שהשתנו או התווספו.

Eset AV 12.reg

@shraga אמר במחיקת קבצים לפי מאפיין:

כמו"כ אני מחפש תוכנה פשוטה למחיקת קבצים כפולים עם אותו hash

ב ccleaner יש אפשרות כזאת.

כך נראה האקסל עם סרגל כלים שאני בניתי לבית כנסת שנה שעברה

לוחצים על הוספת מקומות ומציירים מפה,
לאחר מכן מגדירים את התא עם הנתונים טור שורה מקום
ניתן להגדיר קבוצה או טור או שורה או תא בודד בפעם אחת.

הנתונים מופיעים בעמודה A:A ומופיעים תיבת גלילה, ומובן יש אירוע עדכון לאחר הוספה או מחיקה,
כמובן בסוף ניתן להדפיס את המפה והדוח.

ה DB על אקסס

נ.ב. זה לא תוכנה מושלמת, עשיתי רק מה שהייתי צריך.

אפשר לעשות קוד VBA שיעצב לך את הפקדים לפי הדרישה שלך.
לדוגמא קוד עבור פקד מסוג CONTROL יכלול גודל גופן סוג דופן צבע פקד רקע ועוד.

ובטעינה של הטופס תריץ לולאה על כל הפקדים שיקבלו עיצוב כמו שמוגדר בפונקציה.

כנראה שיש,
אבל זה מסובך מכיוון שאין אפשרות לראות האם נמצאו רשומות וכמה?
אלא הוא רץ לראשון שנמצא.

אפשר כמובן לעשות מאקרו עם IF של DCount,
אבל המתכנתים והמתקדמים ממש לא אובהים את זה.

יש רק דברים בודדים שאפשר לעשות דרך מקרו בלבד,
כמו AutoExec וגם יש אופציה של טבלאות מסונכרנות (כמה שזכור לי).

https://www.symantec.com/connect/articles/how-sysprep-windows-vista-7-or-8-image-more-three-times

מקור:

1) Open up Registry Editor. (Start > Run > regedit)

2) Browse to HKEY_LOCAL_MACHINE\System\Setup\Status\Sysprep Status.

3) Change the value of CleanupState to 2. (0x00000002)

4) Change the value of GeneralizationState to 7. (0x00000007)

5) Browse to HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\SoftwareProtectionPlatform.

6) Change the value of SkipRearm to 1. (0x00000001)

7) Open an administrative command prompt. (Start > Run > cmd... right click on the cmd icon and go to Run as Administrator)

8) Type msdtc -uninstall and push enter.  Wait a minute and reboot.

9) Type msdtc -install and push enter.  Wait a minute and reboot.

10) Browse to c:\windows\system32\sysprep.  Delete the panther folder.

11) Run sysprep.  It should now complete, and you can capture the image.

@macroshadow
ברוך הבא, חיכינו לך כאן הרבה זמן.

@shraga
זה נראה גם התהליך הכי קל והכי נוח,
אין צורך בשום Cclener ודומיו אם עושים את זה בצורה טובה.

• התקנה נקייה של וינדוס.
• עדכוני מיקרוסופט ותוכנות.
• sysPrep
• Imagex מדיסק חיצוני ( Win PE).

ההתקנה הכי קלה ע"י שמחליפים את קובץ המקור (Install.WIM) בקובץ שנוצר ויש לך
התקנה של מיקרוסופט עם האימג' שלך.

אם אתה מעוניין אני יפרט יותר, זה תהליך קל פשוט ויותר תיקני ואין צורך בשום תוכנות חיצוניות מיותרות.

@shraga
צריך להשתמש ב sysprpe בשביל למחוק את הדרייברים הבסיסים שמובנים במערכת ומוגדרים אוטמטי כדי שלא יעברו לעותק הבא
וגם בשביל למחוק את המשתמשים וכל ה AppData וכדו'

בנוסף לדעתי מומלץ להשתמש ב ImageX של מיקרוסופט פשוט וקל וליצור אימג' עם סיומת WIM ואפשר פשוט לההליף אותו בקובץ Install.wim שנמצא בתוך ההתקנה של הוינדוס (מ 7 ומעלה).

בנוסף הוא יודע מאיזה תיקיות להתעלם בגיבוי כמו סל המיחזור וטמפ וכדו'.

בנוסף אפשר להשתמש עם זה כדי ליצור כמה עותקים של וינדוס בקובץ אחד ולבחור בהתקנה איזה אימג' לפרוס (כמו בבחירה שיש בוינדוס מקורי).

לפי מה שנראה, הבעיה שלא מוגדר אצלך נכון חשבון מנהל (Administratr),
ולכן גם מתשמים אחרים לא מקבלים הרשאות מנהל.

בשביל להגדיר את זה צריך להפעיל את המחשב במצב בטוח (SafeMode),
(אני הייתי מנסה גם ללא מצב בטוח, אבל הפעלה מחדש לאחר מכן).

ובשורת הפקודה להריץ את הפקודות האלו:

net user administrator /active:yes
net user administrator ANY_PASSWORD
net localgroup Administrators YOUR_USER_NAME /add

להסבר מפורט על כל שורה כנס:
https://winaero.com/blog/fix-yes-button-disabled-in-uac-dialogs-in-windows-10-windows-8-and-windows-7/

אם עושים משהו בהתאמה אישית.

אפשר לעשות רק עם מייל ולשלוח בתבנית מסוימת (CSV) וכדו',
וישלח לכתובת מייל מוגדרת מראש והתוכן יפוענח ע"י התוכנה,
ואפשרי גם לקבל מייל חוזר מסוג התקבל, או שגיאה עם פירוט.

מצאתי סקריפט ב MyDigitalLife

@echo off


title Disable/Enable Windows 10 Automatic Updates
color 1f
:Begin UAC check and Auto-Elevate Permissions
:-------------------------------------
REM  --> Check for permissions
>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"


REM --> If error flag set, we do not have admin.
if '%errorlevel%' NEQ '0' (
echo:
echo   Requesting Administrative Privileges...
echo   Press YES in UAC Prompt to Continue
echo:


    goto UACPrompt
) else ( goto gotAdmin )


:UACPrompt
    echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
    echo UAC.ShellExecute "%~s0", "", "", "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"
:--------------------------------------


:Check Windows Version
wmic os get version | find /i "10.">nul 2>nul
if %errorlevel% neq 0 GOTO :Not10


:Check the key:
(reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU" /v "NoAutoUpdate"|find /i "0x1")>NUL 2>NUL
if %errorlevel% neq 0 GOTO :KEYOFF


:KEYON
echo ============================================================
echo Automatic Updates are currently disabled.
echo Would you like to re-enable them? (Y/N)
echo ============================================================
echo.
choice /c yn /n
If %ERRORLEVEL% NEQ 1 GOTO :QUIT


echo Attempting to shut down the Windows Update service if it's running
net stop wuauserv>NUL 2>NUL
echo.


Echo Changing Registry key
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU" /v "NoAutoUpdate" /D 0 /T REG_DWORD /F>NUL 2>NUL
IF %ERRORLEVEL% NEQ 0 GOTO :ERROR
Echo.


Echo Automatic Updates have been enabled
Echo.
goto :QUIT




:KEYOFF
echo ============================================================
echo Automatic Updates are currently enabled.
echo Would you like to disable them? (Y/N)
echo ============================================================
echo.
choice /c yn /n
If %ERRORLEVEL% NEQ 1 GOTO :QUIT


echo Attempting to shut down the Windows Update service if it's running
net stop wuauserv>NUL 2>NUL
echo.


Echo Changing Registry key
REG ADD "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU" /v "NoAutoUpdate" /D 1 /T REG_DWORD /F>NUL 2>NUL
IF %ERRORLEVEL% NEQ 0 GOTO :ERROR
Echo.


Echo Automatic Updates have been disabled
Echo.
goto :QUIT




:QUIT
echo ============================================================
echo Press any key to exit...
echo ============================================================
pause>NUL
goto :EOF


:ERROR
echo ============================================================
echo The script ran into an unexpected error setting reg key.
echo Press any key to exit...
echo ============================================================
pause>NUL
goto :EOF


:Not10
echo ============================================================
echo This script is only designed for Windows 10...
echo Press any key to exit...
echo ============================================================
pause>NUL
goto :EOF!

https://forums.mydigitallife.net/threads/windows-10-automatic-updates-enable-disable-script.62525/

@clickone
לאחר מאמצים מרובים נמצא הפתרון והכל ב VBA

0_1518658389338_Barcode.rar

Option Compare Database

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

'בדיקת קבצים
'fileExists(Environ("SystemRoot") & "\fonts","ean-13")
Function fileExists(s_directory As String, s_fileName As String) As Boolean

  Dim obj_fso As Object, obj_dir As Object, obj_file As Object
  Dim ret As Boolean
   Set obj_fso = CreateObject("Scripting.FileSystemObject")
   Set obj_dir = obj_fso.GetFolder(s_directory)
   ret = False
   For Each obj_file In obj_dir.Files
     If obj_fso.fileExists(s_directory & "\" & s_fileName) = True Then
        ret = True
        Exit For
      End If
   Next

   Set obj_fso = Nothing
   Set obj_dir = Nothing
   fileExists = ret

 End Function
'הרצה של שורת הפקודה
'AddFont "ean-13.ttf", CurrentProject.Path
Function AddFont(sFontName As String, sSourceFolder As String)
Dim sSystemFontFolder As String
Dim cmdCopy As String, cmdAddReg As String, cmdPause As String, command As String
Dim sRegFullKey As String

sSystemFontFolder = """" & Environ("SystemRoot") & "\FONTS\" & """"

cmdCopy = "/c copy"
cmdCopy = cmdCopy & " " & """" & sSourceFolder & "\" & sFontName & """"
cmdCopy = cmdCopy & " " & sSystemFontFolder
sRegFullKey = " """ & "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts" & """"
cmdAddReg = "reg add" & sRegFullKey
cmdAddReg = cmdAddReg & " /v " & """" & Left$(sFontName, Len(sFontName) - 4) & " (TrueType)" & """"
cmdAddReg = cmdAddReg & " /t REG_SZ"
cmdAddReg = cmdAddReg & " /d " & sFontName & " /f"
cmdPause = " & pause"
command = cmdCopy & " & " & cmdAddReg & cmdPause

    ShellExecute 0, "runas", "cmd", command, "C:\", SW_SHOWHIDE
End Function

תודה על העזרה

אני החלטתי לבדוק אפשרות אחרת להשתמש ב appSheet
והנתונים יישבו באקסל של גוגל.

@רבנן-ברכו אמר באגרון בווינ. 10 - מה אפשר לעשות?:

@פישל יש מצב להעלות פה את אגרון?! תודה

זה לא חוקי
והמנהל @dovid המסור של הפורום לא מאשר פעילות כזאת בתחום שלו.

@dovid
ממש תודה רבה על ההסבר המפורט.

אתה יכול להשתמש ב OpenArgs
את הפתיחה של הטופס תעשה עם קוד

DoCmd.OpenForm "Form1" , , , , , , Me.Name

ובכפתור של חזרה תוסיף את הקובץ הבא

DoCmd.OpenForm Me.OpenArgs

@by6199 אמר בלמה אין מכונה לבדיקת הדסים. האם זה אפשרי?:

מה שבטוח שזה לא שונה מהגהת מחשב לסת"ם שם זה שווה למרות שיש מעתיקים.
וכמובן שהדסים נצרכים יותר מסת"ם שם כל אחד צריך תפילין ומזוזות בגדול פעם בחיים בשונה מהדסים

בבדיקה של סתם זה הרבה פחות מורכב, מכיון שזה רק צילום ופענוח טקסט לצורות של אותיות (ואתה גם מצפה למשהו מסוים),
אבל בהדסים אתה צריך למצוא את המיקום של הקנה של כל עלה ולהחליט מה הדרגות של השילוש ולמיין לפי זה, מכיוון שזה לא שחור ולבן ולא הכל פרוס לפניך אז זה הרבה יותר מסובך.

@הבוס-הגדול
כדאי להחליף ל 7 או ל 10,
בלי קשר לסוג המעבד.
וכמובן לשדרג ל SSD.

אם אתה מדבר על יד שניה, מומלץ ניידים של ThinkPad ניתן למצוא אצל טכנאי מחשבים, או בוואלה שופס.
אם אתה מדבר על חדש, אז תלוי אם זה כולל מערכת הפעלה, SSD, וכו'.
ואם אתה רוצה אני יכול לתת לך לינק (שיתופים) עבור KSP.