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

@שלום-עולם

• איזה חיבור (כנראה Sata)?
• איזה חברה?
• כמה אחריות נשאר?
• מה המהירות קריאה / כתיבה?

והשאלה העיקרית כמה תרצה ע"ז.

נ.ב. אני לא מחפש לעצמי.

@yossiz
קובץ תיקון עבור 64 ביט patch2010-01-27-64bit.zip

עכשיו פתחו בנטפרי את האתר הזה config.office.com,
ואיתו ניתן ליצור בקלות קבצי קונפיגורציה.

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

https://www.askvg.com/tip-customize-microsoft-office-click-to-run-c2r-setup-to-install-selected-programs-only/

ליצור קובץ טקסט בשם "Configuration.xml" בתיקיה של ההתקנה של האופיס ליד קובץ ההתקנה "SetUp.exe".
ניתן גם להוריד את הכלי של מיקרוסופט, כדי לייצר תבניות של קובץ מותאם אישית, עם קובץ התקנה.

• להוריד את הקובץ הזה Download Office 2016 and Office 2019 Deployment Tool.
• להפעיל את הקובץ, לבחור מיקום לחילוץ הקבצים.
  לאחר החילוץ יהיה לכם קובץ SetUp.exe וקבצי קוניפגורציה.
• לערוך את קובץ הקונפיגורציה הרצוי תוכלו להעזר בזה.
• להריץ את קובץ ההתקנה עם פרמטרים.
  זה אפשרי או ע"י יצירת קיצור דרך לקובץ או דרך שורת הפקודה.
  עבור הורדה להריץ את הפקודה הזאת: setup.exe /download configuration.xml
  עבור התקנה בלבד (לאחר הורדה, או שיש לכם את קבצי ההתקנה) להריץ את הפקודה הזאת: setup.exe /configure configuration.xml

הנה דוגמא של קובץ קונפיגורציה, הגדרתי שם התקנה של אופיס ProPlus2019 בגירסת 64 ביט,
והגדרתי רשימה של תוכנות שאני לא מעוניין להתקין, וכמובן יש גם הגדרה עבור שפת ההתקנה:

  <Add OfficeClientEdition="64"
       Channel="PerpetualVL2019"
       OfficeMgmtCOM="TRUE"
       ForceUpgrade="FALSE"
       AllowCdnFallback="True">
    <Product ID="ProPlus2019Volume">
      <Language ID="he-il" />
      <ExcludeApp ID="Groove" />”
      <ExcludeApp ID="Lync" />
      <ExcludeApp ID="OneDrive" />
      <ExcludeApp ID="OneNote" />
      <ExcludeApp ID="Outlook" />
    </Product>
  </Add>
  <Display Level="Full" AcceptEULA="TRUE" />
</Configuration>

@מעמד
במיזוג דואר יש פקודה מסוג Next Record, כל עוד לא מימשת אותה אתה תמשיך מאותו שורה (מהטבלה), כדי לעבור לשורה הבאה אתה צריך להוסיף את הפקודה הנ"ל בתחילת התא.

והפתרון הוא לעשות דף שלם ללא הפקודה ורק בתא הראשון לשים את הפקודה הזו או באחרון.

כדי ליצור דף של מדבקות פותחים מסמך WORD > דברי דואר>תוויות
במסך שפתח ללחוץ על אפשרויות תוויות ושם לבחור את החברה והדגם.

לדוגמא חברת TANEX > דגם TW-2033 עבור 33 מדבקות בדף.
http://tanexlabel.com/etiketler/beyaz-etiketler/standart-olculer/

אני חושב שכאן מדובר בפונציה של RecordSet
ויש לבדוק בתחילה if Not EOF
ולאחריו לעבור על הרשומות ולבצע את המשימה הנדרשת.

חיפשתי בגוגל וניתן לבדוק זאת באפשרוית הבאות.

• דרך איחוי דיסק (איחוי ומיטוב כוננים / Disk Defragmenter)
  ניתן לפתוח דרך הפעלה (WIN+R) לכתוב dfrgui.

• לפתוח Power Shell עם הרשאות מנהל ולכתוב Get-PhysicalDisk
  

חשבתי כבר שזה עבור בית הכנסת...

@www
אני חיפשתי בשביל המצלמה שלו (כמדומני ELPH 520) הוראות (כלומר Service Manual),
אולי קנון עצמם לא מייחסים חשיבות למצלמות מהסדרה הזאת, או שאני לא חיפשתי טוב.

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

זה דוגמא למדריך שמצאתי בשבילי https://elektrotanya.com/panasonic_dmc-tz20_dmc-zs10.pdf/download.html

וזה תמונה של חלקי מצלמה

בכל אופן הכל אפשרי.

Sub Main()
Set objWMIService = GetObject("winmgmts://./root/cimv2")

Set ColItems = objWMIService.ExecQuery("Select * from Win32_BIOS where PrimaryBIOS = true", , 48)

For Each ObjItem In ColItems
    strMsg = strMsg _
           & "    BIOS Name       :  " & ObjItem.Name & vbCrLf _
           & "    Version         :  " & ObjItem.Version & vbCrLf _
           & "    Manufacturer    :  " & ObjItem.Manufacturer & vbCrLf _
           & "    Serial Number   :  " & ObjItem.SerialNumber & vbCrLf _
           & "    SMBIOS Version  :  " & ObjItem.SMBIOSBIOSVersion & vbCrLf
Next

Debug.Print strMsg
End Sub

    BIOS Name       :  Phoenix BIOS SC-T v2.1
    Version         :  LENOVO - 2400
    Manufacturer    :  LENOVO
    Serial Number   :  R9022X21
    SMBIOS Version  :  GNET92WW (2.40 )

