On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
dtmLogoffDate = "10/5/2009"
Set objShell = CreateObject("Wscript.Shell")
lngTimeZoneBias = objShell.RegRead("HKLM\System\CurrentControlSet\Control\" _
& "TimeZoneInformation\ActiveTimeBias")
If UCase(TypeName(lngTimeZoneBias)) = "LONG" Then
lngFinalBias = lngTimeZoneBias
ElseIf UCase(TypeName(lngTimeZoneBias)) = "VARIANT()" Then
lngFinalBias = 0
For k = 0 To UBound(lngTimeZoneBias)
lngFinalBias = lngFinalBias + (lngTimeZoneBias(k) * 256^k)
Next
End If
dtmNewDate = DateAdd("n", lngFinalBias, dtmLogoffDate)
lngSeconds = DateDiff("s", #1/1/1601#, dtmNewDate)
strModifiedLogoffDate = CStr(lngSeconds) & "0000000"
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....
Share Link: 
