Query printers in 2008 domain using vbscript or WMI

I have the following code which I use to query published printers in AD on our domain (2003). We have now setup a 2 way trust with another domain (2008) which I can browse to with no problems. The problem occurs when I try and run this script with the remote domain in the LDAP query returns "Provider: A referral was returned from the server." Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConn

How to speed this up?

Hi I'm searching through severel servers on in severel folders. Want newest file LastModified time stamps. In the folders are files wiht differents filename patterns in (same folder) so I'm having path in one array and pattern in another array In some folders there are more than 800 files. This is very slow over network -up to 5 minutes. When copying these files to c:\temp on local machine its very fast. So what I'm looking for is a faster way to do this. Do somebody have that experience? sub TimeStampNewestFile(Fldr,FileNameMask,idx) set oFolder=createobject("sc

SQL Query in VBScript

I am using the following code to perform a SQL query and return a recordset I am getting the error "Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another" This error occurs when I open the record set. What am I doing wrong? Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adUseClient = 3 Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "DSN=ChartMES;" objRecordset.CursorLocation = adUseClient strQuery = "Use ChartMES " _ & "SELECT EmployeeID " _

How to tell if a contact object exists?

I am trying to determine the best way to write a snippet that determines if an Active Directory contact already exists. My current script looks at users and creates contact objects for them. The trouble I have is obviously running the script a second time bombs me out with "object already exists". What I'm look ing for would be: If contact exists then.... Else..... Anyone got a good starting point for me? Lots of stuff online for 'if file exists...' but it seems not many are creating contacts.

Script to report folder sizes?

I have a Users directory on a drive, where all my users have a subfolder with their user name. inside everyone's folder is a certain folder, lets call it TooBig, that i need to know the size for for each user. does anyone have a script that would maybe dump the size of each user's TooBig folder to a file I can review?

Shutdown explorer not interactively ?

Hello, The proper way to shut down explorer interactively: 1. Display classic shutdown dialog(Alt+F4) 2. Use Ctrl+Alt+Shift+"Push Cancel button with mouse" I want to do exactly the same thing only not interactively - by using batch script, vbs script(wsh), wmi or whatever method. (Of course I can always terminate explorer process but I don't want to do that) Possible to do that ? thanks Vilius

Writing to a text file

I have a script that is working pretty well but I don't understand what's happening when I try to output a file (sort of acting as my log file). My hope is to get each created contact to be listed in the file but it only seems to be writing one of the names that get created. Essentially, the script looks at a few things and decides what contacts to create. Here's the part causing me problems (the second part of the If statement): Else ' Build the actual contacts. Set objContact = objOU.Create("Contact",_ "cn=" & strContactName) objContact.Put "Mail", (strMail(0))

Adding Multiple Variables

I am using the following script to delete shares and want to specify multiple shares, instead of just one share name. How can I do so? DomainName = "domain.com" ServerName = "Server1" ShareName = "Share1" Set cont = GetObject("WinNT://"& DomainName &"/"& ServerName &"/LanmanServer,FileService") cont.Delete "FileShare", ""& ShareName &"" Also, how can I add to this script so that it deletes the directories associated witht he shares, once the shares are removed? The directory names match that of the share names. Thanks

Find User Object based on Logon Name

I need to find the location of the user object in AD based on the Logon Name IE: I have: JDoe123 (the logon name) I need: LDAP://cn=JohnDoe,ou=users,ou=aaa,ou=bbb,ou=ccc,DC=xxx thanks!

Removing expired certificates from LDS

Hi all. This is my situation: We are in the process of replacing a certificate store currently hosted on Sun's iPlanet with Microsoft's Lightweight Directory Services. These certificates have been imported into LDS into an application partition (say o=myorg, C=AU). Under this structure I have around 40,000 OU's each one representing a customer under each customers OU are one or more user (iNetOrg) objects (around 60,000 in all). In each user are one or more certificates in the UserCertificate attribute. A combination of in-house written application code and proprietory PKI code reads and

FilesystemObject doesn't work anymore. How to fix?

I think that scrrun.dll is messed up (New technical term) somehow. But if I knew what I am talking about, I wouldn't be bothering you folks. This line: Set fso = CreateObject("scripting.filesystemobject") causes this error message to appear: Error: (null) Code: 8002801D I've dragged scrrun.dll onto regsvr32.exe several times (just to be sure I actually had done it) , each time getting the message: DllRegisterServer in C:\Windows\System32\scrrun.dll succeeded. I'm running WinVista Ultimate 64bit, completely updated. Does anybody have any ideas about how I can get the

Check if Application Installed

How would I use code to check if an application is installed? Just look for the *.exe in the expected location?

Ignoring Case

Here is the script that I am using and it works well except that it does not ignore the case of the attached files. Can any one give me the peice that I need to have it ignore the case of the attached file? <SCRIPT LANGUAGE="VBScript"> Sub ExStoreEvents_OnSave(pEventInfo, bstrURLItem, lFlags) Set msgobj = CreateObject("CDO.Message") msgobj.DataSource.Open bstrURLItem For Each objAttachment In msgobj.Attachments If InStr(objAttachment.filename,"Register Document") > 0 Then objAttachment.SaveToFile "\\Server\c$\Inetpub\Intranet\Documents\" & obj

msgbox on top

Hi there, I have a very simple script: msgbox "This is a test" How can i make the msgbox to appear on top? Sometimes our users work with a few application at once, and they cannot see the message, unless it will be on top. Thank you Amir :)

