vb.net锁定计算机

可以是模拟键盘锁定，也可以是代码直接锁定，求简单的代码
主要对象是Win7电脑

Dim LockWin As String
LockWin = "powrprof.dll,SetSuspendState Hibernate"
Shell("rundll32.exe " & LockWin) '调用系统锁定程序

my.computer.name 获取本地计算机的名称。 dns.gethostname 方法 获取本地计算机的主机名。 environment.machinename 属性 获取此本地计算机的 netbios 名称。 此计算机的名称是在系统启动期间从注册表中读取名称时建立的。如果此计算机是簇中的节点，则返回该节点的名称。