Convert Binary to String

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
    - screensaver Does anyone know if it is possible to create a vbscript that launches a webpage as a screensaver? Tag: Convert Binary to String Tag: 197421
  - 2
    - 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: Convert Binary to String Tag: 197420
  - 3
    - 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: Convert Binary to String Tag: 197414
  - 4
    - 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: Convert Binary to String Tag: 197412
  - 5
    - 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: Convert Binary to String Tag: 197410
  - 6
    - 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: Convert Binary to String Tag: 197405
  - 7
    - 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: Convert Binary to String Tag: 197401
  - 8
    - 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: Convert Binary to String Tag: 197395
  - 9
    - 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: Convert Binary to String Tag: 197391
  - 10
    - 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: Convert Binary to String Tag: 197388
  - 11
    - 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: Convert Binary to String Tag: 197387
  - 12
    - 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: Convert Binary to String Tag: 197384
  - 13
    - 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: Convert Binary to String Tag: 197381
  - 14
    - 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: Convert Binary to String Tag: 197380
  - 15
    - 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: Convert Binary to String Tag: 197379
  - 16
    - 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: Convert Binary to String Tag: 197370
  - 17
    - How do I get the current day of the week How do I get the current day of the week in batch script?? Tag: Convert Binary to String Tag: 197368
  - 18
    - 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: Convert Binary to String Tag: 197365
  - 19
    - 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: Convert Binary to String Tag: 197357
  - 20
    - 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: Convert Binary to String Tag: 197356
  - 21
    - 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: Convert Binary to String Tag: 197350
  - 22
    - 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: Convert Binary to String Tag: 197343
  - 23
    - 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: Convert Binary to String Tag: 197342
  - 24
    - 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: Convert Binary to String Tag: 197341
  - 25
    - 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: Convert Binary to String Tag: 197338
