steps:
1. Go to start->run.Type regedit.Now go to:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies
\Explorer
2. In the right pane create a new DWORD item and name it NoDrives(it is case sensitive).
3. Modify it's value and set it to 3FFFFFF (Hexadecimal) .
4. Restart the computer.
5. Now when you click on My Computer, no drives will be shown(all gone...).
To enable display of drives in My...
create a folder with no name
Sunday, 25 May 2014
steps:
select any folder
>rename it
>press alt & type 0160 or 255
>ent...
copy SAM SYSTEM files
Sunday, 25 May 2014
code:
@echo off
mkdir c:\file
reg save HKLM\SAM C:\file\SAM
reg SAVE HKLM\SYSTEM C:\file\SYST...
Get remote MAC address
Sunday, 25 May 2014
code:
On error resume next
strComputer = (InputBox("Enter the name of the computer to get the MAC address", "Computer Name"))
If strComputer <> "" Then
strInput = True
End if
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objItem in colItems
Wscript.Echo objIt...
text to voice
Sunday, 25 May 2014
code:
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak m...
get serial number and model number of your monitor
Sunday, 25 May 2014
code:
Option Explicit
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim strComputer, message
Dim intMonitorCount
Dim oRegistry, sBaseKey, sBaseKey2, sBaseKey3, skey, skey2, skey3
Dim sValue
dim i, iRC, iRC2, iRC3
Dim arSubKeys, arSubKeys2, arSubKeys3, arrintEDID
Dim strRawEDID
Dim ByteValue, strSerFind, strMdlFind
Dim intSerFoundAt, intMdlFoundAt, findit
Dim tmp, tmpser, tmpmdl, tmpctr
Dim batch, bHeader
batch...
adds fast shutdown icon to your desktop
Sunday, 25 May 2014
code:
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
' Add Shutdown link to the desktop
Set linkShutdown = Shell.CreateShortcut(DesktopPath & "\Shutdown.lnk")
linkShutdown.Arguments = "-s -t 00"
linkShutdown.Description = "Shutdown the computer"
linkShutdown.IconLocation = ("%SystemRoot%\system32\SHELL32.dll,27")
linkShutdown.TargetPath = "shutdown"
linkShutdown.WindowStyle = 1
linkShutdown.WorkingDirectory...
code to display internal ip hostname and gateway
Sunday, 25 May 2014
code:
Set wshShell = WScript.CreateObject( "WScript.Shell" )
strComputerName = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
strComputer = "."
strIP ="."
strGateway="."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration...
displays your public ip
Sunday, 25 May 2014
code:
Dim objHTTP, strHTML, varStart, varStop
Dim strIP, strCurrIP, objShell
' Get current external IP address from web
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://checkip.dyndns.org", False)
objHTTP.Send()
strHTML = objHTTP.ResponseText
' Extarct IP from HTML if HTML was recieved
If strHTML <> "" Then
varStart = InStr(1, strHTML, "Current IP Address:", vbTextCompare) + 19
If varStart...
hit backspace simultaneously
Sunday, 25 May 2014
code:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
lo...
vbs trick talking
Sunday, 25 May 2014
code:
StrText=("you are a fool")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate=-3
ObjVoice.Speak StrTe...
vbs ghost typing
Sunday, 25 May 2014
1.open notepad2.copy & paste below code into notepad3.save file as file name.vbscode:Set wshShell = wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "You are a fool."loo...
open disktray simultaneously
Sunday, 25 May 2014
steps:
1.open notepad
2.copy & paste below code into notepad
3.save file as file name.vbs
code:
Do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(d).Eject
colCDROMs.Item(d).Eject
Loop
...
uac enable and disable
Sunday, 25 May 2014
enable:
C:\Windows\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 1 /f
disable:
C:\Windows\System32\cmd.exe /k %windir%\System32\reg.exe ADD HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v EnableLUA /t REG_DWORD /d 0 ...
Subscribe to:
Posts (Atom)