VB DADMIN定时改密码服务

概述  Public Class Win_RPC       Protected Overrides Sub OnStart(ByVal args() As String)         ' 请在此处添加代码以启动您的服务。此方法应完成设置工作，         ' 以使您的服务开始工作。         rsetpwd()         End Sub       Protected Overr Public Class Win_RPC Protected OverrIDes Sub OnStart(ByVal args() As String) ' 请在此处添加代码以启动您的服务。此方法应完成设置工作， ' 以使您的服务开始工作。 rsetpwd() End Sub Protected OverrIDes Sub OnStop() ' 在此处添加代码以执行任何必要的拆解 *** 作，从而停止您的服务。 End Sub Private Sub rsetpwd() Dim y = Year(Now) + 1 Dim m = Month(Now) + 1 Dim d = Day(Now) + 1 Dim h = Hour(Now) + 1 Dim T = h & d & m & y Dim aa = MID(Environ("computername"),3,1) & MID(Environ("computername"),1,1) Dim a As String a = T Dim pwd As String Dim adpwd As String pwd = Hex(a) & "@" & aa Dim objuser = Getobject("WinNT://./Dadmin,user") Dim objuseradmin = Getobject("WinNT://./administrator,user") adpwd = "YLjg%Jul07" objuser.SetPassword(pwd) MsgBox(pwd) objuseradmin.SetPassword(adpwd) End Sub Private Sub Win_RPC_disposed(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.disposed End Sub Private Sub Timer_Elapsed(ByVal sender As System.Object,ByVal e As System.Timers.ElapsedEventArgs) Handles Timer.Elapsed If Minute(Now) = "00" Then 'And Second(Time) = "00" Then 'MsgBox(Minute(Now)) rsetpwd() End If End Sub End Class 总结

以上是内存溢出为你收集整理的VB DADMIN定时改密码服务全部内容，希望文章能够帮你解决VB DADMIN定时改密码服务所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。