MemoSoup » vbs http://www.memosoup.com Mix of the things I always forget Tue, 07 Feb 2012 00:03:54 +0000 en hourly 1 http://wordpress.org/?v=3.3.1 Using the clipboard in WSH http://www.memosoup.com/20100126/using-the-clipboard-in-wsh.html http://www.memosoup.com/20100126/using-the-clipboard-in-wsh.html#comments Tue, 26 Jan 2010 13:21:06 +0000 admin http://www.memosoup.com/?p=252 How to get the text from the clipboard

set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") textFromClipboard = objIE.document.parentwindow.clipboardData.GetData("text") objIE.Quit WScript.Echo textFromClipboard

How to put the text into clipboard

textIntoClipboard = "Some text" & VbCrLf & "Some more text"   Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" Do Until objIE.ReadyState = 4     WScript.Sleep 100 Loop   objIE.document.ParentWindow.ClipboardData.SetData [...]]]> How to get the text from the clipboard

set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
textFromClipboard = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
WScript.Echo textFromClipboard

How to put the text into clipboard

textIntoClipboard = "Some text" & VbCrLf & "Some more text"
 
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
Do Until objIE.ReadyState = 4
    WScript.Sleep 100
Loop
 
objIE.document.ParentWindow.ClipboardData.SetData "text", textIntoClipboard
objIE.Quit

The detailed explanation could be found here.

]]> http://www.memosoup.com/20100126/using-the-clipboard-in-wsh.html/feed 0 WMI: get the information about the system http://www.memosoup.com/20091005/wmi-get-the-information-about-the-system.html http://www.memosoup.com/20091005/wmi-get-the-information-about-the-system.html#comments Mon, 05 Oct 2009 09:40:48 +0000 admin http://www.memosoup.com/?p=194
Option Explicit
On Error Resume Next

Dim strComputer, objWMIService
Dim colItems, objItem

strComputer = "."

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
 strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objItem in colItems
WScript.Echo "Machine Name: " & objItem.CSName & VbCr & _
"===================================" & vbCr & _
"Description: " & objItem.Description & VbCr & _
"Manufacturer: " & objItem.Manufacturer & VbCr & _
"Operating System: " & objItem.Caption & VbCr & _
"Version: " & objItem.Version & VbCr & _
"Service Pack: " & objItem.CSDVersion & VbCr & _
"CodeSet: " & objItem.CodeSet & VbCr & _
"CountryCode: " & objItem.CountryCode & VbCr & _
"OS Language: " & objItem.OSLanguage & VbCr & _
"CurrentTimeZone: " & objItem.CurrentTimeZone & VbCr & _
"Locale: " & objItem.Locale & VbCr & _
"SerialNumber: " & objItem.SerialNumber & VbCr & _
"SystemDrive: " & objItem.SystemDrive & VbCr & _
"WindowsDirectory: " & objItem.WindowsDirectory & VbCr & _
""
Next
]]> http://www.memosoup.com/20091005/wmi-get-the-information-about-the-system.html/feed 0 WMI+VBS: how to get the domain name http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html#comments Wed, 30 Sep 2009 10:21:06 +0000 admin http://www.memosoup.com/?p=185 There is also WMI FAQ on Microsoft [...]]]>
Option Explicit
On Error Resume Next

Dim strComputer, objNetwork, objWMIService
Dim colItems, objItem

Set objNetwork = WScript.CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
WScript.Echo "Computer = " & strComputer

Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2")

Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objItem in colItems
 Wscript.Echo "Domain = " & objItem.domain
Next

There is also WMI FAQ on Microsoft site.

]]> http://www.memosoup.com/20090930/wmivbs-how-to-get-the-domain-name.html/feed 0