|
|
Const FILE_SHARE = 0
Const MAXIMUM_CONNECTIONS = 25
Dim strComputer As String = "."
Dim objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Dim objNewShare = objWMIService.Get("Win32_Share")
Dim errReturn = objNewShare.Create _
("C:\Temp", "Temp", FILE_SHARE, _
MAXIMUM_CONNECTIONS, "MyFolder")
i doubleClick temp folder Remote Computer
return error access denied on file
help me
|
|
|
|
|
You might want to see if that folder actually got shared on the remote machine. Your code does get a return value from the objNewShare.Create method, but it ignores the result. So, you have no way of knowing if the sahre was actually created or not, or why it failed.
Also, your code creates the share, but it never sets up any permissions for any groups or users on that share.
|
|
|
|
|
Hi All,
any one please tell me how to make a VB script as a windows service......urgent....
Thanks,
Vimal
If U Get Errors U Will Learn
If U Don't Get Errors U Have Learnt
|
|
|
|
|
I don't see how that's possible. Why would you want to do that ? Why not write a service in VB.NET instead ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Thanks for ur information... i dont know VB.net
If U Get Errors U Will Learn
If U Don't Get Errors U Have Learnt
|
|
|
|
|
If you have SQL-Server then you could schedule a regular job - which may allow you to achieve a similar effect. This can either run a stored procedure or a WScript VBS script.
|
|
|
|
|
What about VB6 then ?
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hi All,
any one please tell me how to make a VB script as a windows service......urgent....
Thanks,
Vimal
If U Get Errors U Will Learn
If U Don't Get Errors U Have Learnt
|
|
|
|
|
VBScript doesn't have this capability.
|
|
|
|
|
hi
i am having a .resx file with the required string and images for my project
i want to retrive values of strings using stringnames and images from the images name from that resx file .can any one give me a example .
with regards
Balagurunathan.B
|
|
|
|
|
|
hi i tried to go through that link but it wont help in my case
i want to read the string and image contents already stored in the reource file
eg if i am having name value
keyword case,if,else
then i want to read strvariable= resource1.keyword
its possible in c# i want to do it in vb.net pls help
with regards
Balagurunathan.B
|
|
|
|
|
will u send tyhe code C# code
or at
nilishgarg@yahoo.co.in
|
|
|
|
|
i saw that command in this article
http://www.codeproject.com/csharp/shadyrichtext.asp
using System;
using System.Windows.Forms;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Media;
using System.Drawing;
using System.Text;
using System.Text.RegularExpressions;
using System.Runtime.InteropServices;
using System.Resources;
using System.Reflection;
using Microsoft.Win32;
using System.IO;
using System.IO.IsolatedStorage;
using System.Diagnostics;
using System.Runtime.Serialization;
using System.Runtime.Serialization.Formatters.Binary;
namespace RTF_Parsing
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
#region Tables, Lists and Constants
#region Fonts
const string proportionalFontName = "Verdana";
const string monoFontName = "Courier New";
const string proportionalFontDefinition = @"{\f0\fnil\fcharset0 " + proportionalFontName + @";}";
const string monoFontDefinition = @"{\f1\fnil\fcharset0 " + monoFontName + @";}";
const int proportionalFontSize = 8;
const int monoFontSize = 9;
#endregion
#region Color Table
int[] rgbText = { 0, 0, 0 };
int[] rgbCharacter = { 128, 128, 128 };
int[] rgbShade = { 238, 238, 238 };
int[] rgbLiteral = { 144, 0, 16 };
int[] rgbComment = { 32, 128, 0 };
int[] rgbKeyword = { 13, 0, 255 };
int[] rgbClass = { 43, 145, 175 };
// It is useful to set up some aliases ...
public const string TX = @"\cf1 ";
public const string CH = @"\cf2 ";
public const string SH = @"\cf3 ";
public const string LI = @"\cf4 ";
public const string CO = @"\cf5 ";
public const string KY = @"\cf6 ";
public const string CL = @"\cf7 ";
// ... and their escaped versions
public const string escTX = @"\\cf1 ";
public const string escCH = @"\\cf2 ";
public const string escSH = @"\\cf3 ";
public const string escLI = @"\\cf4 ";
public const string escCO = @"\\cf5 ";
public const string escKY = @"\\cf6 ";
public const string escCL = @"\\cf7 ";
string colorDefinitions = "";
#endregion
#region ASCII Values
// Some ASCII constants
const char LF = (char)0x0A; // Line Feed
const char CR = (char)0x0D; // Carriage Return
const char Space = (char)0x20; // Space char
#endregion
#region Main Form Parameters
bool rtfvisible = false;
bool isFirstRun = true;
int maxFormHeight = 712; // Expanded
int minFormHeight = 568; // Not expanded
const int columns = 94; // Shading width
const string upArrow = "r";
const string downArrow = "s";
bool expanded = false;
#endregion
#region isoFiles
IsolatedStorageFile isoStore =
IsolatedStorageFile.GetStore(IsolatedStorageScope.User
| IsolatedStorageScope.Assembly, null, null);
const string isoF = "isolatedFirst.iso";
const string isoS = "isolatedSource.iso"; // Source
const string isoC = "isolatedClassList.iso"; // Class names
#endregion
#region Initialized Lists
string keywordList = "";
string unformattedClassList = "";
string formattedClassList = "";
#endregion
#endregion
// ----------------------------------------------------------------------------------------
// ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD ON LOAD
// ----------------------------------------------------------------------------------------
private void Form1_Load(object sender, EventArgs e)
{
// Startup screen
this.Height = minFormHeight;
btnArrow.Text = downArrow;
// Set Font properties for both Rich Text Boxes
rt1.Font = new Font(proportionalFontName, proportionalFontSize, FontStyle.Regular);
rt2.Font = new Font(monoFontName, monoFontSize, FontStyle.Regular);
rt1.Text = "";
t1.Visible = false; // t1 shows the background RTF encoding
string r = @"\red";
string g = @"\green";
string b = @"\blue";
string tx = r + rgbText[0].ToString() + g + rgbText[1].ToString() + b + rgbText[2].ToString() + ";";
string ch = r + rgbCharacter[0].ToString() + g + rgbCharacter[1].ToString() + b + rgbCharacter[2].ToString() + ";";
string sh = r + rgbShade[0].ToString() + g + rgbShade[1].ToString() + b + rgbShade[2].ToString() + ";";
string li = r + rgbLiteral[0].ToString() + g + rgbLiteral[1].ToString() + b + rgbLiteral[2].ToString() + ";";
string co = r + rgbComment[0].ToString() + g + rgbComment[1].ToString() + b + rgbComment[2].ToString() + ";";
string ky = r + rgbKeyword[0].ToString() + g + rgbKeyword[1].ToString() + b + rgbKeyword[2].ToString() + ";";
string cl = r + rgbClass[0].ToString() + g + rgbClass[1].ToString() + b + rgbClass[2].ToString() + ";";
// These colors will make up a new color table
colorDefinitions = tx + ch + sh + li + co + ky + cl;
// On first run, we will create in isolated storage
// a Class List (isoC) and a source file (isoS). The
// default, first run, source file content is a resource.
![Rose | [Rose]](https://codeproject.freetls.fastly.net/script/Forums/Images/rose.gif) keywordList = Resources1.Keywords;
InitializeDataFiles();
}
resources one is resx file
with regards
Balagurunathan.B
|
|
|
|
|
Ex : in your MyForm application, you have a resources file which has values :
+ A string : MyID = "......."
+ An image : MyImage = "......."
you can try this :
'Declare an instance of resources
Dim MyResource As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(MyForm))
'Get string's value
Dim StrMyID as string = MyResource.GetString("MyID")
'Get image
Dim ImgMyImage as System.Drawing.Image = CType(MyResource.GetObject("MyImage"), System.Drawing.Image)
|
|
|
|
|
hi
thakns a lot for you . i have overcome my problem using your example but wat actually i tried was i added a resx file and tried to acces the resource from that file but failure only. while using form1.resx file i am able to do that.
normally if we add a item like 'form', 'class' etc we can acces like form1.show ,dim a as new class1 but resource1 (my resx file name) is not available in the list why?. do you have any idea .
with regards
Balagurunathan.B
|
|
|
|
|
hi
i stored the required string and its value in my main form form1.resx but it gets deleted whenever i close the dot net editor and reload the project . how i can resolve this
with regards
Balagurunathan.B
|
|
|
|
|
Hi ,
Im trying to transform an xml document with a style sheet that includes a vbscript file with vb script functions, using .net 1.1 and vb.net i get the following error when the code block attempts to transform the xml file.
The scripting language 'vbscript' is not supported.
Ive googled with very little help can someone please offer me a solution or advice !!
From my understanding this is .net security kicking in by not allowing server side scripts being included which may contain bad code nice but in this case its not helping me, in this case my intentions are good so i need this script to be trusted
Thank you in advance. 
|
|
|
|
|
What is the code u r writing?
|
|
|
|
|
Hi,
Here is my code
Public Function TransformXml(ByVal InputXml As String, ByVal XSLPath As String) As String
Dim szResult As String = String.Empty
Dim objxml As New XmlDocument
Dim objxslt As New XslTransform
Dim writer As New StringWriter
Dim xmlreader = New XmlTextReader(XSLPath)
' Create a resolver with default credentials.
Dim resolver As XmlUrlResolver = New XmlUrlResolver
resolver.Credentials = System.Net.CredentialCache.DefaultCredentials
Try
objxml.LoadXml(InputXml)
objxslt.Load(xmlreader, resolver)
objxslt.Transform(objxml, Nothing, writer, Nothing)
szResult = writer.ToString()
writer.Close()
Catch ex As Exception
Throw (ex)
End Try
Return (szResult)
End Function
|
|
|
|
|
My project uses vb.net/SQL server. Have implemented Webservices also.After publishing the Webservices, when i Update the web referrences that added in my project, I get the following error message
"An error occurred while parsing EntityName.Line 4,position 33".
When this happnes, then i will not be able to update .SO i delete the referrence and i add again. After that I just rebuild my project and it works fine.But every time i have to repeat the same thing(deleting and then adding the web referrences), when i publish my webservices.
Please help me to solve this issue.
Lakshmi
|
|
|
|
|
Hi!
I am doing a powerpoint automation via vb.net
A list of records in a grid (from sql server) is rendered into a 2 slided ppt template. each row represents 2 standard slides. The automation is quite slow if there are about 40-50rows in a grid as the final ppt will be 80-100 slides.
i automate the ppt on its minimized state. somewhere in a article i saw if i set its state to invisible it could be faster by 15% but when i set its property to invisible i get an error saying it cant be invisible. could someone give me an idea how could i get this automation more faster. currently if there are 30rows it takes about 1hr to render all those in powerpoint. I really need to speed up this process.
any help or idea on how to achieve this will be really great.
thanks in forward
|
|
|
|
|
does any one have any idea what i am talking about or they are just turning deaf to me? 
|
|
|
|
|
how to integerate the .net framework into the setup project .every time i ma getting the same problem.
u need to install the .net framework 2.0.50525 to continue the setup.
curently i am including the
installer-6171-19-Microsoft-NET-Framework-2-0-50727-English.exe
is a 2.0.50525 .net framework
dotnetfx.exe
is 2.0 .net framework
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