מקור
https://www.tek-tips.com/viewthread.cfm?qid=1105123

Sub GetWindowsVersion()
    Dim SysReport As String
  
'Check Windows version.
'based on: http://answers.microsoft.com/en-us/office/forum/office_xp-access/VBA-to-find-windows-version/1a1e72f5-0b4a-4c6a-ba4c-a6964f4ee4cc
    Dim objWMIService As Variant
    Dim colOperatingSystems As Variant
    Dim objOperatingSystem As Variant
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & ".\root\cimv2")
    Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOperatingSystem In colOperatingSystems
        SysReport = SysReport & "The operating system on this computer is " & _
            objOperatingSystem.Caption & "  (" & objOperatingSystem.Version & ")"
    Next
    
'Determine if operating system is 32-bit or 64-bit
'-------------------------------------------------
'Modified from code provided at:
'  http://www.vb-helper.com/howto_get_os_name.html
    Dim proc_query As String
    Dim proc_results As Object
    Dim info As Object
    Dim IsWin32OrWin64 As String
    
    proc_query = "SELECT * FROM Win32_Processor"
    Set proc_results = GetObject("Winmgmts:").ExecQuery(proc_query)
    For Each info In proc_results
        IsWin32OrWin64 = info.AddressWidth & "-bit"
    Next info
    SysReport = SysReport & " " & IsWin32OrWin64 & "."
    
Debug.Print SysReport
End Sub

תוצאה:

The operating system on this computer is þþMicrosoft Windows 10 Pro  (10.0.18363) 64-bit.

מצאתי פתרון (אני מעלה לכאן לאחרים שיחפשו תשובה).
הוספתי Debug.Print Time כדי לראות כמה זמן זה לוקח.
וזה לקח לי בערך 3 שניות.

Function SystemOnline(ByVal ComputerName As String)
Debug.Print Time
    ' This function returns True if the specified host could be pinged.
    ' HostName can be a computer name or IP address.
    ' The Win32_PingStatus class used in this function requires Windows XP or later.
    ' Standard housekeeping
    Dim colPingResults As Variant
    Dim oPingResult As Variant
    Dim strQuery As String
    ' Define the WMI query
    strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'"
    ' Run the WMI query
    Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
    ' Translate the query results to either True or False
    For Each oPingResult In colPingResults
        If Not IsObject(oPingResult) Then
            SystemOnline = False
        ElseIf oPingResult.StatusCode = 0 Then
            SystemOnline = True
        Else
            SystemOnline = False
        End If
    Next
Debug.Print Time
End Function

@בערל
לאחרונה כל מי שפונה אלי בייעוץ לקניית מחשב נייד,
אני מציע לו לקנות ThinkPad יד שניה במקום חדש מכל חברה אחרת.

לדוגמא עכשיו שלחתי חבר לקנות דגם T560 יד שניה ב 2500 ש"ח (אחריות שנה), במקום לקנות חדש (אפילו שאני מרוויח מהפניות ל KSP).

אגב אני מאוד ממליץ לקנות ThinkPad אצל שלנג בבני ברק, התרשמתי שהוא אדם אמין ומקצועי.

שרות לקוחות ככל הנראה לא פעיל בשבת (זה לא רווחי ולא הכרחי).
שרות טכני לצערינו עובד בכל החברות 24/7 חוץ מיום כיפור.

החישוב הוא כזה לעניות דעתי

הספקים הוירטואלים משלמים לחברות האמיתיות לפי GB ולא לפי משתמשים וחבילות, וכל חברה מתמחרת בצורה שלה.
אגב כמה שידוע לי גם ספקי ISP של קווי ADSL משלמים לבזק לפי תעבורה ולא לפי לקוחות והם נותנים גלישה חופשית.
והסיבה היא שהם מתמחרים שעל כל אחד שלוקח להם 100GB לחודש יש כמה שבקושי עוברים את ה 10 GB.

דוגמא לחישוב בחיבור סלולרי:
ב 019 על 10 GB תשלם 40 ש"ח, ועל 40 GB תשלם 70.
אם ניקח בחשבון שעל כל 3 משתמשים שיש להם 10 גיגה יש 1 עם 40
אז התוצאה היא סה"כ 70 גיגה שימוש.

במקרה שלא תגביל אנשים שכיום יש להם 10 GB, אז הם ישתמשו עם 15 GB,
יוצא שהנפח הכולל הוא 15*3=45 והמשתמש של 40 GB כנראה משתמש ב 30 בממוצע (מקסימום), והגענו ל 75 GB.

אם תיקח מכל משתמש 50 ש"ח, תקבל עבור 75 GB תעבורה 200 ש"ח.

ובחברת 019 עבור תעבור של 60 GB הם יקבלו 190 ש"ח.

לתועלת רבים

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

מה עושה מי שלא משלם ארנונה, לדוגמא מי שגר ביחידה
איך הוא יוכל לקבל את המענק?

נ.ב. נא לא להגרר לפוליטיקה.

@aiib אמר בהביאו לפני מחשב -בירור היסטוריה:

@yits לא חושב שאדם פשוט יכול להחליט בכאלו מקרים. לפעמים צריך לגלות רגע לפני שיהיה מאוחר ולהציל מה שאפשר

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

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

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

למי שקצת מתקשה עדיף להשתמש עם GUI, להקליד את השורה הבאה.

shutdown /i

@בערל אמר במחיקת שורות באקסל שלא כוללות מילה מסוימת:

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

תוסיף מסנן על העמודה ובקריטריון תבחר אינו מכיל ""
ותמחק את כל השורות ידני.