理论上是不应当有这种东东的,这种东西如果有对计算机的安全隐患是一个冲击。
但是这些东西其实就存放在注册表中,win2K中的注册表的具体位置为
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Syncmgr\AutoSync\计算机名_用户名
里面有这个用户的所有信息包括描述权限等等,你可以自己新建立一个用户然后对应着用户的各种设置看这个各种参数是怎么设置的,编出相应的程序。提取计算机名称的API函数:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long
此API函数用法:
'******************************************************************************
' 目的: 取得计算机的名称
' 参数:
' 返回: 返回计算机的名称存入全局变量sComputer
' 日期: 2001/05/22
' 作者: 陈颂雷
'******************************************************************************
Public Sub GetComputer()
Dim iret As Long
sComputer = Space(20)
iret = GetComputerName(sComputer, 21)
iret = InStr(sComputer, Chr$(0))
sComputer = Left$(sComputer, iret - 1)
End Sub修改注册表的API函数可以找以前的帖子看一看,但是我想这个模块还是比较麻烦的。具体实施就看你的应用了。
另外以上提取计算机名称的函数经过测试(我的程序就是怎么用的)
但是这些东西其实就存放在注册表中,win2K中的注册表的具体位置为
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Syncmgr\AutoSync\计算机名_用户名
里面有这个用户的所有信息包括描述权限等等,你可以自己新建立一个用户然后对应着用户的各种设置看这个各种参数是怎么设置的,编出相应的程序。提取计算机名称的API函数:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long
此API函数用法:
'******************************************************************************
' 目的: 取得计算机的名称
' 参数:
' 返回: 返回计算机的名称存入全局变量sComputer
' 日期: 2001/05/22
' 作者: 陈颂雷
'******************************************************************************
Public Sub GetComputer()
Dim iret As Long
sComputer = Space(20)
iret = GetComputerName(sComputer, 21)
iret = InStr(sComputer, Chr$(0))
sComputer = Left$(sComputer, iret - 1)
End Sub修改注册表的API函数可以找以前的帖子看一看,但是我想这个模块还是比较麻烦的。具体实施就看你的应用了。
另外以上提取计算机名称的函数经过测试(我的程序就是怎么用的)
但是这些东西其实就存放在注册表中,win2K中的注册表的具体位置为
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Syncmgr\AutoSync\计算机名_用户名
里面有这个用户的所有信息包括描述权限等等,你可以自己新建立一个用户然后对应着用户的各种设置看这个各种参数是怎么设置的,编出相应的程序。提取计算机名称的API函数:
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long
此API函数用法:
'******************************************************************************
' 目的: 取得计算机的名称
' 参数:
' 返回: 返回计算机的名称存入全局变量sComputer
' 日期: 2001/05/22
' 作者: 陈颂雷
'******************************************************************************
Public Sub GetComputer()
Dim iret As Long
sComputer = Space(20)
iret = GetComputerName(sComputer, 21)
iret = InStr(sComputer, Chr$(0))
sComputer = Left$(sComputer, iret - 1)
End Sub修改注册表的API函数可以找以前的帖子看一看,但是我想这个模块还是比较麻烦的。具体实施就看你的应用了。
另外以上提取计算机名称的函数经过测试(我的程序就是怎么用的)