Encryption with vbs and capicom

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
    - Script works on XP and not on NT Trying to write to the registry Well I have a script that is working fine under XP but it doesnt want to work under NT. I am trying to write a multi String value in the registry. const HKEY_LOCAL_MACHINE = &H80000002 strKeyPath = "SOFTWARE\Patchlink.com\Gravitix\Agent\Policy" MultValueName = "DriveExemption" strComputer = "." iValues = Array("F:\", "G:\", "H:\", "I:\", "J:\", "K:\",_ "L:\", "M:\", "N:\", "O:\", "P:\", "Q:\", "R:\",_ "S:\", "T:\", "U:\", "V:\", "W:\", "X:\", "Y:\", "Z:\" ) Set oReg=GetObject( _ "winmgmts:{impersonationLevel=impersonate}!\\" & _ strComputer & "\root\default:StdRegProv") oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,_ MultValueName,iValues Any Ideas? Thanks Ryan Tag: Encryption with vbs and capicom Tag: 197496
  - 2
    - cscript I am new to using cscript and am trying to debug a script. I can start the debugger using a command like "cscript //x myscript.vbs". That seems to work fine and the debugger stops on the line that has a problem and asks me if I wish to Break or Continue. (I always choose Break). My question is that when I use the Stop Debugging menu option, I get a window asking me whether I want another instance of the debugger or use the existing instance. No matter which I choose, my script is restarted in that instance and continually stops on the bad statement. In essence, it appears that there is a loop that will not allow the original debugger instance to stop and allow me to edit the offending statement. Is this "normal" or am I missing something? Thanks. Tag: Encryption with vbs and capicom Tag: 197495
  - 3
    - VBS script scheduling problem I have a VBS script that I have scheduled to run every 30 minutes, between 5AM and 11PM. The problem I am having is if the internet connection is down (it is being worked on, so it happens a fair amount), then the script fails and then doesn't run again until after the server is restarted (which is next to never). How can I build my script to fail gracefully, and keep running even if the internet is down? Here is my script, 'Script for downloading NOAA weather XML data and inserting it into DB 'Start downloading file sSource = "http://www.weather.gov/data/current_obs/KHLX.xml" sDest = "\\SWVTC06\inetpub\intranet\rss\weather.xml" set oHTTP = WScript.CreateObject("Microsoft.XMLHTTP") set oFSO = WScript.CreateObject("Scripting.FileSystemObject") oHTTP.open "GET", sSource, False oHTTP.send body8209 = oHTTP.responseBody set oHTTP = nothing sOut = "" For i = 0 to UBound(body8209) sOut = sOut & chrw(ascw(chr(ascb(midb(body8209,i+1,1))))) Next set oTS = oFSO.CreateTextFile(sDest, True) oTS.Write sOut oTS.Close set oTS = Nothing set oFSO = Nothing 'Done downloading file 'Start inserting file into DB 'Parse XML and set variables Dim mydoc Set mydoc = WScript.CreateObject("Microsoft.XMLDOM") mydoc.async=false mydoc.load("\\swvtc06\inetpub\intranet\rss\weather.xml") If mydoc.parseError.errorcode<>0 then MsgBox(mydoc.parseError.errorcode & "<br>") MsgBox(mydoc.parseError.reason & "<br>") MsgBox(mydoc.parseError.srcText & "<br>") MsgBox(mydoc.parseError.URL & "<br>") Else dim wTime,wWeather,wTemp,wHumidity,wWindString,wWindDir,wWindDegrees,wWindMPH,wWindGust dim wPressure,wDewpoint,wHeatIndex,wWindChill,wVisibility,wPic,wInsertTime Set objLst = mydoc.getElementsByTagName("*") wTime = objLst.item(13).childNodes(0).text wWeather = objLst.item(15).childNodes(0).text wTemp = objLst.item(16).childNodes(0).text wHumidity = objLst.item(19).childNodes(0).text wWindString = objLst.item(20).childNodes(0).text wPressure = objLst.item(27).childNodes(0).text wDewpoint = objLst.item(28).childNodes(0).text wHeatIndex = objLst.item(31).childNodes(0).text wWindChill = objLst.item(34).childNodes(0).text wVisibility = objLst.item(37).childNodes(0).text wPic = objLst.item(39).childNodes(0).text wInsertTime = Now End If dim Conn dim strSQL set Conn = CreateObject ("ADODB.connection") Conn.Open "driver={SQL Server};server=swvtc06;Trusted_Connection=Yes;Initial Catalog=Weather" strSQL = "INSERT INTO Weather(Weather,Temperature,RelativeHumidity,WindString,Pressure,Dewpoint,HeatIndex,WindChill,Visibility,Icon,ObsTime,InsTime) VALUES ('" & wWeather & "','" & wTemp & "','" & wHumidity & "','" & wWindString & "','" & wPressure & "','" & wDewpoint & "','" & wHeatIndex & "','" & wWindChill & "','" & wVisibility & "','" & wPic & "','" & wTime & "','" & wInsertTime & "')" 'MsgBox strSQL objRS = Conn.Execute(strSQL) Thanks, Drew Tag: Encryption with vbs and capicom Tag: 197490
  - 4
    - Script to add a wireless network Hi there Does anyone know of a script that can be run to manually add details of a wireless network to XP SP2 machines? All with wireless being managed by windows..... Many thanks Phill Tag: Encryption with vbs and capicom Tag: 197489
  - 5
    - VB to read a file to work out what it really is Hi guys, I am downloading a lot of jpg files from the web for a project the only problem is sometimes they are bitmap files with the wrong file extension. Windows appears to be cool with this however the script loads them into photoshop which just makes the whole thing fall over. Is there a way using windows scripting to check that a jpg is actually that and if not to spit the file out and not process it. Many thanks in advance. Tag: Encryption with vbs and capicom Tag: 197488
  - 6
    - Write long string variable to disk Hi VBS gurus. I've run into an issue with a function which writes a long string to disk using the FSO. It errors out on the "tf.Write" statement. Your help is appreciated. '//==============BEGIN of CODE============ Function wrFile(strFileName, strFileContent) Dim strDirPath Dim fso, tf '// Set the ouput directory strDirPath = GetTmpDir() '// Write the output Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile(strDirPath & strFileName, True) WScript.Echo Left(strFileContent, 200) tf.Write (strFileContent) tf.Close End Function '//==============END of CODE============ The wrFile() function is called from the following code. As you can expect the "strFileContent" variable is a long string containing line breaks, carriage returns etc. '//==============BEGIN of CODE============ '// Get the source info Set objHTTP = CreateObject("Msxml2.XMLHTTP.4.0") With objHTTP .open strURLMethod, strURL, False .setRequestHeader "Content-Type", "application/x-www-form-urlencoded" .send strURLvars strHTTPresp = .responseText End With '// Cleanse the info <-- SNIP a whole bunch of RegEx statments --> '//Write the info wrFile("OutputFile.txt", strHTTPresp) '//==============END of CODE============ Tag: Encryption with vbs and capicom Tag: 197487
  - 7
    - VBA-Problem with AD-User-Properties containing hyphens I have to assign values to several existing AD-User-Properties, for example "fen-UM-AllowCoversheetOverride". As they contain hyphens, I put them in square brackets (view article http://groups.google.de/group/microsoft.public.scripting.vbscript/browse_th= read/thread/738be478df9267f8/2fbb6c217bfe9e26?lnk=3Dgst&q=3Dhyphen&rnum=3D1= #2fbb6c217bfe9e26). This works fine in VB-Script, but not in VBA (Excel): objUser.[fen-UM-AllowCoversheetOverride] =3D False What I get is Runtime-Error 438 "Property or Method not supported" (the english version could be different, original message in german is "Objekt unterst=FCtzt diese Eigenschaft oder Methode nicht") Other properties without hyphens are processed correctly. Any ideas? tia Peter Tag: Encryption with vbs and capicom Tag: 197486
  - 8
    - how can get the netbios name of current domain before user logon? hello, I need a vbs snippet which can get the netbios name of current domain before user logon. the below snippet can't work since user is not logon: Set oWshNetwork = WScript.CreateObject("WScript.Network") stDomainName =oWshNetWork.userDomain how to achieve the function by other way ? -- Tag: Encryption with vbs and capicom Tag: 197485
  - 9
    - Autoreboot during Machine Startup Script Hi Guys My last Web based post died upon submit so apologies if this appears twice. I have a requirement to restart some workstations after removing some registry entries and a service. My reboot code works under interactively logged on user privileges but not under the security context of the startup script (SYSTEM?). The code executes fine without raising any errors but doesnt reboot. There are no "On Error Resume Next" statements in the code and I have removed all error handling. Any ideas? Function ShutDown() sComputerName = "." Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown, RemoteShutdown)}!\\" & sComputerName & "\root\cimv2") Set colOperatingSystems = oWMI.ExecQuery("Select * from Win32_OperatingSystem") ' Attach to the first OS object For Each obj in colOperatingSystems obj.Win32Shutdown(6) Next End Function Tag: Encryption with vbs and capicom Tag: 197480
  - 10
    - Autoreboot during GPO Machine Startup Script Hi Guys I have a requirement to remove some registry entries, modify some files and remove a service on a range of computers. I have decided to implement this in a computer startup script delivered via a GPO. My code works under a logged in user's context but doesn't seem to work in the security context of a startup script (SYSTEM?). The code executes and doesn't raise any errors but doesn't perform the last step which is the reboot. I have turned on some additional event audfit logging but do not see any failures. Anyone got any ideas? The reboot function is below and I have removed out the error handling and logging bits for clarity. Function ShutDown() sComputerName = "." Set oWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown, RemoteShutdown)}!\\" & sComputerName & "\root\cimv2") Set colOperatingSystems = oWMI.ExecQuery("Select * from Win32_OperatingSystem") For Each obj in colOperatingSystems obj.Win32Shutdown(6) Next End Function Tag: Encryption with vbs and capicom Tag: 197479
  - 11
    - Send email alert when file is modified Is there a way for a script to send me an email message anytime a particular file is modified? I already have code to send an email alert - I just need the logic that periodically checks the file and sends the alert if it has been modified. Tag: Encryption with vbs and capicom Tag: 197473
  - 12
    - Script to run schedule tasks Hi all, Can anyone help me with a script that can run a schedule task and also that automatically press the specific button in the program that run the program. For example, I want to a script to schedule and run SpyBot and automatically press the "Check for problems" button in SpyBot program. Thanks in advance! Jason -- Double Trouble Tag: Encryption with vbs and capicom Tag: 197468
  - 13
    - Search text file Hello, Just cannot think straight at the moment. I have an employee table in .csv fomat where the far left column is everyone's unique emplyee ID and the column to the right has the employee Id of their manager - basically a one to many realationship. I just can't think of how to this...maybe an array or dictionary object? I am very adept at using them. Thanks for any help provided. Tim Tag: Encryption with vbs and capicom Tag: 197456
  - 14
    - Retrieving current time from remote servers Hello, I am looking for a simple way of retrieving the current time from remote Windows NT/2000 servers using vbScript. I am presently using the Win32_LocalTime class to retrieve the current time from Windows 2003 servers, but have found that this class is not supported on Windows NT/2000. Any help would be greatly appreciated. Tag: Encryption with vbs and capicom Tag: 197454
  - 15
    - SQL and VBS Dont know if this is the right group for this but i'll ask anyway. What u want to achive is a very simple backup solution which copies our daily SQL2000 database files to a network share. This script runs on the server and just does a basic file copy. The problem i have is we have 72 servers we want to roll this out to but i have to change the network path for each one. is there anyway to replace the added code to get the client computers (where the backup files copy to) This setting is held in a table on the SQL server. Can i do a select statment to pick this value with the code below? 'Check to see if the folder exists on the PLUM server Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists("C:\FSO") Then Set objFolder = objFSO.GetFolder("\\client pc name\c$\database backups") Else Set objFolder = objFSO.CreateFolder("\\client pc name\c$\database backups") End If 'Copy the Database backup files to the PLUM server dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.copyfile"D:\BACKUPS\*.*", "\\client pc name\c$\database backups\" Tag: Encryption with vbs and capicom Tag: 197453
  - 16
    - Removing quotes from a test file Hi, is there a function or simlpe way I can parse a value and strip the quotes from it? Example. I'm reading a CSV file, for some text fields (like a Display Name with spaces in it) the whole field is surrounded with quotes ("). so when I get the value, the quotes are part of the string itself: varName = "John Doe" I can imagine some ways of removing the quotes (like using SPLIT or MID) but is there a specific function for doing this? Tks in advance Tag: Encryption with vbs and capicom Tag: 197452
  - 17
    - Script To Log Moved Files Am using the script below to move files from one folder to another. Does anyone know what I should add to it to have it create a text file that appends to itself and should what was moved. Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFile "C:\LOC1\test.wav" , "C:\LOC2\" Tag: Encryption with vbs and capicom Tag: 197447
  - 18
    - array help, plase How Can I set this to use an array in the PATH STATEMENT arrComputers = Array("SRVR1", "SRVR2", "SRVR3") For Each strComputer In arrComputers Set MyFile= fso.CreateTextFile("C:\B\" & strComputer & ".csv", True) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set fso = WScript.CreateObject("Scripting.FileSystemObject") ' ***** THIS NEXT SECTION IS WHERE THE PROBLEM IS ******* arrPATH = Array("D:\SQLData\MSSQL\Data", "L:\Backup\Data-Log", "L:\SQLData\MSSQL\LOG") FOR EACH strPATH in arrPATH Set colFileList = objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Directory.Name='strPATH'} Where " _ '<<strPATH here causes error in next for statement & "ResultClass = CIM_DataFile") ' ******If strPATH is replaced with an actual path like C:\ then it works For each objFile In colFileList str = str&objFile.FileName&","& objFile.Extension &","&objFile.FileSize&VBCRLF Next Wscript.echo str ' testing use.... Next MyFile.WriteLine(str) MyFile.Close Next Tag: Encryption with vbs and capicom Tag: 197442
  - 19
    - Run remote process I am trying to run a process, like notepad, on a remote computer. I can do this successfully HOWEVER, I want to know if it is possible at all to run this process on a user account that is logged in so if i run notepad it will open it up on their screen? so if I'm logged in right now....I run a script from a remote computer telling this local computer to open notepad - is it possible to open it in that user account so the user can see it (displayed infront of them)? Tag: Encryption with vbs and capicom Tag: 197440
  - 20
    - Delete old profiles in need of a vbscript deleting all old profiles older than 30 days and exlcude particular profiles, such as Administrator. -- Andrea Tag: Encryption with vbs and capicom Tag: 197433
  - 21
    - delete old profiles I am looking for a vbscript in which it will delete all profiles older than 30 days but exclude specific profiles such as Administrator, All User. Can you help? -- Andrea Tag: Encryption with vbs and capicom Tag: 197432
  - 22
    - Delete old Profiles I am trying to write a vbscript in which I will be able to delete all Profiles older than 30 Days, but exclude particular profiles such as Administrator, All Users. Can you help? -- Andrea Tag: Encryption with vbs and capicom Tag: 197431
  - 23
    - Convert Binary to String I need to query the registry on workstations for a binary value, and write the results to a file (as a string). Here is my code and the spot where it blows up because the result is not a string. Please help me! Thanks.... PKComputerIP="xxx.xxx.xxx.xxx" Const HKEY_LOCAL_MACHINE = &H80000002 Set oReg=GetObject("winmgmts:\\" & PKComputerIP & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\EAPOL\Parameters\Interfaces" oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys For Each subkey In arrSubKeys wscript.echo subkey strSubKeyPath = strKeyPath & "\" & subkey strValueName = "1" oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strSubKeyPath,strValueName,strValue 'ERROR IS IN THE NEXT LINE!*********************** wscript.echo strSubKeyPath & "=" & cstr(strValue) Next Tag: Encryption with vbs and capicom Tag: 197428
  - 24
    - screensaver Does anyone know if it is possible to create a vbscript that launches a webpage as a screensaver? Tag: Encryption with vbs and capicom Tag: 197421
  - 25
    - calling a batch file from a vbs script I have been unable to find any resources on how to call a batch file from a vbs script could you please help? Dane Danewman@ahrc.org Tag: Encryption with vbs and capicom Tag: 197420
- Next
  - 1
    - GPO script to create new System DSN Hi, I am having trouble with a GPO Login script that is suppose to create a new DSN connection for a SQL database, and it gets pushed to 700 plus PCs in a WAN, that are either XP Pro SP2 or Win2000 SP?. Here are the first five lines of the script, and it seems to error out on the 5th line, for some users, but when connected as with and install admin account (that pushes nothing) and run from explore, it accomplishes what it needed. Sorry I don't have the error, but it says something about the driver location. Can someone tell me is there a better way to write that line, or even this whole process?? OR can anyone tell me what they think might be the cause of an error like this, that only happens for some users, and then works for admin Dim oWshShell Const cRegKey1 = "HKLM\Software\ODBC\ODBC.INI\NewSQL\" Const cRegKey2 = "HKLM\Software\ODBC\ODBC.INI\ODBC Data Sources\" Set oWshShell = CreateObject ("WScript.Shell") oWshShell.RegWrite cRegKey1 & "Driver","C:\%systemroot%\System32\sqlsrv32.dll" Tag: Encryption with vbs and capicom Tag: 197414
  - 2
    - Modifying AD users with an INPUT file HI all, what I am trying to do is modify users profile tab properties with an input file. The input file holds the User account names where as the script will just be hardcoded with the changes. I have a scirpt that queries group membership based on user input and then generates a file with all users in that group. Here is an example of the file. HS1USER1 HS1USER2 HS1USER3 HS1USER4 HS1USER5 Now I I am trying to get a script that will modify the user profile tab for the users in this file. Here is what I have so far. option explicit Const ForReading = 1 Dim objconnection,objcommand,objRecordset,fso, InputFile,struser,strDN,objuser Set fso = CreateObject("Scripting.FileSystemObject") Set InputFile = fso.OpenTextFile("C:\Temp\scripts\ADmember\hs1.txt", ForReading, False) 'Set objTextFile = objFSO.OpenTextFile _ '("C:\Temp\scripts\ADmember\hs1.txt", ForReading) Do until InputFile.AtEndOfStream Set struser = Trim(InputFile.ReadLine) wscript.echo struser 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 distinguishedName FROM 'LDAP://dc=NHC' WHERE objectCategory='user'" & _ "AND SAMAccountName=" & struser Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strDN = objRecordSet.Fields("distinguishedName").Value objRecordSet.MoveNext Loop Set objUser = GetObject("LDAP://" & strDN) Wscript.Echo objUser.Name objUser.Put "profilePath", "\\sea-dc-01\Profiles\myerken" objUser.Put "scriptPath", "logon.bat" objUser.Put "homeDirectory", "\\sea-dc-01\HomeFolders\myerken" objUser.Put "homeDrive", "H:" objUser.SetInfo loop InputFile.Close I am not sure to be honest if I am on the right track or not. But i keep getting an error that object required for String Hs1user1. Any ideas or suggestions are appreciated. Thanks Tag: Encryption with vbs and capicom Tag: 197412
  - 3
    - basic help to run an application from WSH hello, Apologies for such a basic question, but I've looked everywhere and nothing is helping. I'm just learning vbscript for wsh and here is my first script, saved in file "<file>.vbs": Set WshShell = CreateObject("WScript.Shell") WshShell.Run "<file path of file.vbs>" Where <...> is a full file path such as "c:\documents and settings\[...]" etc. When I run this by selecting the file I always get a Script: <script file path> Line: 2 Char: 1 Error: THe system cannot find the file specified. Code: 80070002 Source: (null) However if I just move the file to c:\, so the path is "c:\<file>" the file opens. Also if I cut and paste the exact file path from the script into the Run box on the start menu, the file opens. Any help with this? Many thanks. Tag: Encryption with vbs and capicom Tag: 197410
  - 4
    - Using a Variable To Run A Function Dear VBS Experts, I'm trying to do something that I'm not sure is possible, so any experienced input would be helpful. Basically, I have a web app that is designed to accept user input. Based on the input, several variables are sent to a central coordinating function (the vbs code will either be on the ASP page itself, but more likely part of a COM+ object). One of the variables that will be passed to this coordinating function is a number that represents a certain piece of code that needs to be run against the remaining variables. However, I want the code to reside in seperate .vbs files that are not part of the application. The central function reads an .ini sub task file that will show (based on the number in the first variable) the path to the .vbs file to run when processing the input. It probably sounds a little crazy already, but my purpose in this special case is so that I can keep the actual source code (for a growing and dynamic list of functions that I call sub-tasks), completely seperate from the ASP application and any COM+ registered modules. My delimma is to find a way to effectively call the individual .vbs files, run them against the variables that were passed to the coordinating function in the ASP page, and return any results from these .vbs files to the ASP application. So far, I don't know of any way that I can use a returned result from a function (such as the path to the .vbs file returned from the sub task .ini file) to run another function by name, even if it was a registered COM+ object. So it seems that my only alternative is to call the .vbs files and run them against the variables using the shell command. In doing so, is there any way that I can return any error codes generated by the various .vbs files that run? For example, if I shell the variables to a CreateADGroup.vbs file from the coordinating function, is it able to return Active Directory specific error codes or will it only return general error codes related to the shell? Any other ideas in ways of running, what you might call "off-line code", from a sentral code function would be helpful. My only requirment is that the actual task specific code be located in seperate .vbs files that do not require them to be registered in COM+ modules. In some respects, running these sub tasks in seperate threads has some advantages in terms of distributed processing etc. If anyone has some thought on how I can accomplish this, I'm all ears. Rpz Tag: Encryption with vbs and capicom Tag: 197405
  - 5
    - need help with Now() how can i make Now() return Now() + 3 hours? my page uses Now() but it returns pacific time and i want to display eastern. thanks Tag: Encryption with vbs and capicom Tag: 197401
  - 6
    - I Can't call WScript object methods vhen using my script through H Hi I'm new in VBs and HTA scripting, so here's a newbie question. Why can't I call e.g. the WScript.sleep method when calling my VBs function through a HTA file? Tag: Encryption with vbs and capicom Tag: 197395
  - 7
    - using AbsolutePosition to take an action Suppose you have a recordset, and a table where you show all the "lines" of the recordset. But you don't want to show a record, let's say the first. Or maybe you want to show an additional text for that record (including a new "<tr></tr> before the record for example) No matther what the action would be, the thing is to make an action. My idea was: If pobjRs_LinInc.AbsolutePosition = 1 Then ' action End If But it does'nt work.Well, I just can't figure out how to use correctly this property. Tag: Encryption with vbs and capicom Tag: 197391
  - 8
    - Ping Request in VBScript Hi. I am trying to make a VBS file that pings my wireless router. I want to be able to put this in my Windows Schedule (Start>Program Files>Accessories>System Tools>Scheduled Tasks) that runs every 10 minutes. Is this possible and how would I go about doing this. Thanks very much for your help. Tag: Encryption with vbs and capicom Tag: 197388
  - 9
    - want to learn scripting! Hi Pro's, im a novice exchange 2003 admin. im interested in learning vb scripting for exchange administration. im new to programming too can anybody suggest me a book or a resource where i can get a good platform for the same. if this forum is not the right place to ask this question, please suggest me one where i can get it. thanks in advance. Tag: Encryption with vbs and capicom Tag: 197387
  - 10
    - window2003 server and interDev 6 My Win 2000 with IIS and interDev 6 worked fine. I installed Win 2003 server and interDev 6 (together with bachoffice componets "MD Data Access", "Remote Machine Debuging", "Frond Page Server Extensions" and "Visual InterDev Server" as I did in win2000). Now after starting interDev and it can not connect to localhost. Can you give me any advice? Tag: Encryption with vbs and capicom Tag: 197384
  - 11
    - Disable NetBIOS on backup NIC We have multi-homed servers, with a public interface and a second NIC dedicated to only backups. I would like to programmatically do the following to only the backup interface: disable client for Microsoft networks disable file and print sharing disable 'register this connections address in DNS' Set 'disable NetBIOS over TCP/IP' A future wish would be to confirm and/or set the binding order as well. Anybody have the code? (Doesn't have to be vb script - if netsh.exe or any other command-line utility can do that, just as well!) Thanks! Tag: Encryption with vbs and capicom Tag: 197381
  - 12
    - Please help! I am getting a funky Type Mismatch error! I am writing a script to manually uninstall some old legacy software and I need to delete some files from C:\Documents And Settings\UserProfile\Start Menu\Programs\Some Program but I keep getting mismatch errors. Here is the code: Set objShell = CreateObject("Scripting.FileSystemObject") Set oNetwork = CreateObject("wScript.Network") strUser = oNetwork.UserName If objShell.FileExists ("C:\Documents And Settings") & strUser & ("\Start Menu\Programs\Some Program\readme.lnk") Then objShell.DeleteFile ("C:\Documents And Settings") & strUser & ("\Start Menu\Programs\Some Program\*.LNK") End If And here is the error: Script: strPath.vbs Line 4 Char 1 Error: Type Mismatch: '[string: "Falsemcotey\Start Me"]' Code 800A000D Source Microsoft VBScript runtime error Anyone else seen anything like this? All threads I read w/ that error code state most likely cause is a misspelling but I don't see any. I thought it could be a problem w/ using the join ampersand but I have full local admin privs so I cannot imagine it is a security thing although I could be wrong. Any help is appreciated. MCOTEY Tag: Encryption with vbs and capicom Tag: 197380
  - 13
    - expected identifier i already have worked out on a script but it eventually shows an error message at execu= tion. someone can please help me. its in french but i think the syntaxes and functions= are same. Option explicit Const Path_Server =3D "C:\test serveur\machine\emballeuse\P1" Const Path_Client =3D "C:\test client\machine\emballeuse\P1" Call Compare_Client_Server() Function Compare_Client_Server() Dim Fso : Set fso =3D CreateObject("Scripting.FileSystemObject") Dim Dossier_Client : Set Dossier_Client =3D Fso.GetFolder("C:\test client\mach= ine\emballeuse\P1") Dim Files_Client : Set Files_Client =3D Dossier_Client.Files Dim Fichier_Client 'R=C3=A9cup=C3=A9ration du nom de File_Client sur Path_Client et de sa derni=C3=A8= re date de modification For Each Fichier_Client in Files_Client Dim File_Client : File_Client =3D Fichier_Client.Name Dim Date_Client : Date_Client =3D Fichier_Client.DateLastModified 'V=C3=A9rification que "Path_Client & File_Client" existe sur Path_Server Call Compare_File("test1.txt", "09/10/2006 09:21") Next Set Fso =3D Nothing Set Dossier_Client =3D Nothing Set Files_Client =3D Nothing MsgBox "fichier existe" MsgBox File_Client &vbCrLf& Date_Client End Function Function Compare_File("test1.txt", "09/10/2006 09:21") 'V=C3=A9rification que File_Client existe sur Path_Server Dim Fso : Set Fso =3D CreateObject("Scripting.FileSystemObject") If Fso.FileExists(Path_Server & File_Client) Then Call Compare_Date(File_Clie= nt, Date_Client) Set Fso =3D Nothing End function Function Compare_Date(File_Client, Date_Client) Dim Fso : Set Fso =3D CreateObject("Scripting.FileSystemObject") 'V=C3=A9rification que le fichier existe sur le Path_Server If Fso.FileExists(Fso.GetFile(Path_Server & File_Client)) Then 'La diff=C3=A9rence de date est effectu=C3=A9e en minute Dim dtDiffFile dtDiffFile =3D DateDiff("n" , Date_Client, Fso.GetFile(Path_Server & File_Clie= nt).DateLastModified) 'Si la date de derni=C3=A8re modification de File_Client 'est < =C3=A0 la date de derni=C3=A8re modification de File_Server =3D> on copie Fil= e_Server sur File_Client If dtDiffFile <=3D 1 Then MsgBox "fichier client: " & Path_Client & File_Client &vbCrLf& "DateLastModified= : " & Date_Client &vbCrLf&vbCrLf&_ "fichier server: " & Fso.GetFile(Path_Server & File_Client).Path & Fso.GetFile(= Path_Server & File_Client).Name &vbCrLf& "DateLastModified: " & Fso.GetFile(Pa= th_Server & File_Client).DateLastModified &vbCrLf&_ "Diff=C3=A9rence entre les 2 dates: " &vbCrLf& dtDiffFile,,"Date_Client > Date_S= erver" Else MsgBox "fichier client: " & Path_Client & File_Client &vbCrLf& "DateLastModified= : " & Date_Client &vbCrLf&vbCrLf&_ "fichier server: " & Fso.GetFile(Path_Server & File_Client).Path & Fso.GetFile(= Path_Server & File_Client).Name &vbCrLf& "DateLastModified: " & Fso.GetFile(Pa= th_Server & File_Client).DateLastModified &vbCrLf&_ vbCrLf&vbCrLf&"Diff=C3=A9rence entre les 2 dates: " &vbCrLf& dtDiffFile,,"Date= _Client =3D< Date_Server ### File_Server sera copi=C3=A9 sur File_Client" Call Copy_Server_Client(File_Client) End If End If Set Fso =3D Nothing End function Function Copy_Server_Client(File_Client) Dim Fso : Set Fso =3D CreateObject("Scripting.FileSystemObject") Fso.CopyFile Path_Server & File_Client, Path_Client & File_Client Set Fso =3D Nothing End function Tag: Encryption with vbs and capicom Tag: 197379
  - 14
    - Mapping a drive according to group membership Hello: I found a VBScript logon script on TechNet which maps drives and printers according to the Group Membership of the user. The script can be found here: http://technet2.microsoft.com/WindowsServer/en/library/8a268d3a-2aa0-4469-8cd2-8f28d6a630801033.mspx?mfr=true I modified the script in order to accomodate the environment and keep getting a Type Mismatch error. The error reads: Line: 35 Char: 1 Error: Type mismatch: 'Join' Code: 800A000D Source: Microsoft VBScript runtime error Line 35 of the code corresponds to the LAST line of the following code snippet (XYZ.com here replaces the actual FQDN): Set wshNetwork = CreateObject("WScript.Network") Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject(LDAP://XYZ.com & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) Can anyone shed any light on how to fix this error or what might be causing it? I am logging onto a Windows XP Pro (SP2) workstation, and the server is running Windows Server 2003 Std SP1. Thanks in advance! Tag: Encryption with vbs and capicom Tag: 197370
  - 15
    - How do I get the current day of the week How do I get the current day of the week in batch script?? Tag: Encryption with vbs and capicom Tag: 197368
  - 16
    - vbscript function This line (line 71) causes an error message for my script debugger("line 71 char 1 error:object required "txt.Title"_) But it is defined on the first object (Line 10). document.writeln "<HTML><TITLE>" & txtTitle.Text & "</TITLE>". The CLSID was copied from the authors code: CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <HTML><HEAD><TITLE>Create Your Own Web Page</TITLE></HEAD> <BODY> <CENTER><H2>Create Your Own Web Page</H2></CENTER> <p> <H3>This page contains a VBScript application and embedded ActiveX controls that allow you to design your own basic Web page.<H3> <p> <table><tr><td align=RIGHT><H3>Enter the Title for your page:</H3></TD><TD> <OBJECT ID="txtTitle" WIDTH=225 HEIGHT=23 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <PARAM NAME="VariousPropertyBits" VALUE="1749567515"> <PARAM NAME="Size" VALUE="5962;600"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </TD></TR> <TR><TD ALIGN=RIGHT><H3>Enter a heading line for your page:</H3></TD> <TD> <OBJECT ID="txtHeader" WIDTH=225 HEIGHT=23 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <PARAM NAME="VariousPropertyBits" VALUE="675825691"> <PARAM NAME="Size" VALUE="5962;600"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </TD></TR> <TR><TD ALIGN=RIGHT VALIGN=TOP><H3>Enter some text for your page: </H3></TD> <TD> <OBJECT ID="txtMiscText" WIDTH=225 HEIGHT=125 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <PARAM NAME="VariousPropertyBits" VALUE="2831697947"> <PARAM NAME="ScrollBars" VALUE="2"> <PARAM NAME="Size" VALUE="5962;3307"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </TD></TR> <TR><TD ALIGN=RIGHT VALIGN=TOP><H3>Enter any additional HTML for your page:</H3></TD> <TD> <OBJECT ID="txtHTML" WIDTH=225 HEIGHT=112 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <PARAM NAME="VariousPropertyBits" VALUE="2831697947"> <PARAM NAME="ScrollBars" VALUE="2"> <PARAM NAME="Size" VALUE="5962;2963"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </TD></TR> <TR><TD ALIGN=RIGHT><H3>Enter the URL for a picture to display:</H3></TD> <TD> <OBJECT ID="txtPicture" WIDTH=225 HEIGHT=23 CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3"> <PARAM NAME="VariousPropertyBits" VALUE="675825691"> <PARAM NAME="Size" VALUE="5962;600"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </TD></TR> </TABLE> <CENTER> <SCRIPT LANGUAGE="VBScript">  </SCRIPT> <OBJECT ID="cmdSubmit" WIDTH=96 HEIGHT=32 CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"> <PARAM NAME="BackColor" VALUE="12615935"> <PARAM NAME="Caption" VALUE="Display Page"> <PARAM NAME="Size" VALUE="2540;846"> <PARAM NAME="FontCharSet" VALUE="0"> <PARAM NAME="FontPitchAndFamily" VALUE="2"> <PARAM NAME="ParagraphAlign" VALUE="3"> <PARAM NAME="FontWeight" VALUE="0"> </OBJECT> </CENTER></BODY></HTML> Tag: Encryption with vbs and capicom Tag: 197365
  - 17
    - how to get disk space free given a folder path can't use driveobj availablespace nor free since a path my include a mount point some where to a partition that does not have drive letter nor sharename Tag: Encryption with vbs and capicom Tag: 197357
  - 18
    - Registered DLL Hi, I am looking for a way to script and get a list of all registered non-Microsoft dll's on Windows 2003 server. Any way it can be done. Khurram. Tag: Encryption with vbs and capicom Tag: 197356
  - 19
    - identifying XP Prof and XP Media Center I am using the following snippet of code to determine the operating system installed on machines in my company. =============================== set settingsOS = wmiObj.ExecQuery("SELECT * FROM Win32_OperatingSystem") set objSWbemDateTime = CreateObject("WbemScripting.SWbemDateTime") for each osObj In settingsOS Wscript.Echo "OS:" & trim(osObj.Name) & " ver"& trim(osObj.Version) next =============================== It is always returning "Microsoft Windows XP Professional ver5.1.2600" even when a machine has Windows Media Center. How can I get the script to output the correct operation system name or even code? Thanks. Tag: Encryption with vbs and capicom Tag: 197350
  - 20
    - date manipulation I need some simple VB/VBScript function. I want to reduce some X minutes from the current date. How can I do that I tried this in VB dim x as date x = now x = x -10 ' trying to reduce 10 minutes how can I deduct X minutes from the date.... thanks Tag: Encryption with vbs and capicom Tag: 197343
  - 21
    - deposit a file on the clipboard I need a script to deposit a PDF file on the clipboard. __________________________________________________________________ Pierre Laporte ICQ#: 18291258 Current ICQ status: + More ways to contact me __________________________________________________________________ Tag: Encryption with vbs and capicom Tag: 197342
  - 22
    - Changing Outlook Contact Information Here's the deal. We switched to an internal Exchange Server, at the time we also switched the default setup for e-mail addresses; for example asmith@xyz.com went to andrew.smith@xyz.com. I've configured exchange to accept both. Some of our users have contacts in Outlook with company contacts which still list the old style e-mail addresses. Is it possible to write a script to go through individuals contact information and change these to the new setup? If, so can you give me some pointers? Thanks, Andrew Tag: Encryption with vbs and capicom Tag: 197341
  - 23
    - No HTA status messages until the end Hi. I'm writing an HTA that is mapping driveletters to shares. I want to see progress for each mapping, ie. success or failure. At present, all status messages are written to the GUI, but this is done simoultaneously, at the very end. I want to see status messages after each drive mapping attempt, before the next drive mapping is attempted. How do I accomplish this? Here's the script: <html> </html><head> <title>HTA</title> <HTA:APPLICATION SINGLEINSTANCE="yes" WINDOWSTATE="normal" </head> <SCRIPT LANGUAGE="VBScript"> Sub Window_OnLoad call UpdateStatusWindow("<b>Starting drive mappings</b><br><br>") Call MapDrev_HTA("o:", "\\server\bla1") Call MapDrev_HTA("p:", "\\server\bla2") Call MapDrev_HTA("q:", "\\server\bla3") call UpdateStatusWindow("<b>Finished drive mappings.</b><br><br>") 'other tasks will come here... End Sub Private Function MapDrev_HTA(TM_strDrive, TM_strShare) UpdateStatusWindow("Mapping " & TM_strDrive & " to '" & TM_strShare & "'...") Dim TM_objDrive Set TM_objFSO = Createobject("Scripting.FileSystemobject") Set TM_objNetwork = Createobject("Wscript.Network") ' Set TM_objFSO = CreateTM_object("Scripting.FileSystemTM_object") On Error Resume Next Err.Clear If TM_objFSO.DriveExists(TM_strDrive) Then Set TM_objDrive = TM_objFSO.GetDrive(TM_strDrive) If Err.Number <> 0 Then Err.Clear MapDrev_HTA= False Exit Function End If If CBool(TM_objDrive.DriveType = 3) Then TM_objNetwork.RemoveNetworkDrive TM_strDrive, True, True Else MapDrev_HTA= False Exit Function End If Set TM_objDrive = Nothing End If TM_objNetwork.MapNetworkDrive TM_strDrive, TM_strShare If Err.Number = 0 Then MapDrev_HTA= True UpdateStatusWindow(" success.<br>") Else Err.Clear MapDrev_HTA= False UpdateStatusWindow(" <span style=""color: red;"">no success!<br></span>") End If On Error GoTo 0 Set TM_objNetwork = Nothing End Function Sub UpdateStatusWindow(TM_TilfTekst) StatusWindow.innerHTML = StatusWindow.innerHTML & TM_TilfTekst End Sub </SCRIPT> <body> <table STYLE="Height:400; Width:700; border: 0px solid black;"> <tr><td id="StatusWindow" STYLE="vertical-align: top; border:1px solid black; background-color :White;"> <b>Status</b><br> </td> </tr> </table> </body> </html> Tag: Encryption with vbs and capicom Tag: 197338
  - 24
    - HTA not updating progress Hi, I'm writing an HTA that is mapping some driveletters to server shares. I want to see progress for each drive-mapping (success or failure for each). So, after each drive mapping, the sub 'UpdateStatusWindow' is called. This sub is supposed to write status text to the HTA's GUI. However, the status text isn't written until the script has finished all the drive mappings. How can the status text be written to the HTA's GUI after each drive mapping? Here's the script: <html> <head> <title>HTA</title> <HTA:APPLICATION SINGLEINSTANCE="yes" WINDOWSTATE="normal"> </head> <SCRIPT LANGUAGE="VBScript"> Sub Window_OnLoad call UpdateStatusWindow("<b>Starting drive mappings</b><br><br>") Call MapDrev_HTA("o:", "\\server\bla1") Call MapDrev_HTA("p:", "\\server\bla2") Call MapDrev_HTA("q:", "\\server\bla3") call UpdateStatusWindow("<b>Finished drive mappings.</b><br><br>") 'other tasks will come here... End Sub Private Function MapDrev_HTA(TM_strDrive, TM_strShare) UpdateStatusWindow("Mapping " & TM_strDrive & " to '" & TM_strShare & "'...") Dim TM_objDrive Set TM_objFSO = Createobject("Scripting.FileSystemobject") Set TM_objNetwork = Createobject("Wscript.Network") On Error Resume Next Err.Clear If TM_objFSO.DriveExists(TM_strDrive) Then Set TM_objDrive = TM_objFSO.GetDrive(TM_strDrive) If Err.Number <> 0 Then Err.Clear MapDrev_HTA= False Exit Function End If If CBool(TM_objDrive.DriveType = 3) Then TM_objNetwork.RemoveNetworkDrive TM_strDrive, True, True Else MapDrev_HTA= False Exit Function End If Set TM_objDrive = Nothing End If TM_objNetwork.MapNetworkDrive TM_strDrive, TM_strShare If Err.Number = 0 Then MapDrev_HTA= True UpdateStatusWindow(" success.<br>") Else Err.Clear MapDrev_HTA= False UpdateStatusWindow(" <span style=""color: red;"">no success!<br></span>") End If On Error GoTo 0 Set TM_objNetwork = Nothing End Function Sub UpdateStatusWindow(TM_TilfTekst) StatusWindow.innerHTML = StatusWindow.innerHTML & TM_TilfTekst End Sub </SCRIPT> <body> <table STYLE="Height:400; Width:700; border: 0px solid black;"> <tr><td id="StatusWindow" STYLE="vertical-align: top; border:1px solid black; background-color :White;"> <b>Status</b><br> </td> </tr> </table> </body> </html> -- Regards, Thomas M. DK Tag: Encryption with vbs and capicom Tag: 197337
  - 25
    - WSH and Event Log I am posting a record to the Event Log via the code below, but the USER field in the Event Details is populated with User: N/A. This appears to be standard with WSH. Is this so? Is there anyway I can populate I can get this field populated with the user running the script? objShell.LogEvent 8 , "User " & objShell.ExpandEnvironmentStrings("%USERDOMAIN%") _ & "\" & objShell.ExpandEnvironmentStrings("%USERNAME%") _ & " has logged on via " _ & objShell.ExpandEnvironmentStrings("%SESSIONNAME%") _ & " from workstation " _ & objShell.ExpandEnvironmentStrings("%CLIENTNAME%") _ & VBCRLF _ & VBCRLF _ & "Reason for logon - " _ & Input -- Paul Bergson MVP - Directory Services MCT, MCSE, MCSA, Security+, BS CSci 2003, 2000 (Early Achiever), NT http://www.pbbergs.com Please no e-mails, any questions should be posted in the NewsGroup This posting is provided "AS IS" with no warranties, and confers no rights. Tag: Encryption with vbs and capicom Tag: 197336

Hi I'm looking for a solution to encrypt data with vbs and capicom and
decrypt with java. Encrypt the data with capicom is quite easy but the
encyption on the java site seems not to be easy.
For the encyption we used the AES 256bit Alogrithm.

Does someone have an idea how we could solve the problem encrypting in
vbs - decrypting in java?

Thanks
michel

Top