Create Batch file for laptops to copy templates

Hi Everyone, I am new to batch file programming and need an expert help to find out something. I want to create a batch file that runs at login and compares a local copy of the templates to what we have on the network. We have templates on a mapped network drive in h:\clients\templates, and on the laptop in c:\apps\data\clients\templates. When the laptop is offline it substitutes c:\apps\data to appear as h: drive, that way the files appear to be in h:\clients\templates. Here’s the basic steps what I need the batch file for: 1. first it checks to see if the computer is on t

ShellExecute question

I have a script that uses the ShellExecute function to run wscript.exe in Windows 7 as an elevated user (with the "runas" verb). When it runs, a UAC window pops up and the user must click "Other User" and then enter the username and password of an administrative account to continue. Is there a parameter I can include in the script which will pre-populate the username box in the UAC window so the user only needs to enter the password? Thanks...

Error 800a03ea on winserver 2008?

I have a set of older .asp files that have been running uneventfully for several years on our old web server, but now as part of our testing on a new web server which has Windows Server 2008, I've discovered that the programs are NOT working, but rather throwing a syntax error 800a03ea on the very first code line, with the pointer at the "F" in function, in the include file the .asp progs bring in. My first guess is that because ws2008 is so much more stringent in security etc, something needs to be changed in my code, but then I found this on a board: "There is no reason at all wh

VBScript String Replace - Remove / Replace Characters in String

VBScript String Replace http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html Remove or replace specific characters from a string. The article below provides a function in VBScript to remove or replace characters in a string. VBScript String Replace http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html remove Illegal Characters from a string: VBScript String Replace http://www.code-tips.com/2009/04/vbscript-string-clean-function-remove.html VBScript replace characters in string.

How to bypass certreq renew window in VBS script?

To renew a cert, we use certreq to generate a requst file from an inf file as following: certreq.exe -f -new ./pkcs7.inf ./123.req The cert to be renewed is specifed with its thumbprint in the pkcs7.inf file, so in fact the command will only renew it. But when running the command, a "Certificate List" window will popup with a list cotaining only that cert, and ask user to "Select certificate to be renewed". The window break the running process and require user to do a click action... In our project, we will call the command line in an VBS script and should run it automatically.

Browse for File Dialog ( W7)

Hi, Have run up against what, based on my web searches, is a very common problem. I want to incorporate a browseforfile dialog box in my script. I'm using Windows 7. Is there a simple way to do this, without resorting to references to IE? Thanks, Stuart

How do I send text to KList with StdIn?

I'm desperately trying to automate KList(in the resource kit) to purge kerberos tickets and for the life of me I can't figure out how I have this:- Set objShell = WScript.CreateObject("WScript.Shell") Set objExecObject = objShell.Exec("%comspec% /c klist.exe purge") Do Until objExecObject.StdOut.AtEndOfStream strLine = objExecObject.StdOut.ReadLine() wscript.echo strLine strIP = Instr(strLine,"Purge") If strIP <> 0 Then wscript.echo strLine objExecObject.StdIn.Write "y" End If Loop And it just doesn't work. I've tried Sendkeys and that doesn't work either.

