From your log file it looks like your code is working correctly.
What is it that is not working?
What is the exact error message?
I understand that something is driving you nuts but I can't see what it is that is failing.
Search found 15436 matches
- Mon Dec 01, 2008 3:15 pm
- Forum: VBScript
- Topic: Scripting help
- Replies: 5
- Views: 2867
- Mon Dec 01, 2008 6:35 am
- Forum: PowerShell
- Topic: exchange 07 users mailbox database
- Replies: 14
- Views: 7583
exchange 07 users mailbox database
Very nice. The vbscript code you posted before has a few issues. Let me know if you get stuck. Most of it is pretty obvious. Be carefule with string catenation using & chars. YO should always place spaces on eithter side as teh parser will make mistakes at times. The token is requied to be surro...
- Mon Dec 01, 2008 5:18 am
- Forum: PowerShell
- Topic: exchange 07 users mailbox database
- Replies: 14
- Views: 7583
exchange 07 users mailbox database
Note the following for ActiveXPosh: Withouy "GetValue" the returned value to vbscript assignment will be NULL. See: http://www.sapien.com/blog/2008/09/27/new-activexposh-version/ (Didn't you write that Jeff?) Dim ActiveXPosh Set ActiveXPosh = CreateObject("SAPIEN.ActiveXPoSH") Ac...
- Fri Nov 28, 2008 3:23 am
- Forum: PowerShell
- Topic: Account Logon Hours set to 'Denied Logon'
- Replies: 2
- Views: 3884
Account Logon Hours set to 'Denied Logon'
You are correct. If logon hours has never been set fo a user account then there will be no value to this field. No value is the same as logon always permitted. There is NO way to check the radio buttons. The button do not associate with any values; they simply set or reset all of teh bits in the log...
- Wed Nov 26, 2008 4:10 am
- Forum: VBScript
- Topic: ASP CDO.Message utf-8 Problem
- Replies: 4
- Views: 3133
ASP CDO.Message utf-8 Problem
hellsa I'm not an expert on this question but I have run across it before. If I remember correctly it seems that you need to set the code page correctly for the utf-8 conversion to be successful. Character mismatch is usually a mismatch between sending and receiviing code pages. In this case I belie...
- Wed Nov 26, 2008 3:56 am
- Forum: VBScript
- Topic: Provider: Unspecified error 80004005
- Replies: 9
- Views: 8389
Provider: Unspecified error 80004005
For completeness here is the companion reset function which I have tested. [coed] Function ResetAccount(dc, samAccountName) Set user = GetObject("WinNT://" & dc & "/" & samAccountName) If user.IsAccountLocked Then user.IsAccountLocked = False user.Setinfo ResetAccount...
- Tue Nov 25, 2008 6:15 am
- Forum: VBScript
- Topic: Provider: Unspecified error 80004005
- Replies: 9
- Views: 8389
Provider: Unspecified error 80004005
This code gets the acccount lockout status from teh user ADSI object.
YOu just add "aDSPath" to the attributes list and it will be available.
Code: Select all
Set user = GetObject(objRecordset.Fields("aDSPath").Value)
WScript.Echo user.isAccountLocked
YOu just add "aDSPath" to the attributes list and it will be available.
- Tue Nov 25, 2008 4:13 am
- Forum: VBScript
- Topic: Provider: Unspecified error 80004005
- Replies: 9
- Views: 8389
Provider: Unspecified error 80004005
Again - there are NO domain and lockout attributes. REmove them. You still may have other issues with your query. Use my test code until you get the query filter and attributes working the way you want.
- Tue Nov 25, 2008 3:52 am
- Forum: VBScript
- Topic: Provider: Unspecified error 80004005
- Replies: 9
- Views: 8389
Provider: Unspecified error 80004005
This: strFilter = "(&(objectCategory=person)(objectClass=user)" _ & "(!userAccountControl:1.2.840.113556.1.4.803:=65536)" _ & "(!userAccountControl:1.2.840.113556.1.4.803:=66048)" _ & "(!userAccountControl:1.2.840.113556.1.4.803:=32)" _ & &...
- Wed Nov 19, 2008 9:21 am
- Forum: VBScript
- Topic: WMI, VBS and Domain Workgroup issues
- Replies: 5
- Views: 3271
WMI, VBS and Domain Workgroup issues
Workgroup is always emp[ty. Try it this way. Set objWMIService = GetObject("Winmgmts:rootcimv2") For Each objComputer in objWMIService.InstancesOf("Win32_ComputerSystem") If objComputer.PartOfDomain Then WScript.Echo objComputer.Name & " is part of Domain:...