vbs中的WScript.FullName 转vb

Set ws = CreateObject("WScript.Shell")

host = WScript.FullName

If LCase(Right(host, Len(host) - InStrRev(host, "\"))) = "wscript.exe" Then

  ws.run "cscript """ & WScript.ScriptFullName & Chr(34), 0

  WScript.Quit

End If

Set oExec = ws.Exec(""net user"")

MsgBox oExec.StdOut.ReadAll, , ""net user""
以上代码在vbs里可以
但是在vb里会提示host = WScript.FullName这句话错误 '424',要求对象，如何改？？？？

host = ws.FullName

提示对象不支持该属性或方法