Search found 15436 matches

by jvierra
Mon Dec 01, 2008 3:15 pm
Forum: VBScript
Topic: Scripting help
Replies: 5
Views: 2867

Scripting help

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.
by jvierra
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...
by jvierra
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...
by jvierra
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...
by jvierra
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...
by jvierra
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...
by jvierra
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.

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.
by jvierra
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.
by jvierra
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)" _ & &...
by jvierra
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:...