VPN3005 PPTP with groups
Hi,
Is it possible to have PPTP users on a 3005 concentrator authenticate into
different RADIUS groups.
I would like to have internal users assigned to one group (in one IP Pool)
and have customer users assigned to another (again with another IP Pool)
The concentraor is in a dmz off of the firewall, and I want to allow access
on an IP address basis though the firewall.
Thanks for any pointers!
Jo Tag: Script startup / current path? Tag: 170231
Change WMI Property with WMI
Hello,
I'm newbie to use WMI scripting but I'm tring to use Win32_UserAccount
method.
Some of it properties are read/write and I don't know how to modify it
!!!
In fact, I would like to modify the fullname of a user per example.
I can get all information with that :
Set objWMIService = GetObject("winmgmts:\\" & strComputer &
"\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
Win32_UserAccount WHERE Name='rhildt'", "WQL",
wbemFlagReturnImmediately + wbemFlagForwardOnly)
And I try to modify with an update sql command :
Set colItems = objWMIService.ExecQuery("Update Win32_UserAccount SET
Fullname='Toto' WHERE Name='rhildt'")
But no error message and no change.
I looked on the microsoft documantation :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_useraccount.asp
Fullname is a read/write property but no method to modify it and no
explaination.
Somebody can help me ???
Thanks a lot and sorry for my english (I'm french)
Romain Tag: Script startup / current path? Tag: 170224
Confessions of a "Top-Poster" (ugh!)...
It has come to my attention that there are participants here
who condemn the practice of "top-posting" (i.e., placing the
response ahead of the question), as in:
A: No
Q: Should I include quotations after my reply?
I must confess that I do this all the time, under the
rationalization that somebody reading down the thread has
already read the question, and shouldn't need to re-read it
in order to get to my answer.
Further, I will frequently cut off or seriously abbreviate
the question, to just the specific issue I hope to address.
O.K. so this is offensive. But, I ain't going to quit.
Here's an easy remedy. If you don't like my habit of
"top-posting" then just filter out my postings, and all my
annoying violations of netiquette will just disappear.
cheers, jw Tag: Script startup / current path? Tag: 170223
LDAP Search Script - Issue Querying Terminal properties
I found this handy sample script from Microsoft's website which I want to
expand on.
I have successfully modified this script to query other values but whenever
I try to query Terminal related values the script hangs. For example, where
it mentions "SELECT givenName, SN, department, telephoneNumber FROM..." Once
I put "TerminalServicesProfilePath" and "TerminalServicesHomeDirectory" - the
script hangs.
Any idea's?
Thanks in Advance
=========================================
Const ADS_SCOPE_SUBTREE = 2
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.Cells(1, 1).Value = "Last name"
objExcel.Cells(1, 2).Value = "First name"
objExcel.Cells(1, 3).Value = "Department"
objExcel.Cells(1, 4).Value = "Phone number"
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 100
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT givenName, SN, department, telephoneNumber FROM " _
& "'LDAP://dc=fabrikam,dc=microsoft,dc=com' WHERE " _
& "objectCategory='user'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
x = 2
Do Until objRecordSet.EOF
objExcel.Cells(x, 1).Value = _
objRecordSet.Fields("SN").Value
objExcel.Cells(x, 2).Value = _
objRecordSet.Fields("givenName").Value
objExcel.Cells(x, 3).Value = _
objRecordSet.Fields("department").Value
objExcel.Cells(x, 4).Value = _
objRecordSet.Fields("telephoneNumber").Value
x = x + 1
objRecordSet.MoveNext
Loop
Set objRange = objExcel.Range("A1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("B1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("C1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("D1")
objRange.Activate
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.Autofit()
Set objRange = objExcel.Range("A1").SpecialCells(11)
Set objRange2 = objExcel.Range("C1")
Set objRange3 = objExcel.Range("A1")
========================================= Tag: Script startup / current path? Tag: 170222
Outlook - Changing SMTP Ports VBScript
Hi Everyone,
We have around 100 laptops out there that arent connected to a domain, and
most users arent really computer savy. I'm looking to figure out how to
change SMTP ports on specific accounts in Outlook 2003 and XP (I've figured
it out for Outlook Express). I'm not really sure where to look, I'm quite
certain these values are in the registry, but I'm not sure where to look.
Anyone have any ideas? Tag: Script startup / current path? Tag: 170220
Possible in vbscript?
I'd to use an HTML editor to help filling/modifying a textarea in an
HTML form. I am totally new in programming vbscript and would like to
know whether the following scenario could be realized with vbscript.
When clicked a button located near the textarea:
<> Saves the contents of the textarea in a temporary file
<> Launches an HTML editor installed on my PC giving it the temporary
file as an argument
<> Waits for the edit session to complete
<> Stores the contents of the temporary file inside the textarea
<> Removes the temporary file
Thanks for your help.
Bruno Tag: Script startup / current path? Tag: 170217
Looping Group Creation Script Help...
Hi
Firstly, I'm a newbie to vb scripting, and so I find that at the
moment, I scrape along using bits of code extracted from various
sources (mostly books or Microsoft), until I earn the fundamentals.
Basically, I'm trying to say please don't shoot me down if my script
contains glaring (to the professional eye) coding errors.
At the moment, I'm trying to create a script that creates Active
Directory global groups, based on information supplied from a text file
(the script loops until it reaches the end of the file). The script
assignes two parts to the name, which is the 'cn=' value, and the
'sAMAccountName' value. The 'cn=' part works fine, but the script falls
at the 'sAMAccountName' value. The script looks like this:
##########################################
Const ForReading = 1
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("C:\Shared\Scripts\Groups\Groups.txt", ForReading)
Set objRootDSE = GetObject("LDAP://RootDSE")
strRoot = objRootDSE.Get("defaultNamingContext")
Set adsContainer=GetObject("LDAP://" & strRoot)
i = 0
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
objDictionary.Add i, strNextLine
i = i + 1
Loop
msgbox(strNextLine)
For Each objItem in objDictionary
adsGrp = objDictionary.Item(objItem)
Set adsGroup = adsContainer.Create("group", "cn=" & adsGrp)
adsGroup.Put "sAMAccountName", adsGrp
adsGroup.SetInfo
Next
WScript.Echo "Group creation is complete"
WScript.Quit
########################################################
I've tried putting a MsgBox in just before the 'sAMAccountName' line,
to see what the value of the 'adsGrp' variable is, but it returns as
empty, then fails.
I've used a similar script to create Organizational Units, and it works
fine, but that one doesn't assign two values. Can anyone help?
--
tbennett300
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------ Tag: Script startup / current path? Tag: 170207
Error: 80072030, Facility: LDAP Provider, "There is no such object on the server."
Hi,
I desperetly seek for help here.
I'm running this script from my local machine (2003 server) and try to
connect to the exchange on a different server. I have all the CDO
obejcts installed:
1 Set iExs = CreateObject("CDOEXM.ExchangeServer")
2 iExs.DataSource.Open "inquire-exch"
4 For Each storegroup In iExs.StorageGroups
5 Next
As a result, I'm getting the following error on line number 4:
C:\a.vbs(5, 1) (null): There is no such object on the server.
Facility: LDAP Provider
ID no: 80072030
Microsoft CDO for Exchange Management
when running the script on the exchange serveri itself, no problem
occur. I also have administrator priviliges on the exchange server.
Any idea what could be the problem here?
Thanks!
Alon Tag: Script startup / current path? Tag: 170202
replacing ASCII text
newbie question here:
I need to create a function that will take in a string and replace any
ASCII characters greater than ASCII code 127 with their HTML equivalent.
E.g. something like: Replace(sInput, Chr(233), "é")
but to account for every other character than might get in there.
Would it be more cost-effective (processing-time wise) to just write
lots of replace functions one after the other, or should I loop through
the string and replace and characters as I encounter them.
How would I do this?
Thanks!
--
"I hear ma train a comin'
... hear freedom comin" Tag: Script startup / current path? Tag: 170201
download and save an image from a website
Hi. How do I download an image from a website and save it on the client
side?
Thanks a lot,
MC Tag: Script startup / current path? Tag: 170197
Cant Access a textbox value in a div (HTA environment)
Hi,
I can write, access style variables to a textbox in a div. But i cant
read the value of it. I am working around HTA.
i tried window.textboxid.value AND
document.getElementById("textboxid").value methods...
The textbox is inside the <div>, also div properties has all read-write
permissions.
I am going to eat my keyboard.
What is the definite true solution?
Thanks
Caglar Tag: Script startup / current path? Tag: 170196
CreateObject suucceed but using members fails
I have one COM server that implements one method/property that returns int .
The CreateObject does create the instance of com server.
The problem is that I get error when trying to access its method/property
with the annoying behaviour that in some computer it works and in others it
doesn't
Dim app
Dim result
Set app = CreateObject("MyApp.MyApplication")
result = app.Result
When trying with VB6.0 to check with more detais. I did:
Dim app as Object ....
and I got the same error, but if I do
Dim app as MyApplication
it works.
Looks like the "casting" from generic Object type to use defined type is not
working on those computers where I get the error.
Does anyone had similar problems before, or what is the cause of it?
Thanks on advance
alex Tag: Script startup / current path? Tag: 170192
window.opener problem!
Hi,
When i used window.opener to access the opener from the popup window
this problem (object required) has occured. I used to use this
technique in my web applications without any problem. Is there a
security issue for window.opener in HTA environment.
Or a syntax difference?
Thanks.
Caglar Tag: Script startup / current path? Tag: 170190
Cannot get information from details view
Hi all,
I cannot get the information in details view of "Network and Dial-up
Connections", may I have your suggestion about what is going wrong?
Code start:
sNetworkFolderName = "Network and Dial-up Connections"
Const ssfCONTROLS = 3
set shellApp = createobject("shell.application")
set oControlPanel = shellApp.Namespace(ssfCONTROLS)
for each folderitem in oControlPanel.items
if folderitem.name = sNetworkFolderName then
set oNetConnections = folderitem.getfolder
exit for
end if
next
for each folderitem in oNetConnections.items
msgbox folderitem.name
'can get the name successfully
msgbox "hi " & folderitem.ExtendedProperty("Status")
'get hi only
next
Code End
Thanks a lot Tag: Script startup / current path? Tag: 170181
Inserting from ASP creates 2 records instead of 1
Hi,
I'm doing an insert from an ASP page (written in VBScript) and there is a
problem.
When I call the SP from the page, it inserts 2 records into my table. If I
call the SP directly from Query Analyzer, 1 record is inserted.
I removed the oRS.moveFirst. that fixed it, but it causes other problems.
Any ways to get around this double insert crap?
please advise Tag: Script startup / current path? Tag: 170174
Access share on network computer
I have a limited experience with vbs scripting, so I would be grateful for
some help.
I need to script copying a file from one pc to another.
The source part is no problem, as I can access a share on the source pc
directly.
Due to network configuration issues I need to set a connection/access the
target WinXP Pro pc by its IP address (say 192.168.200.1) and logon with
username and password (say "pcname\myname" and "mypass").
Is there a way to make this work in one go:
logon remotely
(maybe map the remote share to local drive letter temporarily)
copy the file tothe remote share
(maybe mop up)
Thanks in advance,
Eric Tag: Script startup / current path? Tag: 170171
Hidden Variable not holding value
What's happening:
When Select all button is clicked the hidden variable, buttonname, is
supposed to be set to all and the form is submitted to itself. If the
buttonname = 'all' then all of the checkboxes are supposed to be displayed as
checked. However the buttonname variable is not holding it's value. When I
view the final source after submitting the form, the buttonname variable is
empty. I didn't know what group to post this in since my code contains both
vbscript and javascript. If you can help I'd very much appreciate it.
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>StarNet - E-mail Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<SCRIPT LANGUAGE="JavaScript">
function submitthis ( selectedtype )
{
document.list.buttonname.value = selectedtype ;
document.list.submit() ;
}
-->
</script>
<% getCon=Application("connectionObject")
'type is true if an ecard and false if a newsletter.
dim objrs,bool,mailer
set objrs=server.CreateObject("adodb.recordset")
set objGroups=server.CreateObject("adodb.recordset")
set objContest=server.createobject("adodb.recordset")
objrs.open "select * from addstarnet where username ='" & session("whois")
& "' order by groupname",getcon,3,3
If isnull(session("agentid")) or session("agentid") = "" or
isempty(session("agentid")) then
contestcontacts = false
else
objContest.open "select * from contest where agentid = '" &
session("agentid") & "'",getcon,3,3
If not objContest.eof then
contestContacts = true
objContest.movefirst
else
contestContacts = false
end if
end if
If not objrs.eof then
bool = true
objrs.movefirst
objGroups.open "select distinct groupname from addstarnet where username =
'" & session("whois") & "' order by groupname", getcon,3,3
objGroups.movefirst
else
bool = false
end if
%>
</head>
<body>
<table width="638" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="634" height="236" valign="top" bgcolor="#FFFFFF"><div
align="center">
<table width="634" border="0" cellpadding="0" cellspacing="0"
style="margin-bottom:0">
<tr>
<td width="634"><div align="center"><img src="images/S.gif"
width="40" height="65"><img src="images/t.gif" width="50" height="65"><img
src="images/a.gif" width="64" height="65"><img src="images/r.gif" width="50"
height="65"><img src="images/n.gif" width="54" height="65"><img
src="images/e.gif" width="48" height="65"><img src="images/t.gif" width="50"
height="65"></div></td>
</tr>
<tr>
<td><div align="center"><font color="#996600">E-mail Postcard and
Newsletter System</font></div></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><strong><font color="#000000">Step 4 - Send
to... </font></strong></td>
</tr>
<tr>
<td valign="top"> <p align="center"> </p>
<p align="center"><a href="email_admin.asp">Add/Delete/Edit
E-mail
Addresses</a></p>
<% If bool = true then%>
<form action="step4.asp" method="post"
enctype="multipart/form-data" name="list">
<table width="530" border="1" align="center" cellpadding="1"
cellspacing="1">
<tr bgcolor="#CCCCCC">
<td colspan="4" bgcolor="#CCCCCC"><a
href="javascript:submitthis('all')">Select
All </a> -<a href="javascript:getsupport('Free')">
Delete
Selected</a> - <a
href="javascript:getsupport('Free')">Select
Contest Contacts Only</a></td>
</tr>
<%response.write(request("mailer"))
For i = 1 to objGroups.recordcount%>
<tr bgcolor="#CCCCCC">
<td colspan="4" bgcolor="#FFFFFF"><font size="2">
<input name="buttonname" type="hidden" value="">
<input name="list<%response.write(i)%>"
type="checkbox" id="list<%response.write(i)%>"
value="<%response.write(objGroups("groupname"))%>" <%If request("buttonname")
= "all" or request("list" & i) = objGroups("groupname") then
response.write("checked")%>>
<%response.write(objGroups("groupname"))%>
</font></td>
</tr>
<% b = 1
Do until objGroups("groupname") <> objrs("groupname")%>
<tr bgcolor="#CCCCCC">
<td width="45" bgcolor="#FFFFFF"><div
align="right"><font size="2">
<input name="list<%response.write(i & "-" & b)%>"
type="checkbox" id="list<%response.write(i & "-" & b)%>"
value="<%response.write(objrs("email"))%>" <%If request("buttonname") = "all"
or request("list" & i) = objGroups("groupname") then
response.write("checked")%>>
<%b=b+1%>
</font></div></td>
<td width="135"
bgcolor="#FFFFFF"><%response.write(objrs("first"))%></td>
<td width="145"
bgcolor="#FFFFFF"><%response.write(objrs("last"))%></td>
<td width="195"
bgcolor="#FFFFFF"><%response.write(objrs("email"))%></td>
</tr>
<%objrs.movenext
if objrs.eof then exit do
loop
objGroups.movenext
Next
if contestContacts = true then%>
<tr bgcolor="#CCCCCC">
<td colspan="4" bgcolor="#FFFFFF"><font size="2">
<input name="contest" type="checkbox" id="contest"
value="Contest Contacts">
Contest Contacts
</font></td>
</tr>
<%For i = 1 to objContest.recordcount%>
<tr bgcolor="#CCCCCC">
<td width="45" bgcolor="#FFFFFF"><div
align="right"><font size="2">
<input name="list<%response.write("c-" & i)%>"
type="checkbox" id="list" value="<%response.write(objcontest("emailadd"))%>">
</font></div></td>
<td width="135"
bgcolor="#FFFFFF"><%response.write(objcontest("firstname"))%></td>
<td width="145"
bgcolor="#FFFFFF"><%response.write(objcontest("lastname"))%></td>
<td width="195"
bgcolor="#FFFFFF"><%response.write(objcontest("emailadd"))%></td>
</tr>
<%objcontest.movenext
next
end if
%>
</table>
<input name="mailer" type="hidden"
value="<%response.write(request("mailer"))%>">
<div align="center"><br>
<input name="image" type="image" src="images/next.gif"
alt="submit form" width="87" height="32">
</div>
</form>
<%end if%> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</body>
</html> Tag: Script startup / current path? Tag: 170168
how to check file access
Hi all,
I'm hoping that one of you can help me with the following issue.
I would like to copy some files from one location to another.
This is not so difficult to do with vb scripting, but in my case it's
possible that the person that is executing the script has no access to some
of the files.
Now I can solve this with on error resume next, but then I don't have
controle over the situation.
I would like to check if the user is able to read the file before copying
it.
That way I don't have to create all the subfolders at the destionation
folder if it's empty.
I also can open every file that I'm copying and see if this raises an error,
but that seems a lillte to much overhead if you ask me.
I'm sure that there is an easier way, but I have not found it yet....
Any help is surly appriciated....
Thanks in advance...
Greetings Sander Tag: Script startup / current path? Tag: 170165
Multiple Computer System Restore disable script
Hi,
I'm trying to run a script on my Network to disable System Restore on every
computer in the Domain. This is what it looks like:
On Error Resume Next
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.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT CN FROM 'LDAP://dc=domainname,dc=com' WHERE
objectCategory='computer'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordSet.Fields("Name").Value
' =====================================================================
' Insert your code here
' =====================================================================
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer &
"\root\default")
Set objItem = objWMIService.Get("SystemRestore")
errResults = objItem.Disable("")
' =====================================================================
' End
' =====================================================================
objRecordSet.MoveNext
Loop
I'm not sure if there is anything run with it but it's not working. Could
somebody help?? Tag: Script startup / current path? Tag: 170161
Excel formatting using vbscript
Hi all,
I'm searching for he code how to align the text in a cell to centered.
anybody an idea?
--
K0b3
------------------------------------------------------------------------
Posted via http://www.codecomments.com
------------------------------------------------------------------------ Tag: Script startup / current path? Tag: 170159
Wait for the install to finsh! Please!
I am launching an install with setup.exe and need the script to wait
until the install (msiexec) has completed before moving on, I have
tried several command and none of them seem to work...
In a vbs I am trying to uninstall any old version of NAV they have and
then install the new version of NAV with the settings we want. All
done with no user interaction.
I am launching the uninstall with "start /w msiexec /x {GUID HERE} /qn
REBOOT=REALLYSUPPRESS"
And then the install with "start /W setup.exe /v""/qb+
ADDLOCAL=SAVMain,SAVUI,SAVHelp,EMailTools,OutlookSnapin,Pop3Smtp,QClient
ENABLEAUTOPROTECT=1 RUNLIVEUPDATE=1 NETWORKTYPE=1 SERVERNAME=MANAGED
REBOOT=REALLYSUPPRESS /l*v c:\SAV9Inst.Log"" ",1,True"
I am using objshell.run "......" for both the install and uninstall.
The wait command does not seem to work, it launches msiexec so when
setup.exe exits it thinks it is done. How can I do this? Should I be
uinsing the Windows Installer method instead? I cannot find a lot
details on the use of this method.
TIA.
Regards. Tag: Script startup / current path? Tag: 170157
Add/Remove users to a machine. Is there a better way to do this?
I need to make sure that one account (SMS_connection) is on all machines
with domain accounts. I set it up as a startup script / GPO, and it seems to
work well.
I also need to remove 2 accounts 1 local,and 1 a domain account. Is there a
better way?
By removing the user "local_dummy" from the users group I effectively remove
it from the machine...right?
How would I go about removing the actual account from the machine? IS there
a better way?
Thanks
Here is the script...
Set oWshNet = CreateObject("WScript.Network")
sUser = "SMS_connection"
sNetBIOSDomain = oWshNet.UserDomain
sComputer = oWshNet.ComputerName
Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group")
Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user")
On Error Resume Next
oGroup.Add(oUser.ADsPath)
sUser = "domain_dummy"
sNetBIOSDomain = oWshNet.UserDomain
sComputer = oWshNet.ComputerName
Set oGroup = GetObject("WinNT://" & sComputer & "/Administrators,group")
Set oUser = GetObject("WinNT://" & sNetBIOSDomain & "/" & sUser & ",user")
On Error Resume Next
oGroup.Remove(oUser.ADsPath)
sUser = "local_dummy"
sNetBIOSDomain = oWshNet.UserDomain
sComputer = oWshNet.ComputerName
Set oGroup = GetObject("WinNT://" & sComputer & "/Users,group")
Set oUser = GetObject("WinNT://" & sComputer & "/" & sUser & ",user")
On Error Resume Next
oGroup.Remove(oUser.ADsPath)
On Error GoTo 0 Tag: Script startup / current path? Tag: 170154
Creating printers through the registry
I'm writing a script which creates printers with the PrnAdmin.dll. This
means that I can't control the entire configuration of the printer. I'm
beginning to wonder about the alternatives.
Have anybody any experience with creating printers by editing the registry?
Or have you tried to create the printer and then modify the registry to
configure the printer (setting proper defaults).
Ayy suggestions and hints will be most welcome.
greetings, Tag: Script startup / current path? Tag: 170153
Client-Side Cache Script Automation
Greetings, all!
The local cache for Offline Files and Folders can be reset by holding
CTRL+SHIFT and clicking the Delete Files... button in the Offiline Files and
Folders dialog. Is it possible to automate this step with VBScript or
something similar?
Any assistance is greatly appreciated. Thanks for your time!
- SB Tag: Script startup / current path? Tag: 170151
Getting Word Application Instance -
How can I use VBScrtipt to determine wheather a particular Workd Instance is
running on my computer, that has been created by the Script. For example
Set oAppWord = CreateObject("Word.Application")
1. Before I execute the statement I would like to check if an instance is
allready running on the client computer
2. I want to save the ProcessID and close if an error occurs in the program
Thanks in advance
Chris Andreou Tag: Script startup / current path? Tag: 170147
Account DISABLED date tracked in AD?
Hello,
Is there a way to obtain the date (and time if possible) that an account in
AD was Disabled?
Thanks,
Troy Tag: Script startup / current path? Tag: 170146
removing the "password never expires" setting from AD accounts
Hello,
I have a script which goes through local accounts (on member servers
and professional workstations) and ensures the password never expires
option in NOT set. Now I'm trying to convert this script to work on
domain controllers with active directory accounts.
Basically the script enumerates all the accounts in Active Directory
and then attempts to unset any password never expires options.
Where I'm having problems is the conversion between the WINNT and LDAP
providers. Line 8 (which is commented out) in the script below is from
the working, local accounts, version of the script. Line 9 is my
attempt to translate line 8 for use with Active Directory accounts.
Lines 13-18 are directly from the other script too.
Line 9 is broken; any help anyone can provide with regard to the proper
syntax is greatly appreciated.
1. Const ADS_UF_DONT_EXPIRE_PASSWD = &H10000
2. Dim usrFlagsValue
3.
4. set objContainer =
GetObject("LDAP://cn=Users,dc=mydomain,dc=local")
objContainer.Filter = Array("User")
5.
6. For Each objLocalUser In objContainer
7. strUser = objLocalUser.sAMAccountName
8. ' Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser
& ",user")
9. Set objUser = GetObject("LDAP://cn=" & strUser &
",dc=mydomain,dc=local")
10.
11. usrFlagsValue = objUser.Get("UserFlags")
12.
13. ' Check to see if the bit for password never expire is set;
14. ' The Xor operator toggles any "on"s to "off"s
15. If (usrFlagsValue AND ADS_UF_DONT_EXPIRE_PASSWD) <> 0 Then
16. usrFlagsValue = usrFlagsValue XOR ADS_UF_DONT_EXPIRE_PASSWD
17. objUser.Put "userFlags", usrFlagsValue
18. objUser.SetInfo
19. End If
20. Next Tag: Script startup / current path? Tag: 170145
error when working with CDOEXM to retreive data from remote Exchange
Hi,
I desperetly seek for help here.
I'm running this script from my local machine (2003 server) and try to
connect to the exchange on a different server. I have all the CDO
obejcts installed:
1 Set iExs = CreateObject("CDOEXM.ExchangeServer")
2 iExs.DataSource.Open "inquire-exch"
4 For Each storegroup In iExs.StorageGroups
5 Next
As a result, I'm getting the following error on line number 4:
C:\a.vbs(5, 1) (null): There is no such object on the server.
Facility: LDAP Provider
ID no: 80072030
Microsoft CDO for Exchange Management
when running the script on the exchange serveri itself, no problem
occur. I also have administrator priviliges on the exchange server.
Any idea what could be the problem here?
Thanks!
Alon Tag: Script startup / current path? Tag: 170144
Empty file problem
Hello all,
I created a cheap download script to download files. It works great on
almost ever user we have, except for a few. I think there is some type of
configuration problem on the server or browser, but I wanted to check with
you guys first.
Here is the script.
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", FilePath, False
objXML.Send
'// SafeFullFileName is the file we are downloading. We check to be sure
it exists, right format, etc.
Response.AddHeader "content-disposition","attachment;filename=" &
SafeFullFileName
Response.ContentType = "application/" & SafeFullFileName
Response.BinaryWrite objXml.ResponseBody
Set objXml = Nothing
Thanks for the help. Tag: Script startup / current path? Tag: 170142
Loop through dictionary object
I am writing a script that reads and test file, and then creates a dictionary
based on set criteria. Each key that is added to the dictionary is appended
with a number. This bit works OK. What I then need to do is output the data
held in the dictionary, based on the first letter of the dictionary key. I
need to do some sort of loop through the dictionary, that will look for all
intances starting with "1", then all starting with "2", until it reaches the
end of the dictionary.
This piece of script will echo each key starting with "1", but I then need
it to loop and show "2" etc etc. I have tried adding a Loop function, with
an incremental counter i.e. n=0, n=n+1, but it's not quite doing what I need.
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objDictionary = CreateObject("Scripting.Dictionary")
objDictionary.Add "1_file.txt", "1"
objDictionary.Add "2_file.txt", "2"
objDictionary.Add "3_file.txt", "3"
colKeys = objDictionary.Keys
For Each strKey in colKeys
if Left (strKey,1) = n then Wscript.Echo mid(strkey,InStr(strKey,"_")+1)
Next
colItems = objDictionary.Items
For Each strItem in colItems
if Left (strItem,1) = "1" then Wscript.Echo strItem
Next Tag: Script startup / current path? Tag: 170132
User Generated Content
I need to setup a webpage that generates links to documents based on the
persons locally logged on username.
The script below does the job, however I need the text "Please Click Here"
to be hyperlinked to another page, I have tried doing a normal a href tag but
this would not work.
Any Ideas.......
<script type="text/vbscript">
function greeting()
i=UserName
If i = administrator then
document.write("Hello Administrator! Please click here")
elseif i = sysadmin then
document.write("Hello Sys Admin!")
elseif i = Guest then
document.write("Hello Guest!")
elseif i = Internet then
document.write("Hello Internet!")
else
document.write("You are not an authorised user")
end if
end function
</script>
Any help would be appreciated Tag: Script startup / current path? Tag: 170131
How to use vbscript to copy a header from one Word document to another
I'm having trouble figuring out how to use vbscript to copy a header from
one Word document to another.
The code below generates an error message telling me that the requested
object doesn't
exist i.e., the error is produced by this line:
Set objSourcRange =
objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text
However, the document does have two sections, and each section does have a
header. So, I'm stumped.
Any suggestions (preferably with explanation, or a clue where I can learn
what I'm doing wrong, etc.)
would be much appreciated.
Thanks, marceepoo
Here's the code:
Dim sSourcDocFulnam, sTargetDocFulnam
sSourcDocFulnam = "C:\Apps\test.speedText.doc.dot"
sTargetDocFulnam = "C:\Apps\New Microsoft Word Document.doc"
'
Set objWord = CreateObject("Word.Application")
'
Set objSourcDoc = objWord.Documents.Open(sSourcDocFulnam)
Set objSourcRange =
objSourcDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text
'
Set objTargetDoc = objWord.Documents.Open(sTargetDocFulnam)
Set objTargetRange =
objTargetDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.text
'
objTargetRange = objSourcRange Tag: Script startup / current path? Tag: 170129
ReDim + 2 Dimensional arrays = Errors!
I have an annoying problem where my array is unable to redim whilst in a
loop. I cant seem to see what the problem is, the code below shows that the
array is originally redim'd at the beginning creating a 2 dimensional array.
In the loop I want to increase the size of the array by 1 so I can add an
extra item in the array
Here is my code:
dim myarray()
redim myarray(1,2)
for i = 0 to 10
myarray(i,0) = i+1
myarray(i,1) = i*100
response.write myarray(i,0)&"<br>"
response.write myarray(i,1)&"<hr>"
redim preserve myarray(i+1,2)
next
My result with error:
1
0
--------------------------------------------------------------------------------
2
100
--------------------------------------------------------------------------------
Microsoft VBScript runtime error '800a0009'
Subscript out of range
/test2.asp, line 19
Any help would be appreciated,
John Watson Tag: Script startup / current path? Tag: 170127
Telnet object
Does anybody know of any good telnet class or objects?(ocx) We need to
configure a many pieces of hardeware and it will take about an hour per unit
and of course human error will happen. It would be nice to promatically
configiure. Tag: Script startup / current path? Tag: 170123
Sending a Fax
I am using the VB Script below to send an XLS file to a fax number,
the problem is there is no cover page or information to say where the
fax is from, who it is for etc, so all the recipient recives is the
XLS (Excel)file.
Can multiple files be faxed so that I can specify a cover page file as
well as the main file that I want to send? or is there a way of
entering more code to the example below to create some kind of header
to the fax?
Set doc=CreateObject("FaxComEx.FaxDocument")
Set server=CreateObject("FaxComEx.FaxServer")
Dim JobID
server.Connect "mhsmngbntsa14"
doc.Body="MY XLS FILE"
doc.DocumentName="Sample Fax"
doc.Recipients.Add "FAX NUMBER"
doc.Priority = 1
JobID = doc.ConnectedSubmit(server)
Im not a VB programmer so any feedback will have to be in baby talk!
Thanks. Tag: Script startup / current path? Tag: 170122
WMI Timeout on Remote Computer
Hi,
I am having problems with running WMI query against a few remote Windows
2000 computers.
Although the computer is turned on, the script just seems to hang for ages.
Is there any way I can set a timeout so if no values are returned within a
certain timeframe, the script will go on to the next computer?
Thanks for any help... Tag: Script startup / current path? Tag: 170121
convert VB script code to vb application
This is a multi-part message in MIME format.
------=_NextPart_000_0032_01C51447.56A8BE20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi,
I am wondering is there a way to convert a vbscript code to vb code and =
compile to be an .exe? and the exe would allow arguments.=20
thanks
Frank
------=_NextPart_000_0032_01C51447.56A8BE20
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2800.1491" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>I am wondering is there a way to =
convert a vbscript=20
code to vb code and compile to be an .exe? and the exe would allow =
arguments.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>thanks</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Frank</FONT></DIV></BODY></HTML>
------=_NextPart_000_0032_01C51447.56A8BE20-- Tag: Script startup / current path? Tag: 170111
Dropdown (<select></select>) z-index problem
I know there is a problem. But what will be the solution? Mydiv is the
1st z-indexed element. But at the back ground there is a <select>
element and they are overlapping visually.
any suggestions? Tag: Script startup / current path? Tag: 170110
Registry question
Hope someone can help, I want to be able to search the registry for a
particular SubKey, if that key is found then I want to delete the key... I
have put together a script that will enumerate the subkeys, but I am stuck
at this point... can someone help.
Option Explicit
Dim WSH
Dim strComputer
Dim objReg
Dim strKeyPath
Dim arrSubKeys
Dim SubKey
'###########################################################################
#########################################
Const HKEY_LOCAL_MACHINE = &H80000002
Const DELETE = &H00010000
strComputer = "."
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Network Associates\ePolicy Orchestrator\application
plugins"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
'For Each Subkey In arrSubKeys
'WScript.Echo SubKey
what I would like to do next is after the Keys are displayed I want to check
for a particular SubKey and if it exists I want to delete it.
Thanks
Gavin... Tag: Script startup / current path? Tag: 170096
Client Side Scripting Question.
As I'm new to ASP and VBscript, could someone explain (or point me to) how
client side VBscript works on an ASP page. In particular, I have an ASP page
that has a body with a form. I need to create a function to return the value
of a text field. I would like to call the function with the onsubmit event.
But alas, i get all kinds of errors (such as invalid call etc). Any
direction would be helpful.
Also, when an ASP page loads with a form element and VBscript code, which
executes first? The script or the form?
TX... Tag: Script startup / current path? Tag: 170094
Questions Regarding Windows Scripting
Note: I am cross-posting this to microsoft.public.scripting.vbscript. I
apologize in advance if only part of the message is relevant to that group.
Hi,
I have a few questions regarding use of the Microsoft Windows Scripting
engine in a Visual Basic (classic) application. I am writing an application
in VB6 Pro. that will be widely distributed (Windows 98 and up). Some parts
of the application make use of the Microsoft Script Control (msscript.ocx).
I understand that it is possible for end-users to disable the "Windows
Scripting Host" and that it is a somewhat common thing to do due to security
issues. This brings up a few questions:
1) Is this the only way possible to disable scripting on the system? If not,
what else should I look out for?
2) If scripting is disabled, will the code executed by the Microsoft Script
Control fail to run? Or is the Script Control independent of that system
setting?
3) Is there any way to programmatically find out if scripting has been
disabled?
I realize that I could find out some of these answers myself if I had access
to a test system where scripting was disabled. What steps can I follow in
order to disable scripting on my test machine?
Finally, is the Microsoft Script Control dependent on any other files? I
scanned the file with Dependency Walker and could not find anything. Also, I
found the following post by Randy Birch on June 8 of last year, that states:
"It can be redistributed, as stated in MSKB article Q190978 (talking
about a
missing dependency error when using the package & deployment wizard to
include msscript.ocx. Specifically, it states "RESOLUTION: In the case
of a
control such as MSSCRIPT.OCX, which does not need any additional files
to be
distributed with it, the message regarding "Missing Dependency
Information"
may be safely ignored."
But, I would like to make sure that this is really the case.
Thanks in advance,
George Tag: Script startup / current path? Tag: 170087
Test for a group without members
Hello,
Is there an easy way to test an AD group for "no membership"..?
Thanks,
Troy Tag: Script startup / current path? Tag: 170084
vbs logon script
I'm looking for a simple (vbs) logon script that I'll use in a workgroup
with a windows 2003 standard server without a domain controller.
It has to do this: map network drives with different usernames/passwords.
I mean: network drive //fileserver/files needs to be drive H: on the
workstation and needs to be mapped with username 'myself' and password
'secret'. If possible the drive H: needs to be named 'FILES'.
Anynone? Tag: Script startup / current path? Tag: 170083
AD Group members without knowing full DN
Hello,
I have a deeply nested AD OU structure... I have a need for a script to
list group membership.... The script will not know the full DN of the group
name.. Is there an easy way to simply query AD for a group name match??
Troy Tag: Script startup / current path? Tag: 170077
Convert to NTFS
Anyone have a script that automatically sets the computer to schedule a
convert to NTFS at next reboot without user interaction? Tag: Script startup / current path? Tag: 170076
Building Array and Retrieve Data
I've been struggling with retrieving data from an array.
I want to search the array against "dataX" and if a match is found
retrieve the corrosponding "datapropertyX" value.
Dim arrDataSet(1,1)
arrDataSet(0,0) = "data1"
arrDataSet(0,1) = "dataproperty1"
arrDataSet(1,0) = "data2"
arrDataSet(1,1) = "dataproperty1"
Can someone point me in the right direction?
~Randy Tag: Script startup / current path? Tag: 170073
Excel graph to Word
I am trying to (with vbscript) copy a number of Excel graphs from Excel
into Word but I cannot figure out how to do it. It would be nice to
copy them as Excel objects but it would also be ok to just copy them as
images. I would also like to adjust the size of the images/objects.
Does anyone know how to do this?
I use Office 2003.
Thanks
Anders Sneckenborg Tag: Script startup / current path? Tag: 170072
ie.Navigate can't deal with certain types of addresses
If I put the simple code below into a .vbs file and run it, it should
bring up a new IE window, put up an alert box, then change IE's
title. And it does on my (gasp) unpatched Win 2K Pro system.
However, if I run the same script on my patched Win XP Pro
system, IE disappears, but fast, when the ie.navigate is hit. I'm the
sole owner/operator with administrative privileges on both machines.
Now I figure this is a security issue since if I write the long string
that js contains directly into (the XP) IE's address bar, it is fine
with that. So if that's the case, how do I get IE to allow me to
programatically muck with it?
In particular, what I'm asking is: given that I manually start a
specific program (myProgram.vbs in this case, but it could just
as well be PHP acting on myProgram.php) how can I designate
that I want other programs to treat it as my fully empowered,
authorized agent?
Thanks,
Csaba Gabor from Vienna
set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = true
hdr = "<head><title>Starting title</title></head>"
onload = "alert(\'Title\\\'s going to change\');document.title=\'Title
changed\';"
bdy = "<body onload=""" & onload & """>Hi Mom</body>"
js = "javascript:'<html>" & hdr & bdy & "</html>'"
msgbox js
ie.navigate(js)
tmp=ie.readyState 'to alert us if ie prematurely disappears
I've broken the generated string into three lines. Join them as one
string to see the manual version in action:
javascript:'<html><head><title>Starting title</title></head>
<body onload=""alert(\'Title\\\'s going to change\');
document.title=\'Title changed\';"">Hi Mom</body></html>' Tag: Script startup / current path? Tag: 170069
vb6.0 + SC IDE Debugger
Subject: vb6.0 + SC IDE Debugger
I want to debug some vbs code (thru script control) by VB6.0,
Is there any MS IDE Debugger tools for me to debug it step by
step ?
Thanks. Tag: Script startup / current path? Tag: 170068
How to press OK to a popup dialog box in IE?
Hello,
In my organisation, we need to do some logout on a webpage to really log off
the internet.
I'm thinking about trying to write a script to do this automatically and
make this the logout/shutdown script. I've now got the following script
which is listed below. I know that after clicking on the logout icon, a pop
up will come up and ask me if I want to close the IE window, and there will
be an OK and a Cancel buttons.
How do I mimic clicking on the OK or the Cancel button? I want to know
about both for the sake of learning. Or can I just code it such as with
IE.close to close it whatever I'm presented?
Thanks.
Herbert
=======================
Set IE=CreateObject("InternetExplorer.Application")
If Err.number <> 0 Then
MsgBox "There was a problem starting Internet Explorer."
wScript.Quit
End If
IE.Visible=1
IE.Navigate "some internal link"
do while IE.busy: loop
Call NavigateLink(IE.document, "javascript:logout()")
<I need something here>
'IE.Quit
set IE=nothing
Function NavigateLink(Doc, Contains)
Dim colLinks
Dim iIndex
Dim oLink
Set colLinks = Doc.links
For iIndex = 0 To colLinks.length - 1
Set oLink = colLinks(iIndex)
If InStr(oLink.href, Contains) > 0 Then
Call oLink.click() ' Or maybe IEObject.navigate oLink.href depending
on what you need
NavigateLink = True
Exit Function
End If
Next
NavigateLink = False
End Function
================================= Tag: Script startup / current path? Tag: 170067
Hi,
Which command returns the script startup / current location? I'm looking for
the directory which contains the script not the current working directory.
"Yaiz" <Yaiz@discussions.microsoft.com> wrote in message
news:7CD18F7D-9451-48F3-B9F7-07D28C8AED8C@microsoft.com...
> Hi,
> Which command returns the script startup / current location? I'm looking
for
> the directory which contains the script not the current working directory.
>
> Many thanks
>