Jump to content

florydude

Member
  • Posts

    13
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Romania

About florydude

Profile Information

  • OS
    Vista Business x86

florydude's Achievements

0

Reputation

  1. Do you mean "wb-ie7b1.rar" ? Does not have any iesetup.exe, or I cant read it correct from the server. SP2 Vanilla works fine ATM with no updates, but I could not recover the messages only from a backup-DVD. I don't know what is with this PC since I installed on a 6 GB partition Ubuntu 8.10 and after install was finishing has been stooped at some language files near 100%. On XP SP1 I had similar problems wile I have accessed a shared folder on the server and I could only copy empty files, but after upgrading to SP2 Vanilla now is any file is working fine direct from same server.
  2. I lost my messages from more them one year do to a "partition disappearance" and I have on that HDD some downloaded from my ISP server in WLM *.eml format. I did only imported about 10 very important messages and some contacts from the old list to this PC so that I can add them back to Address Book so that not all messages that I receive go direct in Spam Folder and from all other older DVD backups. I try to run WLM so that I can take a more close look on what other emails I have on that PC but there are some dependencies missing from shlwapi.dll that is included with IE7. I do remember that I used on XP SP1a the option /integrate to integrate IE7 B1 it in the C:\CD-Share folder, and I used IE7 with B1 and never worked with B2. I also remember that before I purchased this PC I had a workaround that did come, if I remember correct with "Vista Transformation Pack" to make the kernel use less RAM and the PC worked as works with Base XP. So, I was a little frustrated when I seen that I cant find any copy of IE7 B1, but there are many other ways to make WLM work even to wait 5 minutes for a program to load.
  3. Maybe, since is IE7-WindowsXP-x86-enu.exe and not IE7-B1-WindowsXP-x86-enu.exe, then there is no update/iesetup.exe, probably we most run update.exe ... P.S. Maybe someone can integrate this on a CD
  4. KernelEx is an Open Source compatibility layer by Xeno86 with an aim to allow running Windows 2000/XP-only applications on Microsoft Windows 98 and Microsoft Windows Millennium operating systems. I remember with a certain version on a Virtual PC with Win98 running some simple programs that do not run on Win2k, WinXP, etc.
  5. Wine (originally an acronym for "Wine Is Not an Emulator") https://www.winehq.org/about/ ...
  6. It's a Compaq Desktop 5086 with 200Mhz CPU (50x4) and 128 MB RAM (32x4 Edo) where I keep some very old stuff, and I need to recover some old messages and other stuff. SP2 may work but SP3 is out of question.
  7. There is any kernelx for xp that allows to run programs in compatibility mode like in wine ?
  8. Anyone still have a copy of IE7-B1-WindowsXP-x86-enu.exe ? I know that B1 may work on Windows XP with sp1a ...
  9. Hello, Aynone knows whatever Calibri font is included in any other package that can be downloaded from download.microsoft.com website, other then MS Office ? According to wiki: Calibri is a humanist sans-serif typeface family under the Microsoft ClearType Font Collection. In Microsoft Office 2007, it replaced Times New Roman as the default typeface in Word[1] and replaced Arial as the default in PowerPoint, Excel, Outlook, and WordPad. It continued to be the default typeface in Microsoft Office 2010 and Microsoft Office 2013 applications. Thank you.
  10. Done with the attach. Also worked on how the get the servers list for syncronising the time-date: ' ' TimeDate Server List Script - ServersList.vbs ' ' '*************************************************************************** Option Explicit Dim WSHShell Set WSHShell = WScript.CreateObject("WScript.Shell") Dim Tme Set Tme = WScript.CreateObject("WbemScripting.SWbemDateTime") Dim objWMIService Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '-> Text Output Objects Dim ARW ARW = Chr(160) & Chr(187) & Chr(160) Dim RegKey, strDefault, strList RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" Dim strTimeServersKey strTimeServersKey = RegKey & "Windows\CurrentVersion\DateTime\Servers" '-> Read RegistryKey/DefaultValue Function GetList (strTimeServersKey, strDefault) On Error Resume Next Dim i,j,k Dim Servers Servers = " " k = 0 Do k = k + 1 WSHShell.RegRead(strTimeServersKey & "\" & k) Loop While err.number = 0 Err.Clear j = k - 1 Dim ServersDigit() For i = strDefault to j Do i = i + 1 ReDim Preserve ServersDigit(i) ServersDigit(i) = WSHShell.RegRead(strTimeServersKey & "\" & i) Servers = Servers & VbCrLf & i & ARW & ServersDigit(i) Loop While err.number = 0 Next GetList = Servers strList = " DateTime Servers List " & ARW & ServersDigit End Function if WScript.arguments.count<1 then strList = GetList(strTimeServersKey, 0) MsgBox "Date-Time Servers: " & strList, vbinformation, "DateTime Servers" else MsgBox "Usage: CScript ServersList.vbs", vbinformation, "DateTime Servers" WScript.quit end if Can be fixed a little more on how the array is builded etc. ServersList.zip
  11. I ported the GetKey() function to a simple VBS script: ' ' GetKey.vbs v1.0 by flory ' ' '*************************************************************************** ' ' Option Explicit 'Use VbCrLf ON ERROR RESUME NEXT Dim WSHShell, KEY, ID Set WSHShell = WScript.CreateObject("WScript.Shell") Dim strResultKey, strResultId Dim Tme Set Tme = WScript.CreateObject("WbemScripting.SWbemDateTime") Dim objWMIService Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") '-> Text Output Objects Dim ARW ARW = Chr(160) & Chr(187) & Chr(160) Dim RegKey RegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\" Dim strProductKey, strProductID, strProductOS strProductKey = RegKey & "Windows NT\CurrentVersion\DigitalProductId" strProductID = RegKey & "Windows NT\CurrentVersion\ProductId" Dim strDefault strDefault = "ProductId" '-> Get The TimeDate Server Key Function GetKey(ByVal rpk) Dim i, j Dim dwAccumulator, KeyProductID dwAccumulator = "" KeyProductID = "" Const rpkOffset = 52 : i = 28 Dim szPossibleChars szPossibleChars = "BCDFGHJKMPQRTVWXY2346789" Do dwAccumulator = 0 : j = 14 Do dwAccumulator = dwAccumulator * 256 dwAccumulator = rpk(j + rpkOffset) + dwAccumulator rpk(j + rpkOffset) = (dwAccumulator \ 24) And 255 dwAccumulator = dwAccumulator Mod 24 j = j - 1 Loop While j >= 0 i = i - 1 : KeyProductID = Mid(szPossibleChars, dwAccumulator + 1, 1) & KeyProductID If (((29 - i) Mod 6) = 0) And (i <> -1) Then i = i - 1 : KeyProductID = "-" & KeyProductID End If Loop While i >= 0 GetKey = KeyProductID KEY = " " & ARW & KeyProductID End Function if WScript.arguments.count<1 then strResultKey = GetKey(WSHShell.RegRead(strProductKey)) strResultId = Left(Replace(WSHShell.RegRead(strProductID),"-",""),8) MsgBox "ProductKey: " & strResultKey & VbCrLf & "Product PID: " & strResultId, vbinformation, "Windows Install Check" else WScript.echo "Correct usage: Cscript GetKey.vbs" WScript.quit end if I'm wondering how can such function list all key / values from a simple registry key as for example: strTimeServersKey = RegKey & "Windows\CurrentVersion\DateTime\Servers" for let's say an array of 6 values : [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DateTime\Servers] @="2" "1"="time.windows.com" "2"="time.nist.gov" "3"="timekeeper.isi.edu" "4"="usno.pa-x.dec.com" "5"="tock.usno.navy.mil" "6"="tick.usno.navy.mil" GetKey_vbs.zip
×
×
  • Create New...