التحكم فى اسم الكمبيوتر والنظام

يمكن استعمال الدالة

Public Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long

Private Sub Form_Load()
Dim Name As String
Name = InputBox("Please enter the new ComputerName")
SetComputerName Name
End Sub

ويمكن ان تجلبه باستخدام هذا الكود

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim Name As String
Name = Space(255)
GetComputerName Name, 255
MsgBox Name
End Sub

ما هو الجزء من النظام الذي تريد التحكم به؟

يمكنك ايضا استخدام دالة ال API

GetuserName

حتى تصل الى اسم المستخدم المسجل بالنظام