Welcome !

After experiencing a lot of down time, We decided to move this site to CrystalTech.com. CrystalTech.com is powered by only the finest Windows servers providing the best performance, reliability, and value anywhere.

Need help with simple question

Author	Message

B00MxHEADSH0TX

Total Posts : 1
Scores: 0
Reward points : 0
Joined: 10/29/2009
Status: offline

Need help with simple question Thursday, October 29, 2009 2:45 PM (permalink)

hey, i want to pull a prank on my friends, how can i change this to make it compatable with vista?

Dim ObjFso
Dim StrFileName
Dim ObjFile
StrFileName = "C:\Documents and Settings\All Users\Start Menu\Programs\Startup"
Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.CreateTextFile(StrFileName)
ObjFile.WriteLine("do")
ObjFile.WriteLine("msgbox""lol"",2+16,""8======D""")
ObjFile.WriteLine("loop")

ObjFile.Close