Delete Registry if its Empty - VBScript

On Error Resume next
Const HKEY_LOCAL_MACHINE = &H80000002
Set wsh1=createobject("Wscript.shell")


strKeyRoot = "SOFTWARE\Microsoft\Microsoft SQL Server"
strKeyRoot1 = "SOFTWARE\Microsoft\MSSQLServer\SQLServerAgent"
strKeyRoot2 = "SOFTWARE\Microsoft\MSSQLServer\Client\SuperSocketNetLib\VIA"
strKeyRoot3 = "SOFTWARE\Microsoft\MSSQLServer\Client\SuperSocketNetLib"
strKeyRoot4 = "SOFTWARE\Microsoft\MSSQLServer\Client"
strKeyRoot5 = "SOFTWARE\Microsoft\MSSQLServer"
strKeyRoot6 = "SOFTWARE\Microsoft\SQL Redist\Setup"
strKeyRoot7 = "SOFTWARE\Microsoft\SQL Redist\1.00.000"
strKeyRoot8 = "SOFTWARE\Microsoft\SQL Redist"
strKeyRoot9 = "SOFTWARE\Microsoft\dasetup"
Set oReg=GetObject("winmgmts:root\default:StdRegProv")


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\Microsoft SQL Server\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot1, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\MSSQLServer\SQLServerAgent\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot2, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\MSSQLServer\Client\SuperSocketNetLib\VIA\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot3, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\MSSQLServer\Client\SuperSocketNetLib\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot4, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\MSSQLServer\Client\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot5, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\MSSQLServer\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot6, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\SQL Redist\Setup\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot7, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\SQL Redist\1.00.000\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot8, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\SQL Redist\"
End If


oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyRoot9, arrSubKeys
If IsNull(arrSubKeys) Then
wsh1.RegDelete "HKLM\SOFTWARE\Microsoft\dasetup\"
End If


WScript.Quit

Kill Process -VBScript

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strProcessKill = "'crvw.exe'"
Set objWMIService = GetObject("winmgmts:root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next
WScript.Quit

Script to Shutdown the system - VBScript

strComputer = "."
Set objWMIService = GetObject_
("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & _
strComputer & "\root\cimv2")


Set colOperating Systems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")


For Each objOperatingSystem in colOperatingSystems
objOperatingSystem.Win32Shutdown(1)
Next

Find Serial Key of OS intalled - VBScript

Set SNSet = GetObject("winmgmts:").InstancesOf ("win32_OperatingSystem")

For each SN in SNSet
MsgBox "The serial number for the installed OS is: " & SN.SerialNumber
Next

Search for Script Path and copy files to Destination - VBScript

The below script will search for the directory in which the script file is placed and will copy the files from the path in script to the destination path in script




Dim fso,l_path,oWsh,l_prgfiles
Set fso = CreateObject("Scripting.FileSystemObject")
Set oWsh = CreateObject("Wscript.Shell")
l_prgfiles = oWsh.ExpandEnvironmentStrings("%programfiles%") & "\"
l_source = fso.GetParentFolderName(wscript.ScriptFullName) & "\bo6data"
fso.CopyFolder l_source,l_prgfiles,true

Adding Registries using VBScript

Option Explicit
const HKEY_LOCAL_MACHINE = &H80000002
const HKEY_CLASSES_ROOT = &H80000000


Dim objReg, Return
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!"& "\root\default:StdRegProv")


Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}","","_IMsoDispObj")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}\ProxyStubClsid")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}\ProxyStubClsid","","{00020424-0000-0000-C000-000000000046}")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{4EF6100A-AF88-11D0-9846-00C04FC29993}\ProxyStubClsid32")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}\ProxyStubClsid32","","{00020424-0000-0000-C000-000000000046}")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{4EF6100A-AF88-11D0-9846-00C04FC29993}\TypeLib")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}\TypeLib","","{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{000C0300-0000-0000-C000-000000000046}\TypeLib","Version","2.3")




Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}","","IAccessible")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\NumMethods")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\NumMethods","","28")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\ProxyStubClsid")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\ProxyStubClsid","","{00020424-0000-0000-C000-000000000046}")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\ProxyStubClsid32")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\ProxyStubClsid32","","{00020424-0000-0000-C000-000000000046}")
Return = objReg.CreateKey(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\TypeLib")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\TypeLib","","{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}")
Return = objReg.SetStringValue(HKEY_CLASSES_ROOT,"Interface\{618736E0-3C3D-11CF-810C-00AA00389B71}\TypeLib","Version","1.1")




Set objReg = Nothing

Restoring Registry - Value of Default - VBScript

The following script will restore a registry with value under Default


Dim objWshShell


Set objWshShell=CreateObject("WScript.Shell")


WINDIR =objWshShell.ExpandEnvironmentStrings("%windir%")
objWshShell.RegWrite "HKCR\CLSID\{0BE35200-8F91-11CE-9DE3-00AA004BB851}\","Font Property Page","REG_SZ"
objWshShell.RegWrite "HKCR\CLSID\{0BE35200-8F91-11CE-9DE3-00AA004BB851}\InprocServer32\", WINDIR & "\System32\MFC42u.DLL","REG_SZ"


Set objWshShell=Nothing