Perform PGP decryption in VBScript

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
    - Scripting MBSA Is there a way to alter the resutls page that MBSA generates to make the links to the needed patches on a local system or a USB key instead of it pointing to WU? We are trying to patch systems off our network and if we could get MBSA to point to an offilne storage that would be great. Or being able to parse a txt file that MBSACLI generates and then have a script chain the needed patches together would be even better! Regards. Tag: Perform PGP decryption in VBScript Tag: 167833
  - 2
    - Object does not support this property or method "Document.Report" Hi, I have the following vbscript in the <head> of asp page. <SCRIPT LANGUAGE="VBScript"> sub btn_LogOut_OnClick() dim asnwer answer=msgbox("Are you sure you want to exit?. If your session is not locked but sure to save your changes first before exiting.",vbYesNo,"Notice") if answer=vbyes then Document.Report.Submit end if end sub </SCRIPT> I am calling this method from a button click of the same page and the code for that is: <input type="button" value="Log Out (Will not Save)" name="btn_LogOut" > I have no idea why I am gettin the above error. Any help is appreciated. Thanks. Tag: Perform PGP decryption in VBScript Tag: 167831
  - 3
    - Read Text File into Excel Using VBA or VBScript Hi All, I'm a new VBA programmer. I know how to pull an entire text file into an Excel Spreadsheet, but I only want specific information from the text file not the entire text file. What I have is about 25 text files stored in a folder, let's say C:\test. Each file is named by a property address as follows: 209 MAIN ST.txt 213 MAIN ST.txt 111 ELM ST.txt 2356 WOOD AVE.txt On the 11th row of each file is as follows: Property Address:209 MAIN ST On the 31st row of each file is as follows: Total Value:30500 What I would like to do is read each file located in the "C:\test folder and write a record (row) into a single Excel Spreadsheet for each property. I would like the Excel Spreadsheet to look as follows once completed. Note the 1st row below is a header row that needs to be generated by the code. Property Address Total Value 209 MAIN ST 30500 213 MAIN ST 60700 111 ELM ST 20400 2356 WOOD AVE 20900 Can I read a header list (in a spreadsheet, text file, or hard coded in the code) which I would prefer the spreadsheet or text file method, write the header row in A1 then B1. Next read the 25 text files and search based on the header info written above (Property Address & Total Value) and write the appropriate to the single spreadsheet. The 11th row of the First text file value written in cell A2, then read the 31st row of the First text file write the value in cell B2, then loop to the Second text file and values from The 11th row of the Second text file value written in cell A3, then read the 31st row of the Second text file write the value in cell B3, so on and so forth until the last text file is read and the last record is written. I know this is elementary to most, but I'm a beginner programmer and sure could use the help... Can any one help? Thanks in advance. Willie T Tag: Perform PGP decryption in VBScript Tag: 167828
  - 4
    - Script to open word remotely I am trying to run a script across a network to run word on another machine. I can start a process on the remote machine, but I can't get the window to show up. Any ideas? Thank you! -- connerl Tag: Perform PGP decryption in VBScript Tag: 167827
  - 5
    - Get information from an other program Hello, Does anybody know how i can get information with VBscript from a window of an other program. I have a little pice of javascript where it works. But my VB is better than Javascript The javascript is: var Running = 0; var TE = new ActiveXObject("DAT32COM.TERMINALEMULATION"); var V = new ActiveXObject("Viewpoint.ViewpointSrv"); var xmlDoc = new ActiveXObject("Microsoft.XMLDOM") xmlDoc.async="false" function Som(Command) { TE.MakeEntry("<FORMAT>"+Command+"</FORMAT>"); return(TE.ResponseXML); } function Loep() { var Response = Som("QCA"); xmlDoc.loadXML(Response); nodes=xmlDoc.documentElement.childNodes; PCC.innerText=nodes.item(0).text.substring(6,10); In the row above i get the info from digit 6 to 9. Thks, Michel Tag: Perform PGP decryption in VBScript Tag: 167821
  - 6
    - FSO file.type How do you deal with FSO file.type method returning "JPEG Image" on one PC and "DELL Image Expert Picture" on another when the file's extension is jpg? Must I parse the file.name property to be sure of its type? thanks LJB Tag: Perform PGP decryption in VBScript Tag: 167819
  - 7
    - getting type mismatch with array I'm building a treeview page that is generated and expanded as the user opens links from it, and am using an array stored in a session variable to maintain the tree. The problem I've hit is that of how to corectly dim the array variable. the variables are dimed after option explicit, but having dim arrtree there throws a type mismatch at line 116 when the array is empty but not when its populated having dim arrtree() throws same at line 87 when the array is populated, but is fine when its empty obviously trying to have two dim statements in the if-else throws a 'redefined' error. other than removing the option line, how to get round this? this is the part of the code that is doing the work: if intmenuid > 0 then if session("arrtreeflag") > "" then arrtree = session("arrtree")'########line 87 thisid = Request.QueryString("thisid") x = ubound(arrtree,2)+1 arrtree(9,thisid) = 1 sql = "select tagid,rtrim(m1.menuname) from navigate_tags t left join navigate_menus m1 on tagid = m1.menuid where parentid = "&intmenuid&" and menuname is not null order by node" else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 strmessage = "reset" end if else sql = "select tagid,rtrim(menuname) from navigate_tags, navigate_menus where parentid = 0 and node = 0 and tagid = menuid" x = 0 level = 0 parentnode = 0 intmenuid = 0 end if if strmessage > "" then Response.Write "timeout - tree reset to top<br/>" 'sql = "cn_viewtree_count "&intmenuid&" " Response.Write "" set rs = conn.execute(sql) if not rs.eof then do while not rs.eof Response.Write "" redim preserve arrtree(10,x) ''''##########line 116 arrtree(0,x) = rs(0) ' node id arrtree(1,x) = 0 ' 0 = menu 1 = item if intmenuid > 0 then arrtree(2,x) = intmenuid ' parentid if intmenuid = 0 then arrtree(2,x) = 0 ' parentid arrtree(3,x) = rs(1) ' name Response.Write "" set rs_c = conn.execute("cn_viewtree_child "&rs(0)&" ") arrtree(4,x) = rs_c(0) ' has child 0 false 1 true arrtree(5,x) = 0 ' has been used in tree arrtree(6,x) = level ' tree level arrtree(7,x) = x ' array node arrtree(8,x) = intmenuid'parentnode 'parent array node arrtree(9,x) = 0 ' has been opened Response.Write "adding index["&x&"] id["&arrtree(0,x)&"]par ["&arrtree(2,x)&"]name["&arrtree(3,x)&"]child["&arrtree(4,x)&"]level ["&arrtree(6,x)&"]parentnode["&arrtree(8,x)&"] <br />" x=x+ 1 rs.movenext loop end if 'arrtree(4,x) = 0 ' has child 0 false 1 true set session("arrtree") = nothing session("arrtree") = arrtree set session("arrtreeflag") = nothing session("arrtreeflag") = "current" Tag: Perform PGP decryption in VBScript Tag: 167818
  - 8
    - how to read the correct Excel data area I exported a Access table to Excel sheet, then added some more data records, on the sheet. When I re-read this sheet with VBS with DAO, like; Set DB = DBE.Workspaces(0).OpenDatabase(xlsFile,False,False,"Excel 8.0;") Set RS = DB.OpenRecordset(sheetName). With RS Do While Not .EOF ----- ----- All added data records can not be read and stopped always previous end point. Is any place still have the size of data sheet? If so, how to correct and let VBS read the correct , expanded, data area? Thanks in advance, M.M -- ---------------------- System YNT mmiura@sysynt.com ---------------------- Tag: Perform PGP decryption in VBScript Tag: 167812
  - 9
    - ASP Pages accessing databse issue I am attempting to retrieve a value from a database and populate a textbox on my html form. This code appears to run fine without error but i do not get any value in my textbox. Im very new to ASP and im having to change an existing system. If i do not put my vbscript code at the bottom of the screen then my page will not render correctly. Can anyone please help me ??? Are there any major flaws with my code ??? should my script be before my textbox ???? by the way im only hardcoding input values for test purposes. <%@ Language=vbscript LCID=2057%> <HTML> <HEAD> <title>IDD Document</title> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> </HEAD> <body bottomMargin="0" leftMargin="0" topMargin="0" rightMargin="0" MS_POSITIONING="GridLayout" bgcolor="#ffdcff"> <form id="Form1" method="post" runat="server"> <TABLE id="Table1" style="Z-INDEX: 102; LEFT: 0px; POSITION: absolute; TOP: 0px" cellSpacing="0"cellPadding="0" width="100%" border="0" height="100%"> <TBODY> <TR> <TD style="HEIGHT: 42px" vAlign="top"> <BR> <INPUT id="btn_BackToMenu" type="button" value="Close Window" onclick="window.close()" runat="server"></TD> ******************************************************************* *******************TEXT BOX I WANT TO POPULATE********************* <input type="text" name="T1" size="20" value="<%= strtext%>" ******************************************************************* ******************************************************************* </TR> <TR> <TD><iframe name="myIframe" height="100%" width="100%" frameborder=no src="documents/IDD.pdf" </TR> </td></form> </TABLE> </form> </body></IFRAME></TR></TBODY></TABLE></FORM> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** <% Dim oRS, strSQL, txt_ClientCode, strtext txt_ClientCode = "AA3" If len(txt_ClientCode)>0 Then 'strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode = '" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then strtext = oRS("ClientCode") Response.Write(strtext) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If %> ***************************************************************************** ******************VBSCRIPT CODE******************************** ***************************************************************************** </BODY> </HTML> Tag: Perform PGP decryption in VBScript Tag: 167810
  - 10
    - populating AD fields from pick list I want to scroll through my USERS container and for each user, I want to be able to manually select from a list and return a code that is inserted into a field in AD for that user... Idealy once selected that field could be removed from the list. This is a one time deal so does not have to be fancy. I have my list of names/codes in Excel. Carl Tag: Perform PGP decryption in VBScript Tag: 167808
  - 11
    - how to create directories? I am unsure as to how to do this without creating a long winded script. I want check to see if a directory or 2 directories exist and if they don't then create them. ie: dir1 \ dir2 \ dir 3 \dir 4 \ dir 5 So dir1 exists but 4 & 5 don't and neither do 2 + 3. The only way to do this that i have found is to create a separate variable for each directory and then create each separately oDir1 = c:\dirA\dirB oDir2 = dirC oDir3 = dirD mDir = oDir1 + oDimM mDir = MDir + oDir3 (just a sample) Is there a better way of doing this? jp Tag: Perform PGP decryption in VBScript Tag: 167806
  - 12
    - vbscript error accessing database client or server ?? I am trying to run the following vbscript code (see SCRIPT CODE below) using an onclick event on a button(see BUTTON CODE below). I am getting the "error: object expected" at the button code line. Is there a fundamental problem with my script , i.e. trying to run a server side script using a button or is there merely a coding error??? I was hoping to run this code automatically when the page loads pulling in the txt_ClientCode value from a cookie but when i used the line txt_ClientCode = request.cookie("ClientCode") and ran the code as client side script i got an error on the word request. Can anyone please give me a few explanations as to what is happening and any helpful hints. BUTTON CODE <input name="testname" type=button onclick="TestMsg()" style="width:105px;"> SCRIPT CODE <SCRIPT LANGUAGE=vbscript runat=server> Function TestMsg() Dim oRS, strSQL, txt_ClientCode txt_ClientCode = "G10" If len(txt_ClientCode)>0 Then strSQL = "Select ClientCode, PDFName From tbl_PaymentProtectionPDF Where ClientCode='" & txt_ClientCode & "'" Set oRS = Server.CreateObject("ADODB.RecordSet") oRS.Open strSQL,Application("ConnectionString"),adOpenKeyset,adLockOptimistic If Not (oRS.EOF And oRS.BOF) Then msgbox(oRS("ClientCode")) oRS.Delete oRS.Update End IF oRS.Close Set oRS = Nothing Response.End End If end function </SCRIPT> Thanks Tag: Perform PGP decryption in VBScript Tag: 167805
  - 13
    - Re: Communicating Between VB6 and a HTML Document Happy New Year Winguy: You have written the code to set the value of a text, but, have you discovered how to set & retrieve the values of Check boxes, and Select Options? Thanks. From: WinGuy (no_spam@nomail.bot) Subject: Communicating Between VB6 and a HTML Document View this article only Newsgroups: microsoft.public.scripting.vbscript Date: 2004-12-28 12:26:03 PST I had a need to manipulate the activities of a webpage hosted by the WebBrowser control from within a Visual Basic project. The requirement was that VB must be able to communicate with VBScript, and vice versa. This is how I accomplished the task. I created a new Visual Basic project and placed the WebBrowser control on its default form. I initially set that control properties with a name of WebBrowser1, and as not visible. I placed a command button on top of the WebBrowser1 control, right-clicked it and sent it to the front and then right-clicked the WebBrowser1 control and sent it to the back. I set the form properties to not display a menu bar. I set the click event handler for the command button to end the program. In the form unload event is where I destroyed all objects before the VB program would end. This code would set the form to entirely fill a 1024x768 screen: Me.Move 0, 0 Me.Width = 15360: Me.Height = 11520 Me.Visible = True This code would then initialize that control for full screen and no taskbar or menus: WebBrowser1.Left = 10: WebBrowser1.Top = 10 WebBrowser1.Height = Me.Height - 20: WebBrowser1.Width = Me.Width - 20 WebBrowser1.AddressBar = False WebBrowser1.MenuBar = False WebBrowser1.StatusBar = False WebBrowser1.FullScreen = True WebBrowser1.TheaterMode = True WebBrowser1.GoHome WebBrowser1.Visible = True I defined a global variable named PageReady. Then this code in WebBrowser1.DocumentComplete: PageReady = True Then I created Sub MyTest() and placed this code into it: WebBrowser1.Navigate MyPath & "Page1.html" 'MyPath is previously defined PageReady = False While PageReady = False: DoEvents: DoEvents: DoEvents: Wend 'Page loaded 'Set the text value in the page control named txtWebBrowser! WebBrowser1.Document.All.Item("txtWebBrowser").Value = "Message from VB6 Code!" 'Get the text value in the page control named txtWebBrowser! 'MsgBox WebBrowser1.Document.All.Item("txtWebBrowser").Value ---------------- That completes the VB part. I then created a webpage called Page1.html,Read the rest of this message... (43 more lines) Post a follow-up to this message Tag: Perform PGP decryption in VBScript Tag: 167801
  - 14
    - ActiveX Calendar Control On FrontPage 2003 Hi there, I inserted a Calendar Control 10.0 into my FrontPage 2003. I can display it however, I was unable to retrive my selected date value. I don't see a property called Value when I use the "." operator. If I use the sample code from article 299691, I got an Error: Object required: 'Calendar1' Did I use an incorrect version of Calendar Control on FrontPage 2003? Any idea? Thanks. Abel Chan Tag: Perform PGP decryption in VBScript Tag: 167800
  - 15
    - Error in loading DLL. '800a0030' Hi folks, I have been trying to solve an ERROR during some days with no result. I would appreciate if any of you could help me with this issue. This is the error message produced by the ASP page: Microsoft VBScript runtime error '800a0030' Error in loading DLL: 'Datos.SetObjProceso' /Prueba.asp, line 4 And this is the ASP code: ASP Page (Prueba.asp) ------------------------------- Set Proceso= Server.CreateObject("Procesosdll.Proceso") Set Datos= Server.CreateObject("Procesosdll.Datos") Set Proceso.SetObjDatos = Datos Set Datos.SetObjProceso = Proceso <----- The error happens to be here ------------------------------- None of the posible reasons apply to this case: - Use of collections: There is not collections in the 2 objects. - Sending e-mails: There are no emails sent from this component. - Return recordsets: I don´t return them. - Return types defined by the user (UDT): As you could see in the code, this practice is not used. The most extrange thing is that the previous code line to the error (Set Proceso.SetObjDatos = Datos), which is very similar, does not produce the ERROR. The component Procesosdll have 2 objects: Datos and Proceso. These are the properties related to the error (the others are working fine): Object Datos ------------------------------- Private mvarObjProceso As Proceso Public Property Set SetObjProceso(ByVal obj As Proceso) Set mvarObjProceso = obj End Property ------------------------------- Object Proceso ------------------------------- Private mvarObjDatos As Datos Public Property Set SetObjDatos(ByVal obj As Datos) Set mvarObjDatos = obj End Property ------------------------------- It is also very weird that in the development environment everything is working fine and, on the other hand, in the production env. this misterious error is being happing. Development environment detail ------------------------------- Windows NT 4.0 + SP 6 IIS 2.0 VB 6.0 ------------------------------- Production environment detail ------------------------------- Windows 2003 Server IIS 6.0 ------------------------------- Unfortunately I cannot have the same configuration (OS+IIS) in both environments as they belong to different companies shared to different users. Any help would be really appreciated. Thanks in advanced and regards. Sergio Galindo. Tag: Perform PGP decryption in VBScript Tag: 167799
  - 16
    - using variable in Where clause I am trying to create a script that will kill a process based on the process name which is passed to the script as a cli argument. The following code snippet works fine if the process name is hardcoded in the script, but I can't assign the process name to a variable and use that in the ExecQuery command. Set colProcessList = objWMIService.ExecQuery _ ("SELECT * FROM Win32_Process WHERE Name = 'AIM.EXE'") I would rather use WHERE Name= variable Tag: Perform PGP decryption in VBScript Tag: 167789
  - 17
    - class property Let -v- Set Anyone have an example that could illustrate where/when a Class Property â??Setâ?? is used as opposed to a â??Letâ?? (or visa-versa)? All I have found so far is ... "Property Setâ??s used when you need to use a procedural property to pass an object for use by the class, rather than just a standard variable" â?¦ which I read as you need a 'Set' when you are going to pass an object reference (such as a FSO file) to a procedure in the class object. For example a MyClass.MyFile=oFSO.GetFile("test.txt") would use a Set, but a MyClass.MyFileName = "test.txt" would use a Let. Cheers -- Alun Boyd (UK) Tag: Perform PGP decryption in VBScript Tag: 167783
  - 18
    - Problem with the WHERE clause in an SQL Script. The Field HUPDEMP can be a valid Employee Code or a Constant. The Constant will always be SSS. I am having trouble with the constant script on the following statement. Where is my syntax error? rsTEXAS.Open "SELECT * FROM HSCHOOL ORDER BY HCLBKDT, HSchool WHERE HUPDEMP = '" & EmpCode & "' or HUPDEMP = 'SSS'", cnnct, 3, 3 Thanx in Advance Len Tag: Perform PGP decryption in VBScript Tag: 167782
  - 19
    - parse output data Hello all, Please excuse this newbie question, but I am trying to hack a previously made script to do my bidding, and unfortinatly I am not very good with VB / ASP The script works put I want to parse the data down to the first line or so and I can not for the life of me figure out how. Here is the script <% ' Create an instance of the object. Set whois = Server.CreateObject("GSWhois.Whois") ' Attempt to connect to a "whois" server... if (whois.Connect("whois.arin.net") = "OK") Then 'using IP TO TEST will replace with variable <%strIP%> once inserted into page output = whois.Query("115.23.98.2") Response.Write Output Else Response.Write("Unable to connect to whois server") end If whois.Close Set whois = Nothing %> and here is the output OrgName: Internet Assigned Numbers Authority OrgID: IANA Address: 4676 Admiralty Way, Suite 330 City: Marina del Rey StateProv: CA PostalCode: 90292-6695 Country: US NetRange: 96.0.0.0 - 126.255.255.255 CIDR: 96.0.0.0/4, 112.0.0.0/5, 120.0.0.0/6, 124.0.0.0/7, 126.0.0.0/8 NetName: RESERVED-8 NetHandle: NET-96-0-0-0-1 Parent: NetType: IANA Reserved Comment: RegDate: Updated: 2002-09-12 OrgAbuseHandle: IANA-IP-ARIN OrgAbuseName: Internet Corporation for Assigned Names and Number OrgAbusePhone: +1-310-301-5820 OrgAbuseEmail: abuse@iana.org OrgTechHandle: IANA-IP-ARIN OrgTechName: Internet Corporation for Assigned Names and Number OrgTechPhone: +1-310-301-5820 OrgTechEmail: abuse@iana.org # ARIN WHOIS database, last updated 2005-01-03 19:10 # Enter ? for additional hints on searching ARIN's WHOIS database. I really only want the first part of the data can someone help me with this please? TIA DP Tag: Perform PGP decryption in VBScript Tag: 167781
  - 20
    - connecting to pcs and a different path on each connection I need to connect to about 80 different pcs. I have that working but on each pc that I connect to I need to specify a different path. ie c:\documents and settings\bob or \larry or \susan I am talking about %username% = bob,larry, and susan but Im not sure how I can do that. there is not connection between the computername and username. I am in a 2003 ad domain but Im not sure how I can link the two. Each computer has 2-3 different users on them but should only have 1-2 possibly 3 that have been used to logon to the domain. Can anyone help me with the path problem Thanks Ryan Tag: Perform PGP decryption in VBScript Tag: 167780
  - 21
    - get total size of a folder (all objects in it) on a remote computer How can I get the total size of a folder (all objects in it) on a remote computer? I have been looking for an example but having no luck. -thanks! Tag: Perform PGP decryption in VBScript Tag: 167778
  - 22
    - Uploading a File from a Form as Stream I am working on a Library Administration web page. The page provides the capability to add, edit, replace, suspend/activate, and delete documents from the site Library. The user selects a function and the form is dynamically produced using XML and the .innerHTML functionality. My problem is I need to be able to allow the upload of a file without actually submitting the form. All functionality of this admin interface is based on using the CreateObject("MSXML2.XMLHTTP") functionality, sending XML back and forth from client to server so the page does not have to reload. Any suggestions on how to upload a file to the server from this page using VBScript and a stream? Thanks in advance to anyone who can figure it out. Jim Tag: Perform PGP decryption in VBScript Tag: 167774
  - 23
    - Exchange 2003 mailbox creation I've made a script to create a single user in Windows 2003 AD, with homedir and mailbox, I can create the user and the homedir but NOT the mailbox. Everything works but the mailbox creation. I run the script from the DC, it altso runs the exchange 2003! Why doesn't this work???????? ---------------- code snip ------------------------ Set user = ouHO.Create( "User" , "CN=" & sFirstName & " " & sLastName) user.Put "samAccountName" , sUserName user.SetInfo user.GetInfo user.Put "givenName" , sFirstName user.Put "sn" , sLastName user.Put "userPrincipalName" , sUserName & "@DOMAIN.COM" user.AccountDisabled = False user.Put "streetAddress" , sAdresse user.Put "PostalCode" , sPostnr user.put "l", sBy user.put "telephoneNumber", sTlf user.put "HomeDirectory", "\\mail\brugere\" & sUserName user.Put "homeDrive", "Q:" user.put "scriptPath", "logon.vbs" 'Create user home directory. If Not fso.FolderExists("\\mail\brugere\" & sUserName) Then Set fldUserHomedir = fso.CreateFolder("\\mail\brugere\" & sUserName) End If 'Set full rights for Administrators and change right for user and removes the Everyone group wshShell.Run "net share " & sUserName & "=f:\brugere\" & sUserName & " /y", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G Administrator:F", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /R everyone", 1, True wshShell.Run "cacls \\mail\brugere\" & sUserName & " /T /E /G " & sUserName & ":C", 1, True user.SetInfo user.SetPassword "12345" MBXStoreDN = "CN=Mailbox Store (SERVER),CN=First Storage Group,CN=InformationStore,CN=SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=First Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=DOMAIN,DC=COM" Set exchUser = user ExchUser.CreateMailbox MBXStoreDN ExchUser.SetInfo ----------------------- code snip -------------------------- Regards Ole Rasmussen Tag: Perform PGP decryption in VBScript Tag: 167770
  - 24
    - Proxy Settings Hello There! Is there a possibility to read out the proxy settings from a remote computer and maybe change them via a script? I think about WMI objects or something. Maybe even over remote access to the registry? cu StefanP Tag: Perform PGP decryption in VBScript Tag: 167769
  - 25
    - checking log file Hello everyone, I have a logfile that is updated every 5 minutes. What I'd like to do is have a vbscript monitor this file and if the last date modified is greater than 30 minutes from the current time, send an email to me. Anyone have any idea of doing this? I'm struggling with the way to subtact minutes from the timestamp of the log file. Thanks! Moogeboo Tag: Perform PGP decryption in VBScript Tag: 167763
- Next
  - 1
    - how to query line number? is it possible to query the currently executing line number somehow? thanks, Jon Tag: Perform PGP decryption in VBScript Tag: 167761
  - 2
    - Zip and Unzip files and folders Hi, I have a script that makes a backup of my info, in win2003 server, but I need zip and unzip my info with the same backup script, I dont want install software extra, I want use the way that windows have to make compressed ziped folders. Someone can help me??? Tag: Perform PGP decryption in VBScript Tag: 167755
  - 3
    - REgini syntax What syntax do I use to change permissions on a key and all of it's child objects? I have \registry\machine\software\burli [1 17] the above is an example. what do I need to add to have those permissions propagate down? thanks Tag: Perform PGP decryption in VBScript Tag: 167750
  - 4
    - standalone ADO recordset If I create and fill a standalone ADO recordset is there any way I can write SQL to compare these records with an existing Access table? I have an Access database with photo file names and descriptions in a table. My vbscript builds a standalone recordset based on jpg files found in some folder. I would like to report any records missing in either the database table or files in the folder. thanks ljb Tag: Perform PGP decryption in VBScript Tag: 167748
  - 5
    - VB Script newbie question Hi I have the following script, which works fine for getting some of the data requested but not all. I realise the reason this occurs is thatin the line: "Select * from Win32_ComputerSystem",,48) it just specifies win32_computersystem. Is there a way to specify multiple WMI objects in the same script? ----------------- On Error Resume Next strComputer = InputBox ("Enter Remote Computer Name or Press Enter for local machine","Enter Remote Computer Name",".") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery( For Each objItem in colItems Wscript.Echo "Wallpaper: " & objItem.Wallpaper Wscript.Echo "Domain: " & objItem.Domain Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Model: " & objItem.Model Wscript.Echo "Name: " & objItem.Name Wscript.Echo "NumberOfProcessors: " & objItem.NumberOfProcessors Wscript.Echo "PrimaryOwnerName: " & objItem.PrimaryOwnerName Wscript.Echo "SystemType: " & objItem.SystemType Wscript.Echo "TotalPhysicalMemory: " & objItem.TotalPhysicalMemory Wscript.Echo "UserName: " & objItem.UserName Wscript.Echo "Computer name: " & objComputer.MachineName Wscript.Echo "Start Time: " & objItem.StartTime Next Tag: Perform PGP decryption in VBScript Tag: 167744
  - 6
    - FileExists Wildcard + newest file I am writing a script to read a log file that is dumped at random times. All of the logs are in the same location but the name contains a timestamp of sorts. example: c:\log\log2004-11-16-13-12.log How do I search the directory for "c:\log\log*" and open the newest one for reading? Tag: Perform PGP decryption in VBScript Tag: 167740
  - 7
    - read email header info I need to retrieve emails from a pop3 server and read their header info (sender, subject, time sent) into variables. Once the header info is read, the email can be removed from the pop3 server and discarded. Any help would be greatly appreciated. Thanks... -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: Perform PGP decryption in VBScript Tag: 167735
  - 8
    - FileOpen Hi@all, sorry but i'am new at VBS. Ich have make a HTML-Page with VBScript and now i try to read and write a text file but how, [script] Dim TextLine FileOpen(1, Projektverzeichnis+"Inhalt\Help.htm", OpenMode.Input) ' Open file for reading. While Not EOF(1) TextLine = LineInput(1) ' Read next line. Debug.WriteLine(Seek(1)) ' Position of next line. End While FileClose(1) [/script] will not work. Thx for any help, cya Thommy Sorry about my English Tag: Perform PGP decryption in VBScript Tag: 167732
  - 9
    - list all objects under mailbox rights for I was wandering if you could help me with this script.... I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Further on I would like to grant user with send on behalf right for specific account, if he is missing these rights. Thanx for any help... /* Goran */ Tag: Perform PGP decryption in VBScript Tag: 167729
  - 10
    - Need help for writing a vbscript from the Gurus Hello All, How can achieve the following: A = 2 B = 3 C = 25 D = 3 X = 10 I would like to obtain X = 0 by decreasing each A B C D (keeping this priority). In this example only A B & C will be affected Thanks for your help Tag: Perform PGP decryption in VBScript Tag: 167725
  - 11
    - ASP scripting compilation error: '80070002' I am a totally newbie in ASP / VB programming, I would like some help from you guys if possible. Below are the steps given which i followed, Step 1: Create a MFC based .Exe with single file document option. Step 2: Insert -> Add ATL object -> Select Simple object. Step 3: Build the .Idl file with 2 dummy fuctions as Add, Dummy. Step 4: Build the proxy DLL in a saperate project including the files generated by .idl Step 5: Register the exe. Step 6: create object from ASP page. Step 7: Call the function. I have just pasted the sample code of my script being used, and the result obtained when i run the code. Please let me know why Compilation Error : '80070002' is obtained. <HTML> <TITLE>Multiplication</TITLE> <BODY> <% Dim MulResult Dim MulNum, result Response.write (" before") Set MulNum = CreateObject("mfcatl.math.1") Response.write ("after") result = MulNum.Add(2,8) Response.write(result) %> </BODY> </HTML> RESULT obtained : before after Parse error in script ASP scripting compilation error: '80070002' Description: In file: /multi.asp Tag: Perform PGP decryption in VBScript Tag: 167724
  - 12
    - mailbox rights Anybody who could help...? I need vb script that will list all objects under mailbox rights for user account and then output them into txt file. Thanx for any help... /* Goran */ Tag: Perform PGP decryption in VBScript Tag: 167723
  - 13
    - Word open doc I don't know how open document in word Please help me. strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("SELECT * FROM __InstanceCreationEvent WITHIN 3 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\\\test""'") Do Set objLatestEvent = colMonitoredEvents.NextEvent Wscript.Echo objLatestEvent.TargetInstance.PartComponent 'sCommand = "C:\Program Files\Microsoft Office\Office10\winword.exe" Loop Tag: Perform PGP decryption in VBScript Tag: 167722
  - 14
    - script to send ndr I need to write a script that will check a catch-all mailbox (pop3) and send a non delivery report back to the sender of the email. Background info: I have a domain hosted on a site that offers unlimited email accounts... the problem is, emails sent to an invalid address on the domain aren't automatically returned as non-deliverable. I am, however, able to set up a catch-all address and able to pick up those emails. Id like to set up a script that checks that account and generates an appropriate ndr that looks like the following: Your message To: email@domain.com Subject: test non delivery Sent: Sun, 2 Jan 2005 20:42:39 -0500 did not reach the following recipient(s): email@domain.com on Sun, 2 Jan 2005 20:42:39 -0500 The e-mail account does not exist at the organization this message was sent to. Check the e-mail address, or contact the recipient directly to find out the correct address. <server.domain.com #5.1.1> And if possible, return the original message as an attachment as a normal non delivery report would. -- Posted 'as is'. If there are any spelling and/or grammar mistakes, they were a direct result of my fingers and brain not being synchronized or my lack of caffeine. Mike Brearley Tag: Perform PGP decryption in VBScript Tag: 167715
  - 15
    - Telnet using vbscript (or similar) Simple question... Is there a way to telnet into (passing user name and password info) into a unix computer, and launch a program from within a vbscript? I was thinking the winsock.dll should be able to provide connection functionality but I can't find any information regarding the use of the dll with vbscript. I'm trying to stay away from using Visual Basic or writting my own C++ project. Any help is greatly appreciated. - Coach Tag: Perform PGP decryption in VBScript Tag: 167713
  - 16
    - How to Return Filename in particular folder I have a folder (C:\Origin) that has 3 Files (test1.xml, test2.pdf, test3.sch) The name of the xml file will change daily as the primary app writes it. I need to capture the name of the .xml file, rename it, Move it to C:\Archive (with it's new name) The rest of the script that actually process the xml file I already have. There will only be 1 xml file in C:\Origin (with a random name) Thanks Dale Tag: Perform PGP decryption in VBScript Tag: 167711
  - 17
    - empty cookies and temporary internet folders Hello, is it possible to delete the cookies folder and the IE cache folder within a script?? thnx, Marco J.L. Tag: Perform PGP decryption in VBScript Tag: 167710
  - 18
    - create an administrative share on c$ via script? Is it possible to create an administrative share on c$ via (or wmi)? I dont really think I understand if theres a difference between a "regular share" and an "administrative share" so maybe I am over thinking this. Tag: Perform PGP decryption in VBScript Tag: 167708
  - 19
    - shortcut-extended there is scripting object "shortcut", but it mainly manages target, name, path etc ... is it possible to manage *every* item appearing on shortcut's sheet with vbscript, like gui does? i am specialy interested on setting "close on exit" for dos prompts shortcuts. Tag: Perform PGP decryption in VBScript Tag: 167706
  - 20
    - How to copy & paste by using vbscript? Thanks in advance. Tag: Perform PGP decryption in VBScript Tag: 167698
  - 21
    - Documentation for FileScriptingObject Hi, Is the FileScriptingObject documented anywhere? Thanks. Raphael Tag: Perform PGP decryption in VBScript Tag: 167697
  - 22
    - how to create a folder based on login In an workgroup environment i must create a script that gets the name of each client local machine and then it should create a folder with that machine name in the server. If already exists the folder for ie "xpto" the script shouldn't do nothing. Another doubt remains once i'm working in an workgroup environment should i put this script running through a schedule task or by service?... If the second choice is better how can I do that? Ricky Tag: Perform PGP decryption in VBScript Tag: 167695
  - 23
    - rename multiple computer accounts with csv file Hello .. We have to change all our 200 clients to a new domain.. therfore we have some scripts... thats ok ..but we have to change all computer names, too. I habe found a really good script to change a single computer account with vbs http://cwashington.netreach.net/depo/view.asp?Index=990&ScriptType=vbscript it works with a Inputbox but i would like to have a script which reads the old computername in the first column of a .csv file and takes the new computername from the same row but the second column. But my script-experience isn't high enough.. I think that some other admins have similar scenarios..to manage it. I have found this script/function to parse a line from a csv and return a value based on the field id http://cwashington.netreach.net/depo/view.asp?Index=958&ScriptType=vbscript but I don't get it work together.. I hope anyone can help me all my searches at google and groups comes to nothing sorry for my bad english.. I'm from germany ;-) Happy New Year 2005 Here are the scripts ------------------------------------------------------------------------------- Dim RegKeyCompName, RegKeyTCPIP, WSHShell, ComputerName, HostName, DomainName, FQDN, ADRootDSE, ADSysInfo, ADComputerName, ADRenameOK, ADRNewName, vStartRenameCA, NewNAmeU, NewNameL, vStartRenameAD On Error Resume Next '###### READ IN EXISTING COMPUTERNAME AND FQDN ###### RegKeyCompName = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\" RegKeyTCPIP = "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\" Set WSHShell = CreateObject("WScript.Shell") ComputerName = WSHShell.RegRead (RegKeyCompName & "ComputerName\ComputerName") Hostname = WSHShell.RegRead (RegKeyTCPIP & "Hostname") DomainName = WSHShell.RegRead (RegKeyTCPIP & "Domain") FQDN = HostName & "." & DomainName Set ADRootDSE = GetObject("LDAP://RootDSE") If Err.Number <> 0 then ADComputerName = "Unable to determine this information" ADOU = "Unable to determine this information" ADRenameOK = "0" else Set ADSysInfo = CreateObject("ADSystemInfo") ADComputerName = ADSysInfo.ComputerName 'Get DN of local computer ADRenameOK = "1" ADOU = Mid(ADComputerName, InStr(ADComputerName, "=") + 1) 'Strip off just after the first = sign ADOU = Mid(ADOU, InStr(ADOU, "=") - 2) 'Strip off at 2 before the second = sign ComputerPath = "LDAP://" & ADComputerName OUPath = "LDAP://" & ADOU End if '###### ASK USER FOR NEW DETAILS ########### MsgBox "This script renames this computer and its active directory account" & vbCr & vbCr & "Name: " & ComputerName & vbCr & "FQDN: " & FQDN & vbCr & vbCr & "AD DN: " & ADComputerName & vbCr & "AD OU: " & ADOU, 0, "Information" NewName = InputBox("Enter the new computer name below and click OK to continue","Rename: Step 1") NewNameU = UCase(NewName) NewNameL = LCase(NewName) NewNameUCN = "CN=" & NewNameU if NewName = "" then wscript.echo "The computer name has not been changed" else vStartRenameCA = MsgBox ("Continue and rename computer to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 2") if vStartRenameCA = 6 then With WSHShell .RegDelete RegKeyTCPIP & "Hostname" .RegDelete RegKeyTCPIP & "NV Hostname" .RegWrite RegKeyCompName & "ComputerName\ComputerName", NewNameU .RegWrite RegKeyCompName & "ActiveComputerName\ComputerName", NewNameU .RegWrite RegKeyTCPIP & "Hostname", NewNameL .RegWrite RegKeyTCPIP & "NV Hostname", NewNameL End With wscript.echo "The computer name and FQDN have been changed" elseif vStartRenameCA = 7 then wscript.echo "The computer name and FQDN have NOT been changed" end if if ADRenameOK = 1 then vStartRenameAD = MsgBox ("Continue and rename AD Account to: " & NewName,vbYesNo or vbExclamation,"Rename: Step 3") if vStartRenameAD = 6 then Set objItem = GetObject(ComputerPath) objItem.Put "dNSHostName", NewNameL & DomainName objItem.SetInfo objItem.Put "displayName", "DESKTOP_" & NewNameU & "$" objItem.SetInfo objItem.Put "sAMAccountName", NewNameU & "$" objItem.SetInfo Set objNewOU = GetObject(OUPath) Set objMoveComputer = objNewOU.MoveHere _ (ComputerPath, NewNameUCN) wscript.echo "The active directory computer account has been changed" elseif vStartRenameAD = 7 then wscript.echo "The computer account in AD has NOT been changed" End If else wscript.echo "Insufficient information to rename AD account" End If End if ------------------------------------------------------------------------ ---------------------------------------------------------------------------- ' Sample Usage -- TestString = "Phyisical, Data, Network, Transport, Application, Session, Presentation" 'FYI - First data field is id=0 WScript.Echo CSV_Results(TestString, 2) 'Echoes "Network" WScript.Echo CSV_Results(Teststring, 6) 'Echoes "Presentation" '------ Private Function CSV_Results(csvstring, fieldID) i = 0 Comma = Array(i) result = Array(i) Comma(i) = InStr(1, csvstring, ",") result(i) = Left(csvstring, Comma(i)-1) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(1, csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If Do While Comma(i) <> 0 i = i + 1 ReDim Preserve Comma(i) ReDim Preserve result(i) Comma(i) = InStr(Comma(i-1)+1, csvstring, ",") If Comma(i) <> 0 Then result(i) = Mid(csvstring, Comma(i-1)+1, Comma(i) - Comma(i-1) -1 ) If InStr(1, result(i), CHR(34)) <> 0 Then Qpos1 = InStr(Comma(i-1), csvstring, CHR(34)) Qpos2 = InStr(Qpos1 +1 , csvstring, CHR(34)) Comma(i) = InStr(Qpos2 +1, csvstring, ",") result(i) = Mid(csvstring, Qpos1+1, Qpos2-Qpos1-1) End If End If Loop strLength = Len(csvstring) result(i) = Right(csvstring, strLength - Comma(i-1)) If InStr(1, result(i), CHR(34)) <> 0 Then result(i) = Replace(result(i), CHR(34), "") End If CSV_Results = result(FieldID) End Function ------------------------------------------------------------------------- Tag: Perform PGP decryption in VBScript Tag: 167693
  - 24
    - Need Loop with Timer Assistance I don't code in VB script much; thus, here's my question.... I need the following script to loop until the {Spacebar} key is pressed; moreover, the loop needs to re-iterate after a two second pause. ====START==== Dim objShell Set objShell = CreateObject("WScript.Shell") objShell.SendKeys "^{z}" WScript.Quit ====END===== Thanks in advance, Todd Tag: Perform PGP decryption in VBScript Tag: 167692
  - 25
    - How to create printer share using vbscript ? Dear all, Is anybody know how to create printer share using vbscript ? Thanks. Tag: Perform PGP decryption in VBScript Tag: 167686

I am trying to find out if it would be possible to perform PGP
decryption within VBScript. Any sample codes would be greatly
appreciated. Thank you.

Top

RE: Perform PGP decryption in VBScript by john_v_r0ss

john_v_r0ss
Fri Jan 07 15:17:09 CST 2005

Try this site:
http://www.devarticles.com/c/a/ASP/Creating-PGP-Encrypted-EMails-Using-ASP/1/

Although it is about sending mail, the code is simple enough. I am working
with the freeware version of command line, and if you are outside the US
there are restrictions. Hope this helps :)

"htran" wrote:

> I am trying to find out if it would be possible to perform PGP
> decryption within VBScript. Any sample codes would be greatly
> appreciated. Thank you.
>
>

Top