Change Admin Password

sNewPassword = "pass"

Set oWshNet = CreateObject("WScript.Network")
sComputer = oWshNet.ComputerName
sAdminName = GetAdministratorName

On Error Resume Next
Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
oUser.SetPassword sNewPassword
oUser.SetInfo
On Error Goto 0
msgbox "done"

Function GetAdministratorName()

Dim sUserSID, oWshNetwork, oUserAccount

Set oWshNetwork = CreateObject("WScript.Network")
Set oUserAccounts = GetObject( _
"winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
.ExecQuery("Select Name, SID from Win32_UserAccount" _
& " WHERE Domain = '" & oWshNetwork.ComputerName & "'")

On Error Resume Next
For Each oUserAccount In oUserAccounts
If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
Right(oUserAccount.SID, 4) = "-500" Then
GetAdministratorName = oUserAccount.Name
Exit For
End if
Next
End Function

Make your XP Type

Set ws = CreateObject("WScript.Shell")

str = "Hi there... ~ Dont click your mouse while i am typing." & _
" ~~This is a send key example, using which you can send your keystrokes" & _
"to any application you want.~~" & _
"you can increase the value of sleep to for longer delay~~" & _
"So enjoy~Napstr Rulz..." 


ws.Run("notepad.exe")
WScript.Sleep(1000)

For c=1 To Len(str)
WScript.Sleep(100) 'Increase the value for longer delay

ws.SendKeys Mid(str,c,1)

Next 

Make your XP Type

Set ws = CreateObject("WScript.Shell")

str = "Hi there... ~ Dont click your mouse while i am typing." & _
" ~~This is a send key example, using which you can send your keystrokes" & _
"to any application you want.~~" & _
"you can increase the value of sleep to for longer delay~~" & _
"So enjoy~Napstr Rulz..." 


ws.Run("notepad.exe")
WScript.Sleep(1000)

For c=1 To Len(str)
WScript.Sleep(100) 'Increase the value for longer delay

ws.SendKeys Mid(str,c,1)

Next 

Make your XP Type

Set ws = CreateObject("WScript.Shell")

str = "Hi there... ~ Dont click your mouse while i am typing." & _
" ~~This is a send key example, using which you can send your keystrokes" & _
"to any application you want.~~" & _
"you can increase the value of sleep to for longer delay~~" & _
"So enjoy~Napstr Rulz..." 


ws.Run("notepad.exe")
WScript.Sleep(1000)

For c=1 To Len(str)
WScript.Sleep(100) 'Increase the value for longer delay

ws.SendKeys Mid(str,c,1)

Next 

Refresh 5

<job id="Refresh">
      <script language="VBScript">
Dim Wsh         
For c = 0 to 10
set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "{F5}"
'WScript.Sleep 10
Next
</Script>
</job>

Refresh 5

<job id="Refresh">
      <script language="VBScript">
Dim Wsh         
For c = 0 to 10
set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "{F5}"
'WScript.Sleep 10
Next
</Script>
</job>

Refresh 5

<job id="Refresh">
      <script language="VBScript">
Dim Wsh         
For c = 0 to 10
set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "{F5}"
'WScript.Sleep 10
Next
</Script>
</job>

Using Wscript to read & write Registry entries

'[VBScript]
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!","REG_SZ"

bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"

Using Wscript to read & write Registry entries

'[VBScript]
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!","REG_SZ"

bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"

Using Wscript to read & write Registry entries

'[VBScript]
Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!","REG_SZ"

bKey = WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\")
WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
WshShell.RegDelete "HKCU\Software\ACME\"

Add stuffs to right click

' Add stuffs to right click"
Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText\Command\", _
    "cmd.exe /k cd.. " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\*\Shell\MenuText\", "Browse CMD"


objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "LOOK INSIDE"


objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
    "cmd.exe /k cd " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "CMD it"


msgbox "Browse CMD -- ADDED " & vbcrlf & "LOOK INSIDE -- ADDED" & _
vbcrlf & "CMD it -- ADDED" & vbcrlf &  "Write Click by ULTIMATE NAPSTR ",,"Write Click"

Add stuffs to right click

' Add stuffs to right click"
Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText\Command\", _
    "cmd.exe /k cd.. " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\*\Shell\MenuText\", "Browse CMD"


objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "LOOK INSIDE"


objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
    "cmd.exe /k cd " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "CMD it"


msgbox "Browse CMD -- ADDED " & vbcrlf & "LOOK INSIDE -- ADDED" & _
vbcrlf & "CMD it -- ADDED" & vbcrlf &  "Write Click by ULTIMATE NAPSTR ",,"Write Click"

Add stuffs to right click

' Add stuffs to right click"
Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText\Command\", _
    "cmd.exe /k cd.. " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\*\Shell\MenuText\", "Browse CMD"


objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "LOOK INSIDE"


objShell.RegWrite "HKCR\Folder\Shell\MenuText\Command\", _
    "cmd.exe /k cd " & Chr(34) & "%1%" & Chr(34) 
objShell.RegWrite "HKCR\Folder\Shell\MenuText\", "CMD it"


msgbox "Browse CMD -- ADDED " & vbcrlf & "LOOK INSIDE -- ADDED" & _
vbcrlf & "CMD it -- ADDED" & vbcrlf &  "Write Click by ULTIMATE NAPSTR ",,"Write Click"

Open with Notepad

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "Notepad2"

Open with Notepad

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "Notepad2"

Open with Notepad

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\*\Shell\MenuText2\Command\", _
    "Notepad2.exe " & Chr(34) & "%1" & Chr(34) & "%*"
objShell.RegWrite "HKCR\*\Shell\MenuText2\", "Notepad2"

Disallow running an application

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Software\Microsoft\Windows\Current

Version\Policies\Explorer\DisallowRun","C:\FASM\FASMW.EXE" & "=" & "FASMW.EXE"
msgbox "completed"

' the above script will disallow running FASMW.EXE

Disallow running an application

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Software\Microsoft\Windows\Current

Version\Policies\Explorer\DisallowRun","C:\FASM\FASMW.EXE" & "=" & "FASMW.EXE"
msgbox "completed"

' the above script will disallow running FASMW.EXE

Disallow running an application

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Software\Microsoft\Windows\Current

Version\Policies\Explorer\DisallowRun","C:\FASM\FASMW.EXE" & "=" & "FASMW.EXE"
msgbox "completed"

' the above script will disallow running FASMW.EXE

Change Admin Password

sNewPassword = "pass"

Set oWshNet = CreateObject("WScript.Network")
sComputer = oWshNet.ComputerName
sAdminName = GetAdministratorName

On Error Resume Next
Set oUser = GetObject("WinNT://" & sComputer & "/" & sAdminName & ",user")
oUser.SetPassword sNewPassword
oUser.SetInfo
On Error Goto 0
msgbox "done"

Function GetAdministratorName()

Dim sUserSID, oWshNetwork, oUserAccount

Set oWshNetwork = CreateObject("WScript.Network")
Set oUserAccounts = GetObject( _
"winmgmts://" & oWshNetwork.ComputerName & "/root/cimv2") _
.ExecQuery("Select Name, SID from Win32_UserAccount" _
& " WHERE Domain = '" & oWshNetwork.ComputerName & "'")

On Error Resume Next
For Each oUserAccount In oUserAccounts
If Left(oUserAccount.SID, 9) = "S-1-5-21-" And _
Right(oUserAccount.SID, 4) = "-500" Then
GetAdministratorName = oUserAccount.Name
Exit For
End if
Next
End Function