GetColumnInfo from vbscript

Am using oledb in a vbscript application to update an Excel spreadsheet. Some cells in the spreadsheets being updated occasionally contain formulas, and oledb treats the associated columns as read-only (much to my disappointment and displeasure). Therefore, I need to find a way to determine from vbscript which columns are read-only, so that my program can avoid attempting to change any values in those columns. My reading of related oledb docs suggest that there should be a way to do this, using the GetColumnInfo method of the IColumnsInfo interface. However, that documentat

Scripting Windows 7 ZIP utility

Now that Windows includes a ZIP utility, is there some way to script it instead of running an external ZIP program (like 7-zip)? -- Crash One man's weed is another man's wildflower.

Using VBScript to Check for Network Share File?

I've been trying to get the following script to report on any new files that might be added to a folder (a Ricoh AIO sends faxes to the folder automatically). Each user on the network needs to be alerted to the incoming faxes stored in the shared folder. Running it on the "host" works fine - it reports any folder additions. Running it on a Windows Server 2008 share works fine (that's where I tested it). However, running it on a peer-to-peer Workgroup returns a runtime error in line 2, character 1 when the 10 second "poll" period elapses: 800A01CE - The remote server machine do

com.sun.star.lang.Locale

Please,can you translate from java to wsh this code? Dim LocalSettings As New com.sun.star.lang.Locale Thank you

Scripts cant read Server 2008 Registry

I have several maintenance automation scripts in place for servers in our domain. We have noticed that several of the scripts are incapable of reading or writing to the Windows 2008 Server registry. Does anyone know of an easy workaround or a solution to this issue?

Call to WindowsInstaller object causing 80004005 errors

Simple script error with 80004005 API InstallProduct,PropertyValue when the script is run with a package that contains an error. The script executes flawlessly when no .msi error is encountered. This is run on Windows XP sp3 installer version is 3.1 v2. On Error Resume Next Set oInstaller = CreateObject("WindowsInstaller.Installer") err.Clear oInstaller.UILevel = 2 oInstaller.InstallProduct "C:\Documents and Settings\Administrator\Desktop\test.msi","" WScript.Echo err.Number & vbcrlf & err.Description

hai

http/www.dayanjones.com

Closures?

G'day everyone Is this an example of a closure or just a trick with Eval? Kind regards, Bruce --- option explicit class closure private composition sub compose( f1, f2 ) composition = f2 & "(" & f1 & "(p1))" end sub public default function apply( p1 ) apply = eval( composition ) end function public property get formula formula = composition end property end class dim c set c = new closure c.compose "ucase", "lcase" wscript.echo c.formula wscript.echo c("dog") c.compose "log", "exp" wscript.echo c.formula wscript.echo c(12.3) functi

for ... loop through file collection instead of for each ... loop

I would like to list all filenames in a file collection without using for each ... next but a for .. next loop instead. Could someone help me? Thanks in advance. Ranah ------- Set filesys = CreateObject("Scripting.FileSystemObject") Set demofolder = filesys.GetFolder("c:\") Set filecoll = demofolder.Files for n = 0 to filecoll.count-1 step 2 msg = msg & filecoll.item(n).name & VbCrLf next msgbox msg

Need help detecting/reading smartcard default certificate ID

Has anyone done anything with reading smartcards? Would like to be able to use smartcard default certificates for identity verification on a couple of processes. I'm not so much concerned about restricting the script (it's an hta) to a specific user per-se, rather I need to be able to log WHICH user ran a routine. I'd use domain credentials, but there are situations where the script will be run from non-domain machines, or from users that are logged on locally. any pointers or sample code would be greatly appreciated. The code also needs to be supported from Win2K through Win 7,

AddWindowsPrinterConnection, but the mapping is NOT stored in the user profile

Hi everybody, I would like to add a network printer connection to a XP client with a logon script, but *without* store the mapping in the use profile. Is it possible ? Thanks in advance. -- Fran�ois Lafont

what version of capicom do i have installed and graceful failing of createobject

