Vbs/batch problem

[Poraft]

Before I start, I want to say hi since I'm new here.

I want to make a file that makes a new batch file in the "start-up" folder with vbs, here is what I got so far.

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Documents and Settings\Menu Start\Programma's\%username%\Opstarten\VIRUS.bat")
a.WriteLine ("shutdown -s -t 60")
a.close   

It's just to make a fake virus to mess some friends but, I can't find or make a correct path, if i make the "%username%" my own computer username it perfectly works. And creates a batch file in the start up folder.

But how can I make the correct path that depends on the currently logged in account?

[Dusty]

It's just to make a fake virus to mess some friends

Your attempted use of a C'Hope forum for this purpose contravenes the rules which you should have read here

If you’re looking for help with getting revenge on someone else and/or hacking into a program or service look elsewhere.  This also includes supposedly "harmless" pranks.  This is not what Computer Hope was designed for.