下面是修改工作组用户密码的函数,调用时如果用于密码为空,请使用"",不要使用null,两者不同。:) Function CheckUserPasswordInGroup(UserName As String,_ oldPassword As String, newPassword As String) As Boolean On Error GoTo ChkErr Dim wk As DAO.Workspace, Ur As DAO.User, i As Integer, Found As Boolean CheckUserPasswordInGroup = False Found = Fa...[ 查看全文 ]
1、新建一个txt文件 2、在文件中添加如下内容:netsh interface ip set address name="本地连接" source=static addr=10.60.37.99 mask=255.255.255.0gateway=10.60.37.254netsh interface ip set dns "本地连接" source=static addr=202.120.190.208 4个红色的部分需要我们根据需要修改:10.60.37.99 是IP地址255.255.255.0 是掩码地址10.60.37.254 是默认网关202.120.190.208 ...[ 查看全文 ]