Set capicom = createObject("CAPICOM.Utilities.1") Running that produces the following error: Script: C:\path\to\capicom.vbs Line: 1 Char: 1 Error: ActiveX component can't create object: 'CAPICOM.Utilities.1' Code: 800A01AD Source: Microsoft VBScript runtime error My question is two fold. First, why can't I create that object? <http://msdn.microsoft.com/en-us/library/aa388182%28VS.85%29.aspx> states that CAPICOM.Utilities.1 requires you have CAPICOM v2.0 or later installed. How can I find out what version I have installed? My second question is... how c

Help pulling "pingable" IP of local machine into a variable

Ok, here's my need. I am writing a script that does a few things, but I'm having trouble just pulling the "production" IP address into a variable, to then use in the rest of the script. I've see plenty of scripts to ping remote hosts, but that's not what I need. I've also worked up a few scripts on my own, but they all pull every IP on the machine, or require you to know the intenal ID of the NIC interface you need queried. The issue with this is that the ID is assigned randomly, and it's something you just have to know. I'm rather new at VBScript, and I've tried to muddle through

OCR in browser using MODI in VBscript - Any thoughts appreciated

Hello Gurus, I am not a microsoft geek but have a scenario to provide OCR functionality in browser for a single TIF file. As per MSDN help Microsoft Document Imaging View control could do it. See here - http://msdn.microsoft.com/en-us/library/aa167607(office.11).aspx I have tried different ways and am able to copy selected image block to clipboard but am not able to do any OCR. I am not using any server side scripting but only HTML + client side VBscript. Below is the sample code, could anyone please help in this. ************************CODE***********************

If connected to subnet xxx.xxx.xxx.xxx then....

Hi, How can I in vbs check if a computer is connected to, say, the 192.168.100.0/24 subnet either by cable or wireless? thanks for comments on this regards jake

Modify a text file without make a copy

Hi everybody, I have a text file called "Mytext.txt" like this: ------------------------- number: 2345 some text blabla.... some text blabla.... some text blabla.... some text blabla.... some text blabla.... some text blabla.... some text blabla.... some text blabla.... ------------------------- I just would like modify the number in the firt line (2345), without put in the memory the rest of the text or create a new temporay file? Is it possible? I ask this question because I want to use this script with lot of text files and this text files are quite big. Thank

Retrieves last Changes users groups and computer objects

Can anybody help me with this script. The script Retrieves the last whenChanged user,group,computer objects since x days in the past 'Script to print out all the last whenChanged objects (user,group/DL, computer that have been whenChanged in the forest in the last N days. Defaults to looking two days back unless a valid # of days is specified on the command line. Ex: cscript NewObjects.vbs 6 The script works fine in a root domain like ldap:// ka.com but when there are more subtrees like ldap://prod.ka.com the give no information, i have look with the Const ADS_S

Vista and AD Terminal Services Properties

I have installed RSAT SP1 and later (KB941314 2/24/2009) and the hotfix for AD Users and Computers (KB960890 6/22/2009) on my Vista 32 bit OS. I can now view the Terminal Services tabs in ADUC. However, I am unable to query or write any AD terminal services properties via VBScript or Powershell. The scripts work without issues on Windows XP SP3. if I remember correctly, the functionality for manipulating AD terminal services properties was installed as part of the Windows 2003 Resource Kit or Support Tools. I have seen a few web pages which state scripts manipulating the AD termi

Set and get boolean Session object

Hi all, I have an object set in this way session("external_user") = RS1.Fields.Item("external_user").Value It is a boolean field. I'm trying to get it using this syntax <%if (session("external_user") = "1") Then %> but I know it's wrong. Do you know the proper one? Thank you very much.

Connect to WMI remotely with vbscript

Hi guys, I'm trying to connect to WMI remotely with vbscript, Is anyone have some idea to share, thanks in advance. it failed in this way, the credential was not provided here because i had used administrator account to log on the remote host via Remote Desktop Connection before execution. strComputer = "sh-server03" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\cimv2") However it works in this way strComputer = "sh-server03" Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objSWbemS

on keypress