- Next
  - 1
    - 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: Convert Binary to String Tag: 197337
  - 2
    - 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: Convert Binary to String Tag: 197336
  - 3
    - Error Handling I'm not very good at error trapping. I'd like to display a MsgBox if the drive mapping succeeds or fails. Can someone help me modify my drive mapping script to achieve this? CODE *********** Dim objNetwork, objShell, i Dim CheckDrive, AlreadyConnected, intDrive Dim drive_letter(2) drive_letter(1)="x:" drive_letter(2)="y:" Dim folder_share(2) folder_share(1)="\\myServer\my_data" folder_share(2)="\\myServer\mp_data2" ' objShell and objNetwork and counts the drives Set objShell = CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") Set CheckDrive = objNetwork.EnumNetworkDrives() For i = 1 To UBound(drive_letter) ' Check if drive exists On Error Resume Next AlreadyConnected = False For intDrive = 0 To CheckDrive.Count - 1 Step 2 If CheckDrive.Item(intDrive) = drive_letter(i) _ Then AlreadyConnected =True Next ' test if Drive is already mapped. disconnect, reconnect if yes If AlreadyConnected = True then objNetwork.RemoveNetworkDrive drive_letter objNetwork.MapNetworkDrive drive_letter(i), folder_share(i) Else objNetwork.MapNetworkDrive drive_letter(i), folder_share(i) End If Next WScript.Quit Tag: Convert Binary to String Tag: 197333
  - 4
    - ado connection.execute "syntax error" Help! I am having a strange error creating a vbscript that needs to perform some simple database lookups using ado. I have written many scripts successfully with oracle and this is my first with sqlserver, although I don't think this is the problem. I have narrowed my scsript to 4 lines. The problem is most likely something so simple but I just don't see it. The script fails on the execute line with a syntax error on the 5 char. if I comment out the execute line the script completes with no errors. this is the following scsript >> set conn = createobject("adodb.connection") connectionString = "Provider=SQLOLEDB;Data Source=Coltrane;Initial catalog=Pubs;Integrated Security='SSPI;' conn.open connectionString,,,-1 set rset = conn.execute("select * from employees") >> thanks john Tag: Convert Binary to String Tag: 197332
  - 5
    - How do I use the ExecQuery statement Hi everyone, I lifted the following script from the script centre and modified it to locate a specific host from DNS. I was wondering if this was the most efficient way because it takes quite a while. Can I modify the ExecQuery to return fewer records? strComputer = "tempsvrname" Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & _ "\root\MicrosoftDNS") Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AType") For Each objItem in colItems If objItem.OwnerName = "servername.domain.com" Then Wscript.Echo "IP Address: " & objItem.IPAddress End If Next I tried:- Set colItems = objWMIService.ExecQuery("Select IPAddress from MicrosoftDNS_AType where OwnerName = servername.domain.com") But it wouldn't run and the error message which happened at the start of the for loop wasn't very helpful. Any ideas? Danny... Tag: Convert Binary to String Tag: 197323
  - 6
    - Script to accept a dll name an return the file path from the registry The subject pretty much says it all. I've found a script that basically wites the registry to a text file which then requires reading each line til you find what you want but this takes way to long. If the registry is loaded into memory at start up isn't there a way I can just slurp this info into a string and run a regex against it? Tag: Convert Binary to String Tag: 197320
  - 7
    - How to instantiate Server object in client script I want to use the Server.HTMLEncode method in a desktop client VBScript on my PC (which has IIS installed). How do I instantiate it? What name do I pass to CreateObject()? Thanks in advance. kk Tag: Convert Binary to String Tag: 197316
  - 8
    - EasyScript Pro - Coding ASP pages for any database with in 24-48 hrs Check out this new free tool for coding ASP pages with out any effort. http://www.expressdatasolutions.com/easyscript_pro.html Tag: Convert Binary to String Tag: 197314
  - 9
    - drive space avail problem I tried Dim path, oDrv Dim oFSO Set oFSO = CreateObject("Scripting.FileSystemObject") path = "J:\Backup_Sata1P2\WeeklyRetrospect" set oDrv = oFSO.GetDrive(path) ' <== got flagged with the error shown below wscript.echo "space avail for "& path & ": " & oDrv.AvailableSpace and got --------------------------- Windows Script Host --------------------------- Script: C:\Documents and Settings\isgbkup.ISG\Desktop\chkBkupSpaceAvail.vbs Line: 7 Char: 1 Error: Invalid procedure call or argument Code: 800A0005 Source: Microsoft VBScript runtime error --------------------------- OK --------------------------- Backup_Sata1P2 is actually a mount point or link point to a partition(drive) Tag: Convert Binary to String Tag: 197312
  - 10
    - Error Handling I'm not very good at error trapping. I'd like to display a MsgBox if the drive mapping succeeds or fails. Can someone help me modify my drive mapping script to achieve this? CODE *********** Dim objNetwork, objShell, i Dim CheckDrive, AlreadyConnected, intDrive Dim drive_letter(2) drive_letter(1)="x:" drive_letter(2)="y:" Dim folder_share(2) folder_share(1)="\\myServer\my_data" folder_share(2)="\\myServer\mp_data2" ' objShell and objNetwork and counts the drives Set objShell = CreateObject("WScript.Shell") Set objNetwork = CreateObject("WScript.Network") Set CheckDrive = objNetwork.EnumNetworkDrives() For i = 1 To UBound(drive_letter) ' Check if drive exists On Error Resume Next AlreadyConnected = False For intDrive = 0 To CheckDrive.Count - 1 Step 2 If CheckDrive.Item(intDrive) = drive_letter(i) _ Then AlreadyConnected =True Next ' test if Drive is already mapped. disconnect, reconnect if yes If AlreadyConnected = True then objNetwork.RemoveNetworkDrive drive_letter objNetwork.MapNetworkDrive drive_letter(i), folder_share(i) Else objNetwork.MapNetworkDrive drive_letter(i), folder_share(i) End If Next WScript.Quit Tag: Convert Binary to String Tag: 197307
  - 11
    - lastLogon hello, I tried to get user information from the domain with vbs. The script retrieved information such as the 'Name' field fine but it gave me error when tyied to get information such as the user's 'LastLogon'. The error message is "Type misMatch" at the excution of code: 'msgbox oRS.Fields("LastLogon")'. I apprecate for any help on how to get the 'LastLogon' statement work in the vbscript that I included below: - Fan '========== Sample script =================== strBase = "<LDAP://dc=myDomain, dc=com>" strFilter = "(&(objectCategory=person)(objectClass=user)(cn=Joe Johnson))" strAttributes = "name,LastLogon" strFields = "name,LastLogon" Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set oRS = objCommand.Execute Do Until oRS.EOF On error resume next msgbox oRS.Fields("Name") 'Remark: this will display 'Joe Johnson' msgbox oRS.Fields("LastLogon") 'Remark: this will generate error If Err then msgbox Err.description 'Remark: displays: 'Type mismatch' Err.clear End if oRS.MoveNext Loop '=========== end script sample ============== Tag: Convert Binary to String Tag: 197299
  - 12
    - Registry permissions Is there a way to get the permissions configured on an especific registry key? Thanks!!! Carlos Felipe Tag: Convert Binary to String Tag: 197297
  - 13
    - Scheduling a script to run a program I have searched but can't find this magic for this. I have a script that runs fine. It starts with a popup and then starts a program and then uses AutoIT to send key strokes to the program. I am trying to get this script to run as a scheduled task. The script will start and even run the program. But I am never able to see the popup or the program window. The Task Schedule service is running as the LocalSystem account and interact with desktop is turned on. I have used both the GUI and the AT command to schedule the script but get the same results. Any help is greatly appreciated. TIA Tag: Convert Binary to String Tag: 197291
  - 14
    - User Drive Security Does anyone have a script that can... I would like to reset the security on all the folders so that the user is the only one that can access their own folders. This script would read the folders in \\server\users then reset the security of the folder that is named after the username to full rights to that user... Example folder name \\server\users\JohnG Username JohnG Rights- John Full Access. Folder name Username Rights \\server\users\JohnG JohnG JohnG -full \\server\users\JoeT JoeT JoeT -full \\server\users\TimR TimR TimR -full Tag: Convert Binary to String Tag: 197290
  - 15
    - NEED HELP with how to do a projection calculation I am fairly new to working with ASP pages and using VBScript, so I hope this can be done. I have to create two different projections. The first one assumes that there is 5 or more years before retirement and takes the (annual salary x percent increase) and projects the salary for the numbers of years difference between current age and selected age, then takes the last 5 years and divides the total by 60. Example: Person is 50 and age selected to retire is 56 Number of years to project = 6 Year 1 Projection = ANNSAL * PCT Year 2 Projection = Year 1 * PCT Year 3 Projection = Year 2 * PCT Year 4 Projection = Year 3 * PCT Year 5 Projection = Year 4 * PCT Year 6 Projection = Year 5 * PCT Total = (sum of Year 2 to Year 6)/60 The second one assumes that there is less than 5 years to retirement and projects the number of years like above and then adds (a database fieldx12) for the additional years to total 5 years. Example: Person is 53 and age selected to retire is 56 Year 1 projection = ANNSAL * SAL_INC Year 2 projection = Year 1 * SAL_INC Year 3 Projection = Year 2 * SAL_INC Year 4 Projection = Ave 60 from DB * 12 Year 5 Projection = Ave 60 from DB * 12 Total = (sum of Year 1 to Year 5)/60 Thanks in advance. Tag: Convert Binary to String Tag: 197277
  - 16
    - permission denied WMI getobject if you get the error, run dcomcnfg, click on DEFAULT PROPERTIES, check "Enable Distributed (DCOM) on this computer", stop / start COM+ and the WMI services - it works DCOM MUST be running for WMI to responde to remote queries Cheers Eric Vogelpohl Tag: Convert Binary to String Tag: 197275
  - 17
    - Back to the basics (Parameterized SQL Inside VBS) I have been, off and on, creating a VBScript that goes out and collects information of various systems, and logs the information into SQL. Right now I have in place a system that is working, but I am always looking to improve it, both for security, reliability and speed. It has come up a few times that I should use parameterized SQL statements when running VBS, but I have no clue what that means nor how to implement it. Would someone review what I have and note what needs to be done? Thank you. -Matt- Side Note: BIG thanks to McKirahan and Richard Mueller on the microsoft.public.scripting.vbscript group for getting me this far. [Code] Option Explicit '*********************** '* Declare Constants * '*********************** Const cVBS = "SysMon_LogDiskSpace.vbs" Const cDSN = "Provider=SQLOLEDB.1;Data Source=SDLC;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=DBADMIN_Dev" '********************* '* Declare Globals * '********************* Dim intSQL intSQL = 0 Dim strSQL strSQL = "SELECT SystemName FROM SysMon_List WHERE MonitorEnabled = 1" '********************* '* Declare Objects * '********************* Dim objADO Set objADO = CreateObject("ADODB.Connection") objADO.Open = cDSN Dim objRS1 Set objRS1 = CreateObject("ADODB.Recordset") objRS1.Open strSQL,objADO,1,1 Dim objRS2 Set objRS2 = CreateObject("ADODB.Recordset") '***************************** '* Process each SystemName * '***************************** Do While Not objRS1.EOF Process(objRS1("SystemName").Value) objRS1.MoveNext Loop '********************* '* Destroy Objects * '********************* objRS2.Close Set objRS2 = Nothing objRS1.Close Set objRS1 = Nothing objADO.Close Set objADO = Nothing '******************** '* Finish Message * '******************** ' MsgBox intSQL & " EXECs",vbInformation,cVBS Sub Process(SystemName) '***************************** '* Process Each SystemName * '***************************** If SystemName = "" Then Exit Sub On Error Resume Next '* '* Declare Variables '* Dim objITM Dim objQRY Dim objWMI '* '* WMIService '* Set objWMI = GetObject("winmgmts://" & SystemName) If Err.Number <> 0 Then Call Results(SystemName,Err.Number,Err.Description,"") ' wscript.echo "Start Error: " & err.number & " " & err.description Else '********************** '* Win32_LogicalDisk * '********************** strSQL = "SELECT * FROM Win32_LogicalDisk" Set objQRY = objWMI.ExecQuery(strSQL,,48) For Each objITM in objQRY IF objITM.DriveType=3 THEN strSQL = "EXEC SysMon_SP_Log_Disk_Space '" _ & SystemName & "','" _ & objITM.DeviceID & "','" _ & objITM.Size & "','" _ & objITM.Freespace & "'" Call Results(SystemName,Err.Number,Err.Description,"") ' wscript.echo "Win32_LogicalDisk SQL: " & strSQL ' Debugging End If Next End If '* On Error GoTo 0 End Sub Sub Results(SystemName,Err_Code,Err_Desc) '******************** '* Results Logged * '******************** If Err_Code <> 0 Then strSQL = "EXEC SysMon_SP_Log_Errors '" _ & SystemName & "','" & Err_Code & "','" & Err_Desc & "'" ' wscript.echo "Err_Code Error:" & strSQL ' Debugging End If objRS2.Open strSQL,objADO,1,1 intSQL = intSQL + 1 ' wscript.echo "Executing SQL " & strSQL ' Debugging End Sub [/Code] [Code] set ANSI_NULLS ON set QUOTED_IDENTIFIER ON GO CREATE PROCEDURE [dbo].[SysMon_SP_Log_Disk_Space] @SystemName VARCHAR(50), @Drive VARCHAR(50), @Size BIGINT, @FreeSpace BIGINT AS INSERT SysMon_Log_Disk_Space ( SystemName, Drive, Size, FreeSpace, AuditDateTime ) VALUES (@SystemName, @Drive, @Size/1024, @FreeSpace/1024, GETDATE() ) [/Code] Tag: Convert Binary to String Tag: 197262
  - 18
    - anyone have VBScript/HTA experience? as a test, i have an HTA with a button and a <span> tag. when the button is clicked a text file is opened and read 1 line at a time and i bump a counter variable and want to update the text in the <span>. what is happening is that nothing is updating, but when the script is finished the span displays the counter (number of lines in the file) i can post the code but i thought maybe it would end up being something you cant do.... maybe? Tag: Convert Binary to String Tag: 197258
  - 19
    - OpenDSObject fails running under local account Hi, I have always used "OpenDSObject" to bind to AD with specific credentials which works fine if the shell in which you launch the VB script is a domain based account. But I find it fails when the VB script is executed running under a local account, builtin\system for example. Consider the following code excerpt: Set oDSP = GetObject("LDAP:") Set oUser = oDSP.OpenDSObject("LDAP://CN=someuser,OU=User Accounts,DC=xxx,DC=net","xxx\user","pass",0) When the cmd.exer\cscript.exe session that this code is launched from is a domain account it works fine, but when I run it under "local system" (eg: run as startup script or scheduled) it fails with the error: "The specified domain either does not exist or could not be contacted." I suppose this is because the GetObject("LDAP:") is not getting the correct AD provider as it's running under a local account. Question is: How to I tell the "GetObject("LDAP:")" call to get the LDAP provider for the domain rather than the local machine?? I can get the domain from elsewhere, that's no issue, but how to I pass it when I connect to the LDAP provider?? I've tried GetObject("LDAP://domain.com) etc... But that does not work. Any ideas most welcome. Thanks, Rob Tag: Convert Binary to String Tag: 197255
  - 20
    - Microsoft VBScript compilation error '800a03f6' I am getting this error: Microsoft VBScript compilation error '800a03f6', Expected 'End' /Includes/AgentFooter.asp, line 53. I think the problem may be at the top. This is the script: <table class=3D"Footer" width=3D"680" border=3D"0" cellspacing=3D"0" cellpadding=3D"0"> <tr> <td class=3D"FooterMenu"> <table width=3D"680" border=3D"0" cellspacing=3D"0" cellpadding=3D"0"> <tr bgcolor=3D"#666666"> <td><img src=3D"images/shim.gif" width=3D"1" height=3D"2"></td> </tr> </table> <table width=3D"680" border=3D"0" cellspacing=3D"0" cellpadding=3D"2"> <tr align=3D"center"> <td> <table width=3D"676" border=3D"0" cellspacing=3D"0" cellpadding=3D"= 2"> <tr bgcolor=3D"#333333" align=3D"center" valign=3D"middle"> <td width=3D"672" colspan=3D"3"> <div align=3D"center"><font color=3D"#666666" face=3D"Verdana, Arial, Helvetica, sans-serif" size=3D"1"> <a class=3D"white" href=3D"/">Home</a> <a class=3D"white" href=3D"http://groups.msn.com/RealtorDiscussionForum/messageboard.msnw?pgma= rket=3Den-us" target=3D"_blank">Forums</a> | <a class=3D"white" href=3D"/rbuy/howtobid.asp">How To Bid</a> | <a class=3D"white" href=3D"/rbuy/sellers.asp">Seller</a> | <a class=3D"white" href=3D"/Rbuy/rules.asp">Rules</a> | <a class=3D"white" href=3D"/AgentsOnly">Agents Only</a> | <a class=3D"white" href=3D"/rbuy/aboutus.asp">About Us</a> | <a class=3D"white" href=3D"mailto:president@rbuy.com">Feedback</a> <font face=3D"Verdana, Arial, Helvetica, sans-serif" size=3D"1"> </div> </td> </tr> </table> </td> </tr> <tr> <td class=3D"FooterCopyright"> =A9 1999-<%=3DYear(Now)%> 2004 Rbuy, Inc. - All Rights Reserved - Patent Pending <br>Page Last Updated <%=3DgetLastUpdatedDate%> </td> </tr> </table> <%function getLastUpdatedDate set fso =3D CreateObject("Scripting.FileSystemObject") set fil =3D fso.GetFile(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) getLastUpdatedDate =3D DateValue(fil.DateLastModified) =09 end function%> Tag: Convert Binary to String Tag: 197253
  - 21
    - Extract localgroups and members Hi all, I am planning a migration for a couple of servers here. I was using Dumpsec to extract all users and groups and group memberships. I noticed that Dumpsec has a limititation that it can't read all the info required. I migrated a server and did not check the info I had extracted with Dumpsec. it came to my attention that a couple of groups were missing their members (domain groups). Is there a script out the that can help me extract the info from all localgroups and all there members with their domain name into a file? I am a script total newbie... he he Any assitance would be very appreciated. Tag: Convert Binary to String Tag: 197247
  - 22
    - Add a comma to a Display Name Hi, I am using a script to create new users. I would like to be able to create a new user with a comma (,) in the Display Name. Example - "Lname, Fname" I always get an error when trying out different combinations. I am adding the display name using the following line: objUser.Put "displayName", strDisplayName Does anyone know how to do this? Thanks, Ben. Tag: Convert Binary to String Tag: 197245
  - 23
    - Manage DHCP with ASP using alternate credentials Hello, I am trying to remotely administer a DHCP Server using an ASP web page with vbscript. I have found that dhcpobjs.dll implements an object model for that purpose, although the documentation I have found is quite poor. Despite of that, I have found out the way for querying the server and modify reservations... but: I would like to know: 1. How can I use alternate credentials in vbscript code (with dhcpobjs.dll). I have observed that the server uses the credentials of the user who ran Internet Explorer at the client side for authenticating in the DHCP Server (and IIS is configured to use only an anonymous user account). 2. Is there anywhere information about properties, methods and parameters included in the object model of dhcpobjs? (dhcpobjs.chm is quite poor) Thanks! Tag: Convert Binary to String Tag: 197239
  - 24
    - Shell.Application - New to scripting, please help! Hi all. How can I use Shell.Application to perform a specific function whenever "wmplayer.exe" is executed? In particular, I wanted a specific .reg file to be imported into the registry every time " wmplayer.exe" is executed... Cheers, ML, Australia Tag: Convert Binary to String Tag: 197236
  - 25
    - Logon - Map a Drive I know how and where to place a .vbs file that runs when a user logs into the domain, but I'm a little confused on how to write a script that would map a user's drive letter to a shared folder on the server. My example would be that if any domain user logs into the server, I want the script to map their Workstation drive letter M to the server's \\myServer\D\ drive. The script also would test to see if it's already mapped so the script doesn't cause an error. Can someone give me an example of a logon vbs file that would accomplish this? Any code or a good link would be appreciated. Tag: Convert Binary to String Tag: 197232

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

Top

Got it! by PK

PK
Tue Oct 10 12:32:01 CDT 2006

Here is what i did:

PKComputerIP="XXX.XXX.XXX.XXX"
PKBinaryValue=""
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
For PKLoop = lBound(strValue) to uBound(strValue)
PKBinaryValue=PKBinaryValue & strValue(PKLoop)
Next
wscript.echo PKBinaryValue
Next

"PK" wrote:

> 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

Top