Thanks for helping out on the little "brain-fart" I had going on; working like a charm now.
Nice to see you out and about on other forums; have you had any issues connecting to the other forum today?
I was out there earlier, but then I started getting all sorts of ASP errors when trying to...
Ok, I've created an HTA that will create a table dynamically from a text file.
The text file will create a list of buttons to display, and depending on which button is pressed, the SUB will preform a specific action. (Install application, Run application, etc...)
How do I pass the value of the...
oddConditon = "ODD"
if not (var1 mod 2) then
if not (var2 = 1) then 'second variable is either 0 or 1
if not (var3 mod 2) then
oddCondition = "invalid - must be all odd or even"
end if
end if
end if
evenCondition = "EVEN"
if not (var1 mod 2) then
if not(var2 = 0) then...
Found a solution; I'm going to first enumarate the registry keys in: HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList
From there I can grab each key that begins with S-1-5-21 and then use that to take care of the HKEY_USERS\S-1-5-21-...
We are currently upgrading our Exchange server from 5.5 to 2003; for about 150 individuals that connect via Citrix, the decision has been made for their Outlook profiles to be deleted so that they will be forced to recreate their profiles.
Is there any way to Enumarate all of the keys in...
I would first check into what markdmac has suggested, but if you run into issues, like I do here at my work, you can handle a time sych on a specific workstation by using "NET TIME".
I found the best way to run this, remotely, is to use the pstools from www.sysinternals.com.
The tool "PSEXEC"...
To run this "clientside" you will just need to change the two SET lines to:
SET conn = CreateObject("ADODB.Connection")
SET rs = CreateObject("ADODB.Recordset")
What you'll want to do is a FOR NEXT on that folder.
SET G = oFS.GetFolder(<specified folder on server>)
SET f = G.Files
FOR EACH f1 in f
oFS.CopyFile f1, <new location>,TRUE
NEXT
This will grab every file in that folder, no matter what the name or extension is, and copy them over.
This is what I use in my scripts to force CSCRIPT
CMD window visible
If Instr(1, WScript.FullName, "CScript", vbTextCompare) = 0 Then
oShell.Run "cscript """ & WScript.ScriptFullName & """", 1, False
WScript.Quit
End If
I usually run this with the CMD window visible, but you can change...
Oops! forgot these two lines in the "SUB Install_List(checkNum)
SUB Install_List(checkNum)
ON ERROR RESUME NEXT
IF checkNum.Checked = TRUE THEN
MSGBOX checkNum.Value
END IF
IF ERR.Number <> 0 THEN
FOR i = 0 TO checkNum.Length - 1...
After further testing this would only work if only one checkbox existed.
I had to switch those subs around so that it would work if there was only one, or there were multiples.
Here is what I finally got to work out no matter how many checkbox's there were:
SUB Check_M_All(checkNum)
ON ERROR...
SWEET!!!
Sorry for my ignorance on this simple problem. Haven't really used the "IsArray" much in my scripting.
Will add that little bit to my "Helpful" Scripts for future scripting!
Thanks,
I have an HTA that dynamically creates a list of checkboxes depending on what software needs to be installed on a machine.
Everything works fine if there is more than one checkbox to select, but I get the following error message whenever only one checkbox is created:
A Runtime Error has...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.