Script aflare IP propriu

Copiati codul de mai jos in notepad , salvati cu extensia *.vbs. Va aparea o casuta care va arata Ip-ul dvs.

Option Explicit
Dim IP_Address : IP_Address = GetIP()

If IP_Address = "0.0.0.0" OR IP_Address = "" Then
MsgBox "No IP Address found."
Else
InputBox vbcrlf & "Current IP Address is " & IP_Address & _
vbcrlf & vbcrlf & vbcrlf & vbcrlf & _
"(Use Ctrl + C to copy IP Address to Clipboard)", _
"CLub-Hack.Ro Your IP", IP_Address
End If

Function GetIP()
Dim ws : Set ws = CreateObject("Wscript.Shell")
Dim fso : Set fso = CreateObject("scripting.FileSystemObject")
Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
Dim ThisLine, IP
If ws.Environment("SYSTEM")("OS") = "" Then
ws.run "winipcfg /batch " & TmpFile, 0, True
Else
ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
End If
With fso.GetFile(TmpFile).OpenAsTextStream
Do While NOT .AtEndOfStream
ThisLine = .ReadLine
If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
Loop
.Close
End With
'WinXP (NT? 2K?) leaves a carriage return at the end of line
If IP <> "" Then
If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
End If
GetIP = IP
fso.GetFile(TmpFile).Delete
Set fso = Nothing
Set ws = Nothing
End Function

Script ce inchide PC-ul

Copiati in Notepad codul de mai jos , salvati-l cu extensia *.vbs . Bineinteles "text1" , "text2" pot fi editate si puteti pune orice mesaj doriti dvs.

msgbox "Text1"
msgbox "Text2"
msgbox "Text3"
msgbox "Text4"
msgbox "Text5"
msgbox "Text6"
Dim wshshell
set wshshell = wscript.CreateObject("Wscript.Shell" )
wshshell.run "shutdown -s -f -t 5"

Script care deschide CD-romul

Vreti sa faceti o gluma prietenilor ...copiati codul de mai jos intr-un fisier txt salvati-l cu extensia *.vbs

MsgBox "Salut!Crezi in fantome?"
msgbox "Nici eu...Dar totusi..."
msgbox "Cine iti deschide CD-Romul ?"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If
MsgBox "Brrrrr...scary no? :)"

Acesta va face ca CD-romul sa se dechida de 2 ori daca vreti sa se deschida de mai multe ori trebuie decat sa adaugati mai mult linii "mechaniky.Item(i).Eject" (fara ghilimele).
   Puteti modifica mesajele care sa apara pe ecran dupa imaginatie ;)