Windows7 : VBScriptã§ã€ã‚³ãƒ³ãƒˆãƒãƒ¼ãƒ«ãƒ‘ãƒãƒ«å†…ã®ã‚¨ãƒ³ãƒˆãƒªã®å®Ÿè¡Œ : logical　errorWindows7 ã§å®Ÿè¡Œã—ã¦ç¢ºèªã—ã¾ã—ãŸã€‚Windows XP 以å‰ã§ã¯å°‘ã—é•ã£ã¦ã„ãŸã®ã§ã™ãŒã€å½“時ã®ã‚³ãƒ¼ãƒ‰ã‚’ Windows7 ã§å®Ÿè¡Œã™ã‚‹ã¨å‹•ã‹ãªã‹ã£ãŸã®ã§å†åº¦ãƒ†ã‚¹ãƒˆã—ã¾ã—ãŸã€‚ ' Windows7 ã§ã®å®Ÿè¡Œã‚µãƒ³ãƒ—ル Set objShell = CreateObject("Shell.Application") ' All Control Panel Items ControlPanel = "::{21EC2020-3AEA-1069-A2DD-08002B30309D}" ' コントãƒãƒ¼ãƒ«ãƒ‘ãƒãƒ«ã‚’ã‚らã‚ã™ãƒ•ã‚©ãƒ«ãƒ€ Set objFolder = objShell.NameSpace(ControlPanel) ' オブジェクトãŒæ£å¸¸ã«å–å¾—ã§ããŸå ´åˆ if not objFolder is nothing then ' フォルダã®ä¸ã®ã‚¢ã‚¤ãƒ†ãƒ コレクションをå–å¾— Set objFold
{{#tags}}- {{label}}
{{/tags}}