IconResizer 1.00

Wer das Bedürfnis haben sollte, die Grösse der Icons auf dem Desktop eines Windows Vista oder Windows 7-Systems anzupassen, für den habe ich auch ein kleines Script parat:

 ‚****************************************************************************
‚** 
‚** Title:   iTrain Icon Sizer 1.00
‚** Author:  a.pflaum@itrain.ch
‚** Created: 27.08.2010
‚**
‚****************************************************************************

‚ Hier kann die Grösse der Icons angegeben werden:
vIconSize = „48“

‚ ***************************************************************************
‚ Verarbeitungsaufgaben
‚ ***************************************************************************

‚ Schreiben des Registry-Wertes für die Icon-Grösse
Const HKCU = &H80000001
Set oWMIReg = GetObject(„winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv“)
oWMIReg.SetDWORDValue HKCU, „Software\Microsoft\Windows\Shell\Bags\1\Desktop“, „IconSize“, vIconSize

‚ Beenden des Explorer-Prozesses, damit die Einstellungen neu geladen werden
pgm = „explorer.exe“
Set wmi = getobject(„winmgmts:“) 
sQuery = „select * from win32_process where name='“ & pgm & „‚“
Set processes = wmi.execquery(sQuery) 

ForEach processIn processes
    process.terminate
Next

Einfach die Variable „vIconSize“ auf den gewünschten Wert einstellen und das Script als VBS ausführen. Auf Wunsch natürlich auch über einer Gruppenrichtlinie als Anmeldescript ;-D…

VN:R_U [1.9.22_1171]
Rating: 10.0/10 (1 vote cast)
VN:F [1.9.22_1171]
Rating: +1 (from 1 vote)
IconResizer 1.00, 10.0 out of 10 based on 1 rating

Schreib einen Kommentar