• Home
 · 
• Miscellaneous
 · 
• Get the desktop settings of a specific user using Win32_Desktop WMI class

Get the desktop settings of a specific user using Win32_Desktop WMI class

Get the desktop settings of a specific user using Win32_Desktop WMI class

Rate Get the desktop settings of a specific user using Win32_Desktop WMI class

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error Resume Next
Computer = "."
Set WMIService = GetObject("winmgmts:\\" & Computer & "\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_Desktop where Name='KARTHIK\\Administrator'")
Set OutFile = CreateObject("WScript.Shell")
Const ForAppending = 2
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set TextFile = FileSystem.OpenTextFile ("c:\Desktop2.txt", ForAppending, True)
TextFile.WriteLine "Desktop Settings as follows......"
TextFile.WriteLine

For Each Desktop in Items
TextFile.WriteLine "**********************************************************"
	TextFile.WriteLine "Name: " & Desktop.Name
	TextFile.WriteLine "Border Width: " & Desktop.BorderWidth
	TextFile.WriteLine "Cool Switch: " & Desktop.CoolSwitch
	TextFile.WriteLine "Cursor Blink Rate: " & Desktop.CursorBlinkRate
	TextFile.WriteLine "Drag Full Windows: " & Desktop.DragFullWindows
	TextFile.WriteLine "Grid Granularity: " & Desktop.GridGranularity
	TextFile.WriteLine "Icon Spacing: " & Desktop.IconSpacing
	TextFile.WriteLine "Icon Title FaceName: " & Desktop.IconTitleFaceName
	TextFile.WriteLine "Icon Title Size: " & Desktop.IconTitleSize
	TextFile.WriteLine "Icon Title Wrap: " & Desktop.IconTitleWrap
	TextFile.WriteLine "Pattern: " & Desktop.Pattern
	TextFile.WriteLine "Screen Saver Active: " & Desktop.ScreenSaverActive
	TextFile.WriteLine "Screen Saver Executable: " & Desktop.ScreenSaverExecutable
	TextFile.WriteLine "Screen Saver Secure: " & Desktop.ScreenSaverSecure
	TextFile.WriteLine "Screen Saver Timeout: " & Desktop.ScreenSaverTimeout
	TextFile.WriteLine "Wall paper: " & Desktop.Wallpaper
	TextFile.WriteLine "Wall paper Stretched: " & Desktop.WallpaperStretched
	TextFile.WriteLine "Wall paper Tiled: " & Desktop.WallpaperTiled
TextFile.WriteLine "**********************************************************"
Next
TextFile.Close
OutFile.Run "notepad.exe c:\Desktop2.txt",1,True