Displaying computer OU in ASP

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Reverse nslookup from file I'm new to this, so I'm having a hard time with it. I need to have a VB script read from a text file of IP addresses, and return their name (through nslookup or other) and put it in another file. How do I do the iterations and get nslookup in a VB script? Any help would be appreciated. Thank you, KB Tag: Displaying computer OU in ASP Tag: 162819
  - 2
    - FTP Upload Hi I have a problem with a script I wrote in VBS. I am trying to upload a file through FTP to a server! I made follwing script but the script always hung! Here is the script: dim url,rdir,user,pass,fname url="ftp://server.ch/" rdir="" fname="Stelle.xls" user="User" pass="Pass" call Fdf(url,rdir,user,pass,fname) Sub Fdf(url,rdir,user,pass,fname) dim fso, ftpo Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set ftpo = WScript.CreateObject("InetCtls.Inet.1") ftpo.URL = url ftpo.UserName = user ftpo.Password = pass ftpo.Execute , "CD " & rdir Do WScript.Sleep 100 Loop while ftpo.StillExecuting ftpo.Execute , "Put C:\" & fname& " " & fname Do WScript.Sleep 100 Loop while ftpo.StillExecuting ftpo.Execute , "Close" End Sub The script always hung! Can someone help me with ftp-upload? Thanks alot Nijazi Halimaji Tag: Displaying computer OU in ASP Tag: 162818
  - 3
    - How to filter files based on format? Hi, How to filter files based on format? In my log folder I want to select file names starts with C*.log. How to get that? Thanks GTS Tag: Displaying computer OU in ASP Tag: 162816
  - 4
    - WMI MSCluster_ClusterToQuorumResource Is there a way to find out which node (server) in a cluster has (owns / is running) the QuorumResource (Q: Drive) using WMI? The reason I ask is that I would like to shut down the server (node) that has the QuorumResource last. Words of wisdom wanted. Scott Tag: Displaying computer OU in ASP Tag: 162814
  - 5
    - Pause x seconds or until keypress I'm looking for a way in a stand-alone vbscript, that will be run with CScript, to pause for a certain amount of time OR until it is interrupted with a keypress. When the pause is interrupted, it should skip the remainder of the wait time and continue. In old Basic there was something called INKEY$ that did this in a loop. I'm looking for something similar for VBScript. Your help is sincerely appreciated. Eric Brander Tag: Displaying computer OU in ASP Tag: 162812
  - 6
    - Unable to remove remembered drives I've setup a VBScript that looks for an unused drive letter and maps it to another server to allow me to transfer some files. The script is completely finished and works perfectly if I double click on the .VBS file myself and run it. However when I started the file from the scheduler (using the same account and password that I used to logon to the server) its all goes pear shaped. When I started the script from the scheduler by right clicking the task and selecting Run it hung. So I right clicked again and terminated it. I then tried it again a few more times with a few adjustments to the script. It turned out that it couldn't map the drive for some reason and was hanging. The error message was: "An attempt was made to remember a device that had previously been remembered" It seems that while I was debugging my script I was somehow mapping each free drive that was found (although you cant see the mapping in My Computer). And it now appears I cant remove these remembered drives, or map them again... But only when the script is run from Task Scheduler. I've written a function to see whats mapped (see viewMappings below), and this is what it showed: d: = True as Data e: = True as mapped_by_script f: = True as mapped_by_script g: = True as mapped_by_script h: = True as mapped_by_script i: = True as iApps j: = True as mapped_by_script k: = True as mapped_by_script l: = True as Logs m: = False n: = False o: = True as BACKUP p: = False q: = False r: = False s: = False t: = False u: = False v: = False w: = False x: = False y: = False z: = True All the drive marked as 'mapped_by_script' above have been mapped by the script when it ran from Task Scheduler. Looking on the net I've found some code that should remove these drives, ie: WshNetwork.RemoveNetworkDrive "E:", False,True However if I try this with E: I get this error- This network connection does not exist. But this cant be True because if I try and map E: I get this error- The local device name is already in use. What on earth is going on here? If I run the script manually again (not from scheduler), it runs perfectly again. And will even map drive E: if I tell it too. Can anyone help? I've been looking at this all day and I just cannot find a solution, and I dont know what to try next! TIA, Colin Function getNextFreeDrive() Dim fso Dim i Set fso = Createobject("Scripting.FileSystemObject") For i = Asc("d") To Asc("z") If Not fso.driveexists(chr(i)) Then freeDrive = Ucase(chr(i)) & ":" Exit For End If Next Set fso = Nothing Set i = Nothing End Function Sub mapDrive() On Error Resume Next Dim WshNetwork Set WshNetwork = WScript.CreateObject("WScript.Network") WshNetwork.MapNetworkDrive freeDrive, ExportFolder Set WshNetwork = Nothing End Sub Function viewMappings() On Error Resume Next Dim fso Dim i Dim driveListing Set fso = Createobject("Scripting.FileSystemObject") For i = Asc("d") To Asc("z") driveListing = driveListing & Chr(i) & ": = " & _ fso.driveexists(chr(i)) If fso.driveexists(chr(i)) Then driveListing = driveListing & " as " & _ fso.Drives(chr(i)).VolumeName End If driveListing = driveListing & vbcr Next SendCDOMail emailTo, emailFrom, "DRIVE LISTING", driveListing Set fso = Nothing Set i = Nothing End Function Tag: Displaying computer OU in ASP Tag: 162810
  - 7
    - How to goto a particular line of a opened file Hi, How to goto a particualr line of a opened text file in vbscript ? Thanks GTS -- <a href="www.arivial.net">www.arivial.net</a> Tag: Displaying computer OU in ASP Tag: 162806
  - 8
    - File processing Open, Seek Hi, How to process a file using OPEN and SEEK? I want to open a file in VBScript for processing. I could not found a function simlar to seek in the file system object. Is it possible to use the OPEN statement and seek statement in VBScript. Thanks GTS Tag: Displaying computer OU in ASP Tag: 162804
  - 9
    - how to populate a multidimentional array in vbscript Hi, I'm back to a vbscript asp project after a couple of years doing php. I used to be pretty good at vbscript, but i'm rusty. I have a spreadsheet that figures shipping costs. the rows are weight values. The columns are zones. The data is the cost to ship. weight, z1, z2, etc. 1, 5, 8 2, 8, 10 etc. I can't find any examples of how to actually populate the arrays in the code. Everyone wants to put dynamic data into arrays, but I have all my data, and I don't mind typing it all into the code. help? thanks -- Joel Goldstick Tag: Displaying computer OU in ASP Tag: 162794
  - 10
    - Nebbie question I have an vbscript that I am trying to get the value (text) from a <select> tag which has a number of enbeded <option> tags of course. I can't get the selected text. My code is below. I am able to get the selected index. I have searched all though the msdn site for some examples but can't find anything. Any help would be appreciated. <script language="vbscript"> Sub btnGroup_OnClick() dim strGroup dim seletedGroup selectedGroup = frmConfEdit.GroupID.selectedIndex 'alert selectedGroup strGroup = frmConfEdit.GroupID.value alert strGroup end sub </script> <select name="GroupID" class="FormCell" id="GroupID" style="width:200" onChange="UpdateList()"> <% if cint(rs.fields("GROUP_ID").value) > 0 then response.Write(DBOptionList("SELECT ID,GROUP_ID FROM GROUPS ORDER BY GROUP_ID","GROUP_ID","ID",rs.fields("GROUP_ID").value)) else response.write(DBOptionList("SELECT ID,GROUP_ID FROM GROUPS ORDER BY GROUP_ID","GROUP_ID","ID",SESSION("USER_GROUP_ID"))) end if%> </select> Tag: Displaying computer OU in ASP Tag: 162793
  - 11
    - Calling Scripts From Script I run a bunch of scripts on my server. Each is scheduled individually with the sceduling service. I'm thinking of writing one script that calls each script in turn. That way, I will only have one entry in scheduler. Is this possible? Tag: Displaying computer OU in ASP Tag: 162791
  - 12
    - Syntax Error ??? Hi All, I've written a function in VBScript that runs as part of a web application in IE. But, IE keeps telling me there's a syntax error. But for the life of me I don't see it. I've marked the line accordingly. Any help would be appreciated. TIA. Function EAAFOnSubmit( strAction ) addNew = 0 document.myForm.all("SALUTATION_ID").value = document.SALUTATION_IDFrame.SALUTATION_ID.value document.myForm.all("PRSN_TYP_CD").value = document.PRSN_TYP_CDFrame.PRSN_TYP_CD.value document.myForm.all("ARL_TITLE_ID").value = document.ARL_TITLE_IDFrame.ARL_TITLE_ID.value document.myForm.all("RANK_ID").value = document.RANK_IDFrame.RANK_ID.value document.myForm.all("myFormSubmitted").value = strAction If StrComp( strAction, "Close", VBTextCompare ) <> 0 Then If not EAAFValidate( strAction ) Then Exit Function End If End If If StrComp( strAction, "Update Record", VBTextCompare ) = 0 OR StrComp( strAction, "Update and Close", VBTextCompare ) = 0 OR StrComp( strAction, "Add New Record", VBTextCompare ) = 0 Then document.myForm.submit Exit Function End If <<< ERROR IS HERE SUPPOSEDLY If StrComp( strAction, "Close", VBTextCompare ) = 0 AND addNew = 1 Then opener.document.location = document.myForm.all("capturedURL") & "&onAddEmployee=CLOSEDELETE_" & document.myForm.all( "titleID" ).value Else opener.document.location = document.myForm.all("capturedURL") & "&onAddEmployee=" & document.myForm.all( "titleID" ).value End If window.close End Function Tag: Displaying computer OU in ASP Tag: 162782
  - 13
    - Forwarding O.E. How can I forward an email message without adding any header or initial character (i.e. > sign) in the body text? Thanks Sandrobi Tag: Displaying computer OU in ASP Tag: 162781
  - 14
    - Vbs: How To Read Variables From An external File? hello unfortunately i dont code in VBS nor any language from Microsoft, im PHP , Perl programer, i know its verey easy to learn VBS, but i don have much time to learn VBS, i manged to get a VBS code that execut extrnel commands. using this code i can code my scripts in PHP and run them from this VB code (im forced to use VBS) but the proplem is: i want the outpout that was created by PHP to b available to VBS. Example: VBScript: test.vbs : Code ------------------- Option Explicit Dim Command Command = RunOutput( "%comspec% /C D:\bin\php\php.exe -f F:\DeskTop\test.php", 0) MsgBox Command '--------------------------------------------------------------------- '-- RunOutput Function ------------------------------------ '--------------------------------------------------------------------- Function RunOutput( cProgram, nWindowType ) '-- Obtain a Temporary File Name Dim oFS Set oFS = CreateObject("Scripting.FileSystemObject") Dim cFile cFile = oFS.GetSpecialFolder(2).Path & "\" & oFS.GetTempName '-- Execute the command and redirect the output to the file Dim oShell Set oShell = CreateObject( "WScript.Shell" ) oShell.Run cProgram & " >" & cFile, nWindowType, True Set oShell = Nothing '-- Read output file and return Dim oFile Set oFile = oFS.OpenTextFile(cFile, 1, True) RunOutput = oFile.ReadAll() oFile.Close '-- Delete Temporary File oFS.DeleteFile cFile Set oFS = Nothing End Function ------------------- PHPScript: test.php : PHP code ------------------- <? $today = date("D M j G:i:s Y"); $Sec = md5("$today"); echo " Dim today today = \"$today\" Dim Sec Sec = \"$Sec\" "; ?> ------------------- now when i run the file *test.vbs* i get this Msg Box: [image: http://www.remal.com.sa/images/misc/VocieGuide_PHP_VBS.jpg] what i want is to be able to access the two variables that was returne by PHP "today and Sec" from the VBS script - Sale ----------------------------------------------------------------------- Posted via http://www.codecomments.co ----------------------------------------------------------------------- Tag: Displaying computer OU in ASP Tag: 162780
  - 15
    - VBScript to AD users or groups to the local administrator group Is there any way to use a VBScript to add Active Directory users or groups to the local administrators group? Tag: Displaying computer OU in ASP Tag: 162779
  - 16
    - Net Share and VBScript Hi all, this is my first time posting. I've been away from VB programing for such a long time I seem to be dumfounded when it comes to doing the easiest things. Here's the situation: Windows 2003 server and domain I have loads of home directories on my school server. With windows 9X's limitation of mapping to a share only the simple thing to do is make a share out of the home directory. - (simple if you like to right click a lot). Rights are already assigned to the home folder when it was created. I have a text file from Active Directory with the users name which matches the users home folder (already created). I would like to use this text file as a input file with a VBScript. While in the Do loop I would like it to... use the net share command to share the home folder as username + $ so that all the shares are hidden (keeps it very clean this way) That's it! Very simple for the right person, which I am not. Any help would be greatly appreaciated. Michael Tag: Displaying computer OU in ASP Tag: 162777
  - 17
    - Rename a computer and computer accout Hi, I'm having problem to rename all the PCs in company. I found the sample script here http://www.microsoft.com/technet/community/scriptcenter/compmgmt/scrcm36.mspx but it works only on XP or 2003. My clients are running on 2K Pro on 2K Domain. Please help me, give sample on how to write the script, i totally have no idea, plsssssss. Thanks in Advance...JJ Tag: Displaying computer OU in ASP Tag: 162776
  - 18
    - add user to group Got this code to create user & add it to group. In the last part of adding the user to a group I have a syntax problem. I want each UserNo i created in the loop be added to a security group. cannot seem to find the rihgt syntax. please help. TIA, Ronen Const ADS_PROPERTY_APPEND = 3 Set objRootDSE = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://OU=test,OU=Misc,OU=TAU," & _ objRootDSE.Get("defaultNamingContext")) Set objGroup = GetObject _ ("LDAP://CN=cn=Terminal Server User,OU=test,OU=Misc,OU=TAU") For i = 1 To 5 Set objLeaf = objContainer.Create("User", "cn=UserNo" & i) objLeaf.Put "sAMAccountName", "UserNo" & i objLeaf.Put "userPrincipalName", "UserNo" & i objLeaf.Put "givenName", "UserNo" & i objLeaf.Put "displayName", "UserNo" & i objLeaf.SetInfo objLeaf.SetPassword "111111" objLeaf.AccountDisabled = False objLeaf.SetInfo objGroup.PutEx ADS_PROPERTY_APPEND, _ "member", Array("cn=UserNo" & i "objContainer" ) objGroup.SetInfo Next WScript.Echo "5 Users created." Tag: Displaying computer OU in ASP Tag: 162773
  - 19
    - How to write the WMI Asset Tag Hi there! the code snippet --- strComputerName = "." strWinMgt = "winmgmts://" & strComputerName & "" Set compsysset = GetObject(strWinMgt).ExecQuery("select * from Win32_SystemEnclosure") For Each CompSys In compsysset MsgBox CompSys.SMBIOSAssetTag Next --- gives me the WMI Asset Tag. Is there a way to (over)write this value? As far as I see it is built in in the computer by the manufacturer, but I would like to use it to store the Asset Number of the PC from our Asset Management Database... Tag: Displaying computer OU in ASP Tag: 162771
  - 20
    - Clearing cookies reloading? Hi, i am not into scripting at all, but i know VBA ok. I' am trying to vote for my band on this web site: http://www.bbc.co.uk/northamptonshire/content/articles/2004/08/04/weekender_chart_vote_feature.shtml (the structure) -www.thestructure.co.uk! each time i vote it set a cookie, and will not allow you to vote agian. what i need to do is write a script that will clear out my cookies, relead the webpage. If it could also vote aswell then theat would be ace, if this can be done then i guess it can be looped. Can this type of thing be done - anyone got some code of web ref Many thanks, Ross. Tag: Displaying computer OU in ASP Tag: 162769
  - 21
    - ADO Reference Hi everybody, Maybe thats not the right newsgroup, but i need a complete reference of ADO. Where do i find this? Thanks Tag: Displaying computer OU in ASP Tag: 162758
  - 22
    - a string within a string Hi, I need to use bcp, a command line utility installed with sqlserver, from my script. if I issue the following command at the command prompt it works: bcp "SELECT * FROM pubs..authors" queryout c:\Authors.txt -c -T. Note that the sql statment is quated. I tried to use bcp in the same way as I do with other command lines programs such as: oShell.Run "cmd /C IPconfig/all > ........" I fell to do so as I do not know how to address the fact that the sql statment is a string and the entire parameter passed to the Run method is also a string so there is actually a string inside a string. Thanks, Yaniv Tag: Displaying computer OU in ASP Tag: 162757
  - 23
    - Scripting DSMOVE DSQUERY and DSMOD help! (EASY?) Hi all, Im trying to create a batch file/vbs or whatever script that allows me to run these commands. Objective of script: To search the whole Active Directory for objects that are duplicated (search condition $DUPLICATES*), mark them as disabled and move them to an OU. If i put these following commands into command prompt one by one it works, but not when i put it into .cmd or .bat (due to the for loop and the variables) for /F "usebackq delims=""" %i in (`dsquery * domainroot -filter "(&(objectCategory=*)(objectClass=*) (sAMAccountName=$DUPLICATE*))"`) do dsmod user %i -disabled yes for /F "usebackq delims=""" %i in (`dsquery * domainroot -filter "(&(objectCategory=*)(objectClass=*) (sAMAccountName=$DUPLICATE*))"`) do dsmove %i -newparent ou=scheduled,dc=YOURDOMAIN,dc=com if I use the default piping for dsquery and dsmod it works fine however if i use dsquery piping with DSMOVE (if there are more than 1 objects to be moved) it failed! (crap) dsquery * domainroot -filter "(&(objectCategory=*)(objectClass=*) (sAMAccountName=$DUPLICATE*))" | dsmod user -disabled yes dsquery * domainroot -filter "(&(objectCategory=*)(objectClass=*) (sAMAccountName=$DUPLICATE*))" | dsmove -newparent ou=scheduled,dc=YOURDOMAIN,dc=com Anyone kind enough to mod this? :) Cheers! Kind Regards, Freddy Hartono Tag: Displaying computer OU in ASP Tag: 162750
  - 24
    - Loading an image within an asp page I have had a lot of trouble with this, and I was wondering if anyone had any ideas as to where I am going wrong. My asp is a simple image viewer, it lists all the photos in the directory, (1 for each astff member), has the facility to search, and when you click on the link corresponding to the staff member it should load the image in that page. Here are the code snips of what I have so far: **** Code Removed for viewing ****** <form method="GET" name="SearchPicture" action="default.asp"> <p style="margin-left: 0in; margin-right: 0in; margin-top: 0in; margin-bottom: .0001pt"> <input type="text" name="SearchString" value="<%=Request("SearchString")%>" size="45%"> <input type="image" name="staffImage" style="visibility: hidden; display: none" src="" border="0" align="right" width="32%" height="32%"></p> <p style="margin-left: 0in; margin-right: 0in; margin-top: 0in; margin-bottom: .0001pt"> <input type="submit" value="Search" name="B1"> <input type="submit" value="List All Staff" onclick="SearchString.value='';" name="B2"> <input type="button" value="Clear" onclick="SearchString.value='';" name="B3"></p> </form> <% Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable Dim objItem 'Variable used to loop through the contents of the folder strPath = "../Photos/" set objFSO = server.CreateObject("Scripting.FileSystemObject") ' Get a handle on our folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Loop through the files! For Each objItem In objFolder.Files my_ex = objFSO.GetExtensionName(objItem) my_name = objFSO.GetFileName(objItem) If InStr(1, my_ex, "JPEG", 1) = 1 or InStr(1, my_ex, "jpg",1) = 1 Then If InStr(1, my_name, Request("SearchString"), 1) > 0 Then %> <tr><TD vallign="left" width="30%" ><A href="" onclick="ShowImage('my_name & my_ex')" ><%= left(my_name,len(my_name) - len(my_ex) - 1) %></A></TD></tr> <% End If End If Next 'objItem Sub ShowImage(fileName) staffImage.src='strPath & fileName' staffImage.style.visibility='visible' End Sub ' All done! Kill off our object variables. Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing Set my_name = Nothing Set my_ex = Nothing %> </td> </tr> </table> </div> </p> </body> </html> The problems appear to be with the ShowImage() sub, (passing variables into it, as well as displaying the image. Thanks for any help you can offer Tag: Displaying computer OU in ASP Tag: 162747
  - 25
    - vb script to join domain I am trying to write a script that will open the computer name changes window in the system control panel. A friend gave the following: Option Explicit Dim oWS Set oWS = WScript.CreateObject("WScript.Shell") WScript.Sleep 5500 'Bring up the System Properties window oWS.run "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1" WScript.Sleep 1000 'Bring up the computer name changes window oWS.SendKeys "%c" WScript.Sleep 1000 oWS.SendKeys "%d" WScript.Sleep 1000 oWS.SendKeys "{Tab}" WScript.Sleep 500 oWS.SendKeys "test.local" WScript.Sleep 500 oWS.SendKeys "{ENTER}" Set oWS = nothing The problem is the system properties window loses focus and the rest of the commands don't register. Is there a way to directly bring up the computer name changes window? Or is there a way to make the System Properties window the focus? Thanks, Jason Tag: Displaying computer OU in ASP Tag: 162744
- Next
  - 1
    - script to determine display mode Is there a way for a script to determine whether or not the video display is in clone mode? Tag: Displaying computer OU in ASP Tag: 162743
  - 2
    - Changing IE Proxy Settings Hi Can anyone give me a sample script to change IE proxy settings from one IP address to another which will apply to all users in XP and Win2k? Gordon Tag: Displaying computer OU in ASP Tag: 162740
  - 3
    - Unintentional ascii 0 (nulls) when creating file with FSO? I'm creating files on an IIS 5.0 web server, and when I create files with the FileSystemObject, it creates files that have ASCII 0's as every other character. For example, if I TextStream.Write("Hello"), the resulting file has: (gibberish) H (null) e (null) l (null) l (null) o (null) In a text editor, the output looks fine, like "Hello". In a hex editor, the file looks like this: FF FE 48 00 65 00 6C 00 6C 00 6F 00 Anyone have an idea what's going on? It's driving me nuts... I'm not sure where the "FF FE" comes from either. Thanks, Dan www.dantan.net Tag: Displaying computer OU in ASP Tag: 162739
  - 4
    - Kill processes and services I'd like to creating a small vbs file to kill a short list of processes/tasks and services before installing other software. There are a lot of third party utilities (ie. exes) that do this, but I hoping I could do it without calling a batch/command-prompt process and do it all in a single file. Any feedback is appreciated. Thanks, -- Tony Pedretti TransUnion LLC Tag: Displaying computer OU in ASP Tag: 162736
  - 5
    - regular expressions I'm back with something that makes no sense to me .... as far as I can see the three if statements are identical except for the input. One is the regular phone, then cell phone and then the fax ..... function validForm( passform) { << other validation skipped >> re = /^$?(\d{3})$?[\.\-\/ ]?(\d{3})[\.\-\/ ]?(\d{4})$/ validPhone = re.exec(passForm.fldPhone.value); if ( validPhone ) { passForm.fldPhone.value = "(" + validPhone[1] + ") " + validPhone[2] + "-" + validPhone[3]; } else { errList += " a valid phone number\n"; if (!hasError) { passForm.fldPhone.focus(); hasError = true; } } if ( passForm.fldCell.length > 0) { recell = /^$?(\d{3})$?[\.\-\/ ]?(\d{3})[\.\-\/ ]?(\d{4})$/ validCell = recell.exec(passForm.fldCell.value); if ( validCell ) { passForm.fldCell.value = "(" + validCell[1] + ") " + validCell[2] + "-" + validCell[3]; } else { errList += " if entered the cell must be a valid phone number\n"; if (!hasError) { passForm.fldCell.focus(); hasError = true; } } } if ( passForm.fldFax.length > 0) { refax = /^$?(\d{3})$?[\.\-\/ ]?(\d{3})[\.\-\/ ]?(\d{4})$/ validFax = refax.exec(passForm.fldFax.value); if ( validFax ) { passForm.fldFax.value = "(" + validFax[1] + ") " + validFax[2] + "-" + validFax[3]; } else { errList += " if entered the fax must be a valid phone number\n"; if (!hasError) { passForm.fldFax.focus(); hasError = true; } } } << handle the error and redirect to the next form >> } THey shouldbe identical since I copied the first one and made the requisit changes for the cell and fax. However the output (as show in the session variables into which they are stashed) Session("svPersonPhone") = Request.Form("fldPhone") Session("svPersonCell") = Request.Form("fldCell") Session("svPersonFax") = Request.Form("fldFax") show up as follows: SVPERSONZIPCODE - 123451234 SVPERSONPHONE - (123) 123-1234 SVPERSONCELL - 4564564567 <<== notice not formatted ... SVPERSONFAX - 7897987890 SVPERSONEMAIL - initially the regular expressions were all just 're' then when I started looking at this I changed them to 'recell' and 'refax' on the off chance that there might be a funny in re-using a regular expression. as always other comments are appreciated, but please also address this issue. ((I know "picky, picky....")) Tag: Displaying computer OU in ASP Tag: 162733
  - 6
    - Convert DWORD Value to dotted IP Address does anybody have any code to convert a dword value to a dotted ip address.... I know that DWORD Value 167788830 converts to 10.0.65.30 but i have no idea how to do it Tag: Displaying computer OU in ASP Tag: 162731
  - 7
    - Convert from bat to vbs Hope someone can help, I want to convert this bat file to vbs. Anyone have any input on how to do this. @echo off if not exist alttiff.ocx goto bad start regsvr32 alttiff.ocx goto end :bad echo Error: Cannot find alttiff.ocx. echo Note: Do not run install.bat directly from your unzip program. echo You must create a folder and unzip everything into it. echo Note: The current directory is: cd pause :end Thanks Gavin... Tag: Displaying computer OU in ASP Tag: 162729
  - 8
    - ldifde and importing the output file into a sql database. Is it possible to take the output of a ldifde query and import the data into a sql database? If so does anyone know how? Thanks. Tag: Displaying computer OU in ASP Tag: 162724
  - 9
    - Editing an Access table from VBscript? I'm looking for a way to read from and write to a table within an MS-Access database. I'll explain why I need this. In my company, I want to keep a logfile of the computers that have logged into the network. If the computername is not in a list, I want the user to enter some information on a popup screen, about the location of the computer (room-number). Once the computername is in the list, the script should continue without the user noticing. It should then only write the current date and time. Would this be possible with Vbscript? Wouter. Tag: Displaying computer OU in ASP Tag: 162713
  - 10
    - Windows.Status throws error on some pages I have a series of ASP pages that have some fairly heavy client-side VB script in them. Recently I have noticed that a few of these pages don't like setting the window.status property. The ones that complain will throw an error with the following message: error: Illegal assignment: 'Windows.status' I can see no significant difference between the pages where the window.status works and those where it doesn't. Can anyone suggest where the problem may be for me? TIA Ron L Tag: Displaying computer OU in ASP Tag: 162712
  - 11
    - Setting Computer Description Field with UserName Does anyone know how I can set the Computer Description Fields with the name of the user (better current logged in user)? Thanks everyone! Tag: Displaying computer OU in ASP Tag: 162710
  - 12
    - vbscript and IIS Hi, I've got the following task to do: I need to check various settings of a website files on IIS. This mainly involves type of access (anonymous, basic authentication etc.) Up to now I've done it manually, I opened inetmgr, browsed to my website and than I manually checked file by file, security settings. Now, since the task is rather tedious, I thought about a script which would do this for me, but I'm not really sure how. I am dimly aware of things like ADSI, but I don't have any experience with it. Could anyone provide any example, how for instance I can check if the anonymous access has been set for given aspx file?! Thanks, Piotrek Tag: Displaying computer OU in ASP Tag: 162703
  - 13
    - Help for my unused methods please Does anybody know a tool that could help me finding unused functions on my VB applications? Thanks for your help. Bernard Davest Tag: Displaying computer OU in ASP Tag: 162701
  - 14
    - VBS & Stored Procedure Hi all, I have a stored proc that write a string in a var. I want to get this string in my vbscript and I don't succeed. here is my code : (don't forget to modify connection string) In SQL Server : ========================================== CREATE PROCEDURE SP3 AS DECLARE @toto varchar(255) SELECT @toto = 'Voici le retour de ma proc' GO ========================================== In my vbscript i would like to get "toto" : --------------------------------------------------- Option Explicit Const adCmdStoredProc = &H0004 Const adParamOutput = &H0002 Const adVarChar = 200 Dim strData Dim res res = ExecuteStoreProc ("SP3") MsgBox "res : " & res '******************* Execute the stored proc **************** Public function ExecuteStoreProc(ProcStocName) Dim oConn, strSQL, oRs Dim pbiz_op Set oConn = CreateObject("ADODB.Connection") oConn.Open "DRIVER={SQL Server};SERVER=XXXXXXXXXXXXX;UID=XXXXXX;PWD=XXXXX;DATABASE=XXXXX" Dim oAdoCommand Set oAdoCommand = CreateObject("ADODB.Command") oAdoCommand.ActiveConnection = oConn oAdoCommand.CommandText = ProcStocName oAdoCommand.CommandType = adCmdStoredProc oAdoCommand.Parameters.Refresh dim lngRecordsAffected dim retour Set oRs = oAdoCommand.Execute(lngRecordsAffected, , adCmdStoredProc) ExecuteStoreProc = oRs.Parameters 0 End function --------------------------------------------------- Tag: Displaying computer OU in ASP Tag: 162695
  - 15
    - OU's + Sub OU's enumerations Hello, How can I in an ASP page (with a VBScript) enumerate all the OU's (sub ou's included) in a drop down list. I would like to do the same for the Storage Grouops and Mailboxes Stores on my 2 EX2K. Any Idea ??? Thanks Oli Tag: Displaying computer OU in ASP Tag: 162688
  - 16
    - Text File Hi I am trying to open a file and file the last line in the file. I then want to access text in the last line. Once I know the number of the last line, I am trying to access. The code errors and says I am trying read past the end of the file. I guess I need to reset the AtEndOfStream. Is there a function for doing this or do I have to close and reopen the file? Cheers Geoff Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\FSO\daily.txt", 1) Dim strMaxLineNumber Dim LastLine Do Until objFile.AtEndOfStream strLine = objFile.ReadLine strMaxLineNumber = strMaxLineNumber + 1 Loop Wscript.Echo strMaxLineNumber Tag: Displaying computer OU in ASP Tag: 162684
  - 17
    - Windows XP Wallpapers Hi!! Is there a way to change the windows xp wallpaper when a user logs on?? I have used the following script in windows 2000 and works fine however it does not work in Windows XP any Ideas??? Is there any other way to do that?? I hava a DC running windows 2000 AS and all the clientes are XP thanx =) Option Explicit Dim CompleteImagesFolderPath Dim ImageFileTypes CompleteImagesFolderPath = \\path ImageFileTypes = "jpg" Dim WshShell Set WshShell = Wscript.CreateObject("Wscript.Shell") Dim ImageFiles Dim Final Dim strDesktop Set ImageFiles = CreateObject("Scripting.Dictionary") strDesktop = WSHShell.SpecialFolders("Desktop") call RandomImage(CompleteImagesFolderPath,ImageFileTypes) Function RandomImage(CompleteImagesFolderPath, ImageFileTypes) 'Declare variables Dim FileSystemObject Dim ImageFolder Dim Files Dim i Dim File Dim FileName Dim FileExtension Dim RandomNumber Set FileSystemObject = CreateObject("Scripting.FileSystemObject") If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then RandomImage = "Error 0: Cannot find requested folder" Set FileSystemObject = nothing Exit Function End If Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath) Set Files = ImageFolder.Files i = 1 For Each File in Files FileName = File.Name FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, "."))) If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then ImageFiles.Add i, FileName i = i + 1 End If Next Set ImageFolder = nothing Set Files = nothing Set FileSystemObject = nothing Randomize If ImageFiles.Count = 0 Then RandomImage = "Error 1: Folder no existe" Exit Function End If RandomNumber = Int((ImageFiles.Count) * Rnd + 1) Final = CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber) WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\Wallpaper",Final,"REG_SZ" WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper",Final,"REG_SZ" 'CompleteImagesFolderPath&"\"&ImageFiles.Item(RandomNumber) Set ImageFiles = nothing WSHShell.AppActivate strDesktop WSHShell.SendKeys "{F5}" End Function Tag: Displaying computer OU in ASP Tag: 162675
  - 18
    - Declaration order & onchange event referencing dialog box in asp page Hello I'm a novice vbs'er, but old hand (now rusty) coder, which is what makes this more frustrating. I'm trying to construct an .as page with a list box to call a new page. Lots of googling has not led me to solve this problem: I can't get the onchange event of the list box to open a url with a query string containing reference to the listbox selected item (a simple task I'm sure) 1. populates list box (lbselect) from DB which works 2. attempts to call newpage with the selected index This won't run as it says an "object is expected", when I reference lbselect in the onchange event - i've noticed different behavour between mozilla (which i normally use) and opening in IE sometimes, but hoping that is not the major issue - i've made something work using an additional button in the form, but then the user has to lclick hope somecan can point me in the correct direction many thanks Oz Code below <form name="form1" method="post" action=""> <select name="lbselect" style="width:150px;" class="CountryListBoxContent" onChange="OpenNewWindow('Newpage.asp?Id='<%=lbselect.selectedindex%>)"> <% While (NOT rs_CountryList.EOF) %> .. populates from DB - this works!!! %> </select> </form> ********************************************************************** Sent via Fuzzy Software @ http://www.fuzzysoftware.com/ Comprehensive, categorised, searchable collection of links to ASP & ASP.NET resources... Tag: Displaying computer OU in ASP Tag: 162673
  - 19
    - setting SRC in iFRAME Probably a pretty basic question...how do I set the SRC property of an IFRAME in script? I''ve tried the following but don''t see an SRC property: document.frames("myFrame").SRC = "abc.htm" <--this property doesn''t exist but where is it??? ----------------------------- This message is posted by http://asp.forumszone.com Tag: Displaying computer OU in ASP Tag: 162672
  - 20
    - Run ASP Script as Scheduled Job Hi All, I want to perform the simple task of running an ASP script as a scheduled job. Previously I've always either run a .vbs script via windows Scheduler, or put some logic in my global.asa, both of which have worked fine. Unfortunately there are technical reasons (too complicated to go into here) which mean I can't use either the global.asa or a standalone vbs script for this job. It really does have to be an .asp script running in the application space. Running a scheduled job that runs the command "explorer http://www.mydomain.com/myscript.asp" does the job, but will leave a new window open every day, which will cause problems when sat on a remote server. (self.close() at the end of the script just gives the "app trying to close window" message and leaves window open) Does anyone have any suggestions as to how to achieve this on a W2K server ? Some kind of opening IE, running script, closing IE via VBS maybe ? Any help much appreciated, Regards, Larry. Tag: Displaying computer OU in ASP Tag: 162664
  - 21
    - vbscript library I have about 20 scripts that do different tasks for me. These scripts share a lot of the same procedures and functions. Is there any easy way to create a libary of vbscript functions and procedures that I can then call from any vbscript? Tag: Displaying computer OU in ASP Tag: 162662
  - 22
    - Using HTML Help I have a vbscript that is used at the command line by several users. When a user makes an error I want to launch a HTML Help file (*.chm) and have it already browed to the correct page (context sensitive help). How would I do this from the vbscript? How do you launch the help file? and how do you get the help file to nagivate to particular pages? Tag: Displaying computer OU in ASP Tag: 162661
  - 23
    - Please help : Object Required Error Why does the following sub in IE 6.0 returns : Object Required : 'window.parent.frames(...).document.forms(...) Isn't frm an object? Sub btnSave_onClick() Dim nRepID 'Report ID if existing Dim sRepName 'Report Name set frm = window.parent.frames(0).document.forms(0) alert(window.parent.frames(0).document.forms(0).name) 'More code her like if len(sRepName) > 0 then SaveReport frm, nRepID, sRepName, ptable.XMLData, IsEmpty(nRepID) end if End Sub Tag: Displaying computer OU in ASP Tag: 162657
  - 24
    - net send across domains Does anyone know if it is possible for a machine (application) on one domain to do a NET SEND to a machine or user on another domain? Tag: Displaying computer OU in ASP Tag: 162656
  - 25
    - RecordCount Property Hi: I have code that does two separate queries via ADO and then prints out the results. The first query is standard and if no records are returned it prints nothing as expected. The second query contains a SUM function in the query and if there are zero records I get the following error: Error Type: (0x80020009) Exception occurred. I tried using the RecordCount property which is returning -1. I've seen articles about this but didn't want to test it because I didn't feel I should need to test for zero records. BTW, I am using Access and we're only talking about 30 records at the most at a time here. Thanks, Blair Tag: Displaying computer OU in ASP Tag: 162654

I'm trying to display the OU (or the full ADSPath) in ASP using the
following code:

<%
Set con = CreateObject("ADODB.Connection")
con.Provider = "ADsDSOObject"
con.Open "Active Directory Provider"
Set ocommand = CreateObject("ADODB.Command")
ocommand.ActiveConnection = con

ocommand.CommandText =
"<LDAP://DC=MY,DC=DOMAIN>;(name=MYCOMPUTERNAME);adspath;subTree"

Set RS = ocommand.Execute

While not RS.EOF
Response.write RS.fields(0)
RS.MoveNext
Wend
%>

The script works, but it returns:
LDAP://DC=mycomputername,DC=my.domain,CN=MicrosoftDNS,CN=System,DC=my,DC
=domain

As you can see, there is no OU information listed. I've tried several
different methods of returning the ADSPath and I always get the above
output. The same script works perfectly as a VBScript.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Top