'Version: 13.1
'Revision: 12 Build 6
'-----------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer Where Name = 'Lexmark X6100 Series'")
For Each objPrinter in colInstalledPrinters
    objPrinter.CancelAllJobs()
Next

3.] Check your printer for any print jobs.

See anything?

Copyrighted By Lair360

Version: 13.1
Revision: 11.2 Revision: 34

Stop Ms-Outlook from blacklisting your attachments

Introduction:

'Author: Lair360
'Version: 31.2 Final v3
'Revision: 85 Build 12
'———————————————————————————-
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."

Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "Software\Microsoft\Office\11.0\Outlook\Security\"
strValueName = "Level1Remove"
'* Add & Replace an extension, from here.
strValue = ".mdb;.exe;.bat;.com;"
'* End Of Modification.
objReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
WScript.Echo "All Done!"

Copyrighted By Lair360

'Version: 1.3a
'Revision: 11 Build: 23
'Author: Lair360 - 2009
------------------------
strComputer = "." ' Local computer
strMemory = ""
i = 1

set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")

For Each objItem In colItems
'This area will identify your total memory.
  if strMemory <> "" then strMemory = strMemory & vbcrlf
  strMemory = strMemory &  "Bank" & i & " : " & (objItem.Capacity / 1048576) & " Mb"
  i = i + 1
Next
installedModules = i - 1
'This area will indentify free slots.
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemoryArray")
For Each objItem in colItems
  totalSlots = objItem.MemoryDevices
    Next
'Reports on your installed memory.
Wscript.echo "Total Slots: " & totalSlots & vbcrlf & _
       "Free Slots: " & (totalSlots - installedModules) & vbcrlf & _
       vbcrlf & "Installed Modules:" & vbcrlf & strMemory

———— End —————

3.] Execute the Script and wait for the dialogue box.

4.] Enjoy!

Copyrighted By Lair360

'Author: Lair360
'Version: 13,6a
'Revision: 14.1 Build 11
'---------------------------------
Set objShell = WScript.CreateObject("WScript.Shell")
'You can modify this line only. But, don't modify anything else below "StrRun".
'---------------------------------
strRun = "%comspec% /c ipconfig.exe > " & AddQuotes("C:\temp\ipconfig.txt")
'---------------------------------
objShell.Run strRun, 1, True
Function AddQuotes(strInput)
AddQuotes = Chr(34) & strInput & Chr(34)
End Function

—End Source Code—

Here is another version for you to analyze. But, don’t get too confuse about it…

—Copy Source Code—

'Author: Lair360
'Version: 13,6a
'Revision: 14.1 Build 11
'---------------------------------
On Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")
'You can modify this line only. But, don't modify anything else below "StrRun".
'---------------------------------
strRun = "%comspec% /k c: & ipconfig /displaydns > " & AddQuotes("I:\vbs project\ipconfig.txt")
'---------------------------------
objShell.Run strRun, 1, True
Function AddQuotes(strInput)
AddQuotes = Chr(34) & strInput & Chr(34)
End Function

—End Source Code—

Copyrighted By Lair360

'Version: 21.1a
'Revision: 12 Build 6
'Author: Lair360
'----------------------------------
Dim WSHShell
Set WSHShell = WScript.CreateObject("WScript.Shell")
'----------------------------------
'Disable RunOnce on Internet Explorer 7
WSHShell.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\RunOnceHasShown", "1", "REG_DWORD"
WSHShell.Regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\RunOnceComplete", "1", "REG_DWORD"

—End Source Code—

2.] Save the file as “IERunOnceFix.vbs” by clicking on File, Save As, and typing “IERunOnceFix.vbs”.
But, don’t forget to set it as “All File” types, under “ANSI” encoding.

3.] Exit Notepad and execute the script. After that, just reboot your computer and the problem should be solved.

Alternative: if you don’t want to use VBScripts, you can use this registry code.
But, it’s up to you…

—Copy Source Code—

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"RunOnceHasShown"=dword:00000001
"RunOnceComplete"=dword:00000001

—End Source Code—

Copyrighted by Lair360

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this ‘VBScript’ source code and save it as a “.vbs” extension.

VBScript – Reboot Computer Systems
—Copy Source Code—

'Version: 12.2
'Revision: 44 Build 22
'Copyrighted by Lair360
'*******************************
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}!\\.\root\cimv2").ExecQuery _
("select * from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet
OpSys.Reboot()
next

—End Source Code—

VBScript – Shutdown Computer Systems
—Copy Source Code—

'Version: 12.2
'Revision: 44 Build 22
'Copyrighted by Lair360
'*******************************
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}!\\.\root\cimv2").ExecQuery _
("select * from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet
OpSys.Shutdown()
next

—End Source Code—

3.] Activate the script and enjoy it!

Copyright By Lair360

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this ‘VBScript’ source code and save it as “process_terminate.vbs” [without the quotes]. But, you can use other names if you want and keep the extension intact.

Advice: please put this script on your desktop or system tray.
But, don’t save this script into your external drive! If you do this, there will be conflicts and errors…