Hi, I would like to add an onkey press as an alternative to the Ok button in this code. How would I go about doing this (I'm fairly new to VBS)? <SCRIPT LANGUAGE="VBScript"> Sub RunScript OKClicked.Value = "OK" End Sub Sub CancelScript OKClicked.Value = "Cancelled" End Sub </SCRIPT> <BODY> <font size="2" face="Arial"> Username: </font><font face="Arial"> <input type="username" name="UserName" size="40"></font></p> <font size="2" face="Arial"> Password: </font><font face="Arial"> <input type="password" name="UserPassword" size="40"></font></p> <i

Easy one? Have vbs logon script run local executeable

Hi, I use a vbs logon script at my domain controllers. I need to run an application from the client computers' C: drive when they log on... The logon script code below tries to run MyApp for the domain controller's C: disk, I need it to be run from the clients' C: disk. Set WshShell = WScript.CreateObject("WScript.Shell") ResultCode = WshShell.Run("C:\Program Files\MyApp.exe", 1, true) How do I do that...? regards jake

why IE is shown when navigating a HTTPS URL in VBS script on windo

We have a VBS script which will navigate a URL as following: -------------------------------------------------------------------------------- Set oIE = CreateObject("InternetExplorer.Application") oIE.navigate "https://mgr.xxx.com:8443/" WScript.Echo "wait.."&counter & ": oIE.ReadyState="&oIE.ReadyState& ": oIE.busy=" & oIE.Busy counter = 0 While (oIE.busy = true or oIE.ReadyState < READYSTATE_COMPLETE) And counter < 200 counter = counter + 1 wscript.sleep 1000 WScript.Echo "wait.."&counter & ": oIE.ReadyState="&oIE.ReadyState& ": oIE.busy=" & oIE.Busy Wend -------------------

ASP function question.

I hope I'm in the right spot. Our developer moved this week and we have a small problem. We have an app that uses asp pages to update a database. They work fine and there is no problem there. What we now need to do is to place the return value from one of these asp functions in an htm page. So I guess I have two questions: 1) how do we include the reference to the asp page in our html page? We've tried this: <!--#include file="path to file/our-asp-file.asp"-->. That doesn't seem to work, 2) How to call the function from an htm page. I suppose that it is dependant on #1 above w

ODBC Connect error in Script Host Version 5.8

My Access/ODBC connection code is failing in Win7/Script Host 5.8. If it runs on V 5.6, it works. If it runs inside VbsEdit debugger, on Win7, it works. It FAILS running directly on either Win7 or Server 2008 R2 (V 5.8) I guess the basic question is what is different between V 5.6 and V 5.8? If the underlying OS/provider has changed, I think that would be the same when running either in or out of the VbsEdit debugger. I'm using the generic format: Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=; (From ConnectionStrings.com) Specifically:

SQL Version (Build) with WMI

Hello ng How can I get the SQL-Server Version and Edition with WMI or registrykey? This server is patched with SP3 and CU5. The BuildNumber is 10.0.2746.0 now. This RegistryKey give only the basic insallation version, not with updates. [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\100\BIDS\Setup] "Version"="10.0.1600.22" With this SELECT I can list what I want, but I search a WMI querie. SELECT SERVERPROPERTY('productversion'), SERVERPROPERTY ('edition') 10.0.2746.0 Enterprise Edition (64-bit) thanks for your help Mick

Drag and Drop-How to get the url's title?, Name? Description?

I made a .Hta file that contains some drag and drop (primitive coding, alas). (see full .hta code at bottom of this posting) The .hta returns the url of links that are dragged and dropped onto it. But there's info it doesn't return that I need, and I don't know the right term to describe what I need that I'm not getting. To explain by example, if I open a window to this url: ---- http://dotcommunities.codeplex.com/ and I open Windows Explorer to a folder ----- e,g, c:\apps and I drag the url to that folder, a shortcut file will be created. The shortcut file will contain the url AND

Problems with VBScript - RegRead when running as a service

I am working on a script that runs under a custom installation utility, which is running as a service. To get the current user name the script executes this command: str_Acct_Name_Val = "HKCU\Software\Microsoft\Windows\CurrentVersion \Explorer\Logon User Name" str_Acct_Name = RegRead(str_Acct_Name_Val) When I run the script from the command prompt, it can read that value just fine (under an administrator account). When the value is attempted to be read with service/local system privileges, the read fails. What is the problem here?

Need help with a script to copy a file to a specific home dir

I would like to use vbscript to move a text file from a share directory to specific users home directory whereby the script pulls from a list of names (text file) and uses the users homedir path to copy the file. -- bforrest