Jump to content

geezery

Member
  • Posts

    254
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    Finland

Everything posted by geezery

  1. http://detectmobilebrowser.com/
  2. $sql = "SELECT a.iso2,a.land FROM laenderliste a, regionen b WHERE a.iso2 = b.iso2 AND b.vid <> '$vid'";
  3. I'm not using such tools since there is no available license information in those programs. I have done a batch script that integrates all the patches and puts my extra settings also. Example script @echo off REM Change to correct drive D: cls REM Mount dir for install.wim SET MOUNTDIR=D:\Mount SET LOGFILE=D:\Win7_Updates\win7_slipstream.log REM install.wim location SET WIMLOC=D:\Win_Ent_7_32BIT_UK\sources\install.wim REM Check if install.wim exists IF NOT EXIST %WIMLOC% echo install.wim tiedoston sijainti on vaara, ohjelma suorittaminen lopetetaan && pause && EXIT REM Critical Windows Updates folder SET WINUPDATESFOLDER_CR="D:\Win7_Updates\Critical Updates" REM Important Updates folder SET WINUPDATESFOLDER_SU="D:\Win7_Updates\Important Updates" REM Folder for Drivers where you can add all the needed drivers SET DRIVERSFOLDER="D:\Win7_Updates\Drivers" REM Folder for lp.cab files SET LANGPACKS="D:\Win7_Updates\Language Packs" REM Folder for .Net 3.5 updates SET DOTNET35UPDATES="D:\Win7_Updates\.NET Framework 3.5 SP1 Updates" REM Check that Mount dir exists IF NOT EXIST %MOUNTDIR%\NUL md %MOUNTDIR% echo ** 1. Mount the install.wim %MOUNTDIR% folder ** echo. REM Mount the image echo on dism /Mount-Wim /WimFile:%WIMLOC% /index:1 /MountDir:%MOUNTDIR% @echo off echo. echo. cls echo ** 2. Installing Critical updates ** echo. echo. echo on dism /image:%MOUNTDIR% /LogPath:%LOGFILE% /Add-Package /PackagePath:%WINUPDATESFOLDER_CR% cls @echo off echo ** 3. Installing Important updates ** echo. echo. echo on dism /image:%MOUNTDIR% /LogPath:%LOGFILE% /Add-Package /PackagePath:%WINUPDATESFOLDER_SU% cls @echo off echo ** 4. Installing .NET 3.5 updates ** echo. echo. echo on dism /image:%MOUNTDIR% /LogPath:%LOGFILE% /Add-Package /PackagePath:%DOTNET35UPDATES% @echo off cls echo ** 5. Installing country settings / language packs ** echo. echo. echo on dism /image:%MOUNTDIR% /LogPath:%LOGFILE% /Add-Package /PackagePath:%LANGPACKS% @echo off cls echo. echo. Dism /image:%MOUNTDIR% /Set-AllIntl:fi-FI Dism /image:%MOUNTDIR% /Set-TimeZone:"FLE Standard Time" REM Set the serial key to KMS Dism /image:%MOUNTDIR% /Set-ProductKey:XXXXX-XXXXX-XXXXX-XXXXX-XXXXX REM Enable some must have features. "Get list of features (Dism /image:D:\Mount /Get-Features /Format:List > D:\Features.txt)" Dism /image:%MOUNTDIR% /Enable-Feature /FeatureName:TelnetClient Dism /image:%MOUNTDIR% /Enable-Feature /FeatureName:SNMP Dism /image:%MOUNTDIR% /Enable-Feature /FeatureName:WMISnmpProvider @echo off echo ** 5. Unmount the image and commit changes ** echo on Dism /Unmount-Wim /MountDir:%MOUNTDIR% /commit @echo off
  4. Maybe you could try the solution from here, then you would not need to know the propery names: http://efreedom.com/Question/1-2824299/Select-First-Property-Unknown-Name-First-Item-Array-JSON
  5. Hello, I have tried to figure out all day why I cannot add all the Windows 7 updates to install.wim. I figured out that after installing Windows6.1-KB976902-x86.cab something goes wrong and no new updates cannot be added after this package. If you apply that package at last then everything works, but I think there is some problems with this update. Just to let you know:)
  6. SourceFolder = "C:\Temp2\" DestinationFolder = "C:\" Set WshShell = WScript.CreateObject("Wscript.Shell") vProgData = WshShell.ExpandEnvironmentStrings("%systemdrive%") Set objShell = CreateObject("Shell.Application") Set objDictionary = CreateObject("Scripting.Dictionary") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFl = oFSO.GetFolder(SourceFolder) Set Files = oFL.Files Filecount = 0 For Each File In Files Filecount = Filecount + 1 objDictionary.Add Filecount, File.Name Next Randomize For i=1 To objDictionary.Count objNbr = Int(objDictionary.Count * Rnd + 1) Next RandomFile = objDictionary.Item(objNbr) oFSO.CopyFile SourceFolder & RandomFile,DestinationFolder & "user.bmp",True MsgBox "File " & Randomfile & " copied to " & DestinationFolder & "user.bmp"
×
×
  • Create New...