Arkiv

SpecialFolders

‘ Wscript Shell Dim WshSpecialFolders Set WshSpecialFolders = WScript.CreateObject(«WScript.Shell») Wscript.Echo WshSpecialFolders.SpecialFolders(«AllUsersDesktop») Wscript.Echo WshSpecialFolders.SpecialFolders(«AllUsersStartMenu») Wscript.Echo WshSpecialFolders.SpecialFolders(«AllUsersPrograms») Wscript.Echo WshSpecialFolders.SpecialFolders(«AllUsersStartup») Wscript.Echo WshSpecialFolders.SpecialFolders(«Desktop») Wscript.Echo WshSpecialFolders.SpecialFolders(«Favorites») Wscript.Echo WshSpecialFolders.SpecialFolders(«Fonts») Wscript.Echo WshSpecialFolders.SpecialFolders(«MyDocuments») Wscript.Echo WshSpecialFolders.SpecialFolders(«NetHood») Wscript.Echo WshSpecialFolders.SpecialFolders(«PrintHood») Wscript.Echo WshSpecialFolders.SpecialFolders(«Programs») Wscript.Echo WshSpecialFolders.SpecialFolders(«Recent») Wscript.Echo WshSpecialFolders.SpecialFolders(«SendTo») Wscript.Echo WshSpecialFolders.SpecialFolders(«StartMenu») Wscript.Echo WshSpecialFolders.SpecialFolders(«Startup») Wscript.Echo…

Reboot Computer

Sub RebootComputer(Force) ‘Reboots the computer. Dim oNet, objWMIService, colOperatingSystems, objOperatingSystem shutdownParam = 2 If Force Then shutdownParam = shutdownParam + 4 Set oNet = CreateObject(«WScript.Network») Set objWMIService = GetObject(«winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\» & oNet.ComputerName & «\root\cimv2») Set colOperatingSystems = objWMIService.ExecQuery(«Select * from Win32_OperatingSystem…

This site is protected by WP-CopyRightPro