SAPIEN Technologies

It seems like it's working for me. I just picked a group I was part of, took the ! operator out, and then If UCase(strCN) = "RSIMM" Then Msgbox "Found RSIMM" and I got a msgbox. Then I added the ! operator and didn't get one. I am also testing on a Win2k3 Native mode domain, that's all I have avail ...

I just saw that you were looking for computers, not users. In that case you would just change "(&(objectCategory=person)(objectClass=user)" _to "(&(objectCategory=Computer)" _

Before you add it to any login scripts, you need to login and run it to see if it works. It looks like you also have to create the REG and PRF files and put them on a share that users have access to. I would ensure you test with the same priveledges as the user to ensure it will run. If you are usin...

Something like this: http://techrepublic.com.com/5208-3513-0 ... ID=2601984

Name Redefined is when you attempt to declare a variable that is already declared: Const OverwriteExisting = True Const OverwriteExisting = True 'Error would occur for "Name redefined" or if you were to do: Dim objFSO Set objFSO = CreateObject("Scripting.FileSystemObject")Dim objFSO 'Error would occ...

Usually the "server is unwilling to process your request" is because your passing the wrong format (i.e. your passing cn=Jeff Smith,dc=dom,dc=com and don't have the "LDAP://" in the string) or your trying to write to a "read-only" field, such as the NAME. If your trying to rename a existing user acc...

Maybe change this line to ensure that you are using local credentials?

Set objWMI = SWBemlocator.ConnectServer(computer_name,"rootCIMV2",computer_name&"" &strUser,arrPwd(intArray))

The method below works, I just want to know if there is a better way to do it? MsgBox "System is 64 Bit: " & Find64Bit() Function Find64Bit() Dim objWMI, strWQL, colItems, objItem, strVersion Set objWMI = GetObject("WinMGMTS://./Root/CIMv2") strWQL = "Select Caption from Win32_OperatingSystem" Set c...

The method below works, I just want to know if there is a better way to do it? MsgBox "System is 64 Bit: " & Find64Bit() Function Find64Bit() Dim objWMI, strWQL, colItems, objItem, strVersion Set objWMI = GetObject("WinMGMTS://./Root/CIMv2") strWQL = "Select Caption from Win32_OperatingSystem" Set c...

Thanks for the both the responses, but the first one is the one that looks like it's going to work for me as my data is being outputted to a <SPAN> and I need to scroll just the data in the span. The second post is basically what I was doing, but if I had the scriptHTA running in the background I ju...