自动修改计算机用户名，用vb语言来写。。

声明GetComputerName

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA"

(ByVal lpBuffer As String, nSize As Long) As Long

声明SetComputerName

Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA"

(ByVal lpComputerName As String) As Long

’定义一个获取计算机名字的函数

Public Function GetCName(CName) As Boolean

Dim sComputerName As String 计算机的名字

Dim lComputerNameLen As Long 计算机名字的长度

Dim lResult As Long GetComputerName的返回值

Dim RV As Boolean GetCName返回值，若为TRUE则表示 *** 作成功

lComputerNameLen = 256

sComputerName = Space(lComputerNameLen)

lResult = GetComputerName(sComputerName, lComputerNameLen)

If lResult <> 0 Then

CName = Left$(sComputerName, lComputerNameLen)

RV = True

Else

RV = False

End If

GetCName = RV

End Function

定义一个修改计算机名字的函数

Public Function SetCName(CName As String) As Boolean

Dim lResult As Long

Dim RV As Boolean

lResult = SetComputerName(CName)

If lResult <> 0 Then

RV = True 修改成功

Else

RV = False

End If

SetCName =RV

End Function

这是不可能的。

VB脚本（vbscript）根本就不提供这样的功能。

如果是用VB，肯定是可以实现的。给你一个理念：每台电脑都安装此VB软件，当下班后（时间到五点）系统的此VB程序自动发送未关机信息到服务器。当服务器收到此消息，返回数据，驱动VB发出提示是否有人，声明如果不点击某按钮则视为无人，在十五分钟后强制关机，然后时间到了的话用VB来关闭系统。

以上就是关于自动修改计算机用户名，用vb语言来写。。全部的内容，包括:自动修改计算机用户名，用vb语言来写。。、如何使用VB脚本实现检查网络上的计算机未关机，并获得此计算机的IP地址、当前用户账号、计算机名称呢、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！