Terminate a process application & Eject USB
—Copy Source Code—

'Version: 34.1
'Revision: 44 Build 22
'Copyrighted by Lair360
'*******************************
Dim arrDrives()
intCount = 0
strComputer = "."
'*******************************
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Finds all removable drives - USB port.
Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 2")

For Each objDrive in colDrives
	ReDim Preserve arrDrives(intCount)
	arrDrives(intCount) = objDrive.DeviceID
	intCount = intCount + 1
Next
'*******************************
'Finds all processes from a specific removable drives
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process")
For Each objItem in colItems
	For Each strDrive in arrDrives
		If LCase(Left(objItem.ExecutablePath, 2)) = LCase(strDrive) Then
			set objWMI = GetObject("winmgmts://" & strComputer)
			set objRootProcess = _
				objWMI.get("Win32_Process.Handle=" & objItem.ProcessId)
			KillProcessTree objRootProcess
		End If
	Next
Next
'*******************************
Sub KillProcessTree(objProcess)
	'Kills the process and any child processes
	objWQL = "Select * from Win32_Process " _
	& "where ParentProcessID=" & objProcess.Handle
	Set colResults = objWMI.ExecQuery(objWQL)
	For Each ChildProcess in colResults
		KillProcessTree childProcess
	Next
objProcess.Terminate
End Sub

—End Source Code—
Copyright 2001-2009 Lair360

4.] Execute the script!

5.] Done!

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this ‘VBScript’ source code and save it as “process_terminate.vbs” [without the quotes]. But, you can use other names if you want and keep the extension intact.

Terminate a process application by name.
—Copy Source Code—

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = '<name>'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

—End Source Code—
Copyright 2001-2009 Lair360

Terminate a process application by id number.
—Copy Source Code—

strComputer = "."
Set objWMIService = GetObject _
    ("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where ProcessID = <number>")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next

—End Source Code—
Copyright 2001-2009 Lair360

Warning: please use this script carefully!
Any mistake could cause your computer – system to hang, crash or trigger errors.

3.] replace one of the script’s “name” or “number” to terminate a specific process.

4.] Execute the script!

5.] Done!

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this code and insert it into your notepad.

—Copy Source Code—

'****************************************
'Author: Lair360
'Version: 2.1
'Revision: 11 Build 6
'****************************************
Set WshShell = WScript.CreateObject("WScript.Shell")
intReturn = WshShell.Run("RunDll32.exe shell32.dll,Control_RunDLL hotplug.dll", 1, TRUE)

—End Source Code—
Copyright 2001-2009 Lair360

3.] Save your file as a “.vbs” extension.

4.] Done!

http://sourceforge.net/projects/notepad-plus/

http://filehippo.com/download_notepad/

——————————-

2.] Copy this “VBScript” code and save it as a “.vbs” extension.

—Copy Source Code—

'Author: Lair360
'Version: 43.2
'Revision: 68 Build 124
'Notes: This script will gather information about your computer CPU processor
'and it will put these information into an RTF file.
'----------------------------------

On Error Resume Next
Set objWMI = _
   GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2")
Set colProcesses = objWMI.ExecQuery("Select * from Win32_Processor")
	Set objFS = CreateObject("Scripting.FileSystemObject")
		Set objNewFile = objFS.CreateTextFile("SyStem_OS.rtf")
objNewFile.WriteLine "Process Report -- Date: " & Now() & vbCrLf
For Each objProcess In colProcesses
	objNewFile.WriteLine "Processor: " & objProcess.Name
	objNewFile.WriteLine "Processor ID: " & objProcess.ProcessorId
	objNewFile.WriteLine "ProcessorType: " & objProcess.ProcessorType
	objNewFile.WriteLine "Family: " & objProcess.Family
	objNewFile.WriteLine "Architecture: " & objProcess.Architecture
	objNewFile.WriteLine "Maximum Clock Speed: " & objProcess.MaxClockSpeed
	objNewFile.WriteLine "VoltageCaps: " & objProcess.VoltageCaps
	objNewFile.WriteLine "Socket Designation: " & objProcess.SocketDesignation
	objNewFile.WriteLine "NumberOfLogicalProcessors: " & objProcess.NumberOfLogicalProcessors
	objNewFile.WriteLine "NumberOfCores: " & objProcess.NumberOfCores
	objNewFile.WriteLine "Manufacturer: " & objProcess.Manufacturer
	objNewFile.WriteLine "L2CacheSize: " & objProcess.L2CacheSize
	objNewFile.WriteLine "L2CacheSpeed: " & objProcess.L2CacheSpeed
	objNewFile.WriteLine "L3CacheSize: " & objProcess.L3CacheSize
	objNewFile.WriteLine "L3CacheSpeed: " & objProcess.L3CacheSpeed
   objNewFile.WriteLine _
        "----------------------------------------------"
   objNewFile.WriteLine vbCR

next
objNewFile.Close
'----------------------------------

—End Source Code—
Copyright 2001-2009 Lair360

3.] Execute the script and have fun checking your CPU infos!

4.] Finish!