|
|||||
 |
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard",,48) For Each objItem in colItems Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Layout: " & objItem.Layout Next Bookmark It Hide Sites $$(‘div.d206′).each( [...] This example gets some basic operating system information and saves in a file, shows FSO and some basic WMI usage.
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("F:\vbscript\os.txt") strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Select * from [...] Set objWMIService = GetObject(“winmgmts:”) Bookmark It Hide Sites $$(‘div.d131′).each( function(e) { e.visualEffect(’slide_up’,{duration:0.5}) }); searches a location for mp3 files and then displays them in a word document Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() Set objSelection = objWord.Selection objWord.Visible = True objSelection.TypeText "MP3 lister" objSelection.TypeParagraph() objSelection.TypeText "" & Now objSelection.TypeParagraph() objSelection.TypeParagraph() objWord.FileSearch.FileName = "*.mp3" objWord.FileSearch.LookIn = "D:\" objWord.FileSearch.SearchSubfolders = True objWord.FileSearch.Execute For Each objFile in objWord.FileSearch.FoundFiles objSelection.TypeText objFile objSelection.TypeParagraph() Next Bookmark It Hide [...] Get disk info using VBScript and the FSO Set objFso = CreateObject("Scripting.FileSystemObject") Set drive = objFso.GetDrive("C") With drive Wscript.Echo "Available Space:", .AvailableSpace & vbCrLF & _ "Drive Letter:", .DriveLetter & vbCrLF & _ "Drive Type:", .DriveType & vbCrLF & _ "File System:", .FileSystem & vbCrLF & _ "Free Space:", .FreeSpace & vbCrLF & _ "Is Ready:", .IsReady & vbCrLF [...] |
 |
|||
|
Copyright © 2010 Progged programming site - All Rights Reserved |
|||||
