How to develop your own VMWare application in C#

First, download and install "Visual Studio Express 2008" (http://www.microsoft.com/express/Downloads/)
Then download and install "VMware vSphere Web Services SDK" (http://www.vmware.com/download/sdk/)

In file Build2008.cmd (from your "VMware vSphere Web Services SDK directory\samples\DotNet" directory) if you installed your VS2008 Express in an other directory than default directory modify line
set VSINSTALLDIR="C:\Program Files\Microsoft Visual Studio 9.0"

Run a command line prompt.

Verify in command line prompt you can run
- WSDL.exe (by default at C:\Program Files\Microsoft SDKs\Windows\v6.0A\bin)
- csc.Exe (by default at C:\WINDOWS\Microsoft.NET\Framework\v3.5)
- VCSExpress.exe (by default at C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE)

Else add path of these programs with something like this in command line before running Build2008.cmd:
Set path=%path%;C:\Program Files\Microsoft SDKs\Windows\v6.0A\bin;C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE

In command line prompt do not forget to run this line too:
set WSDLFILE=your VMware vSphere Web Services SDK directory\wsdl

Then run Build2008.cmd
You should have all your .dll libraries created.

Run in your VMware vSphere Web Services SDK directory\samples\DotNet\cs\SimpleClient\bin\Debug this line to verify all is ok:
SimpleClient.exe https://yourvc/sdk yourvcuser yourvcpassword

Now, if you need to create your own application, just add line
using Vim25Api;
and in your project "add reference" tab browse
"Vim25Service2008.dll" and "Vim25Service2008.XmlSerializers.dll"

Use examples in your vSphere Web Services SDK\directory\samples\DotNet\cs for helping you to create your 1st C# vmware application

How to create multiple local account with all options and group add

A VBscript create today for technical support need. (Download it here)
For use it run
cscript createLocalUser.vbs /input:users.txt

Create a file users.txt with this format
user;password;fullname;description;options;groupstoadd

For options field, you can use these next options: (with | between each option if you need to add options)
ADS_UF_SCRIPT : The logon script is executed
ADS_UF_ACCOUNTDISABLE : The user account is disabled.
ADS_UF_HOMEDIR_REQUIRED : The home directory is required
ADS_UF_LOCKOUT : The account is currently locked out.
ADS_UF_PASSWD_NOTREQD : No password is required.
ADS_UF_PASSWD_CANT_CHANGE : The user cannot change the password
ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED : The user can send an encrypted password.
ADS_UF_DONT_EXPIRE_PASSWD : When set, the password will not expire on this account
ADS_UF_SMARTCARD_REQUIRED : When set, this flag will force the user to log on using a smart card.
ADS_UF_PASSWORD_EXPIRED : The user password has expired.

USER_MUST_CHANGE_PWD :For this script only, for "User Must Change Password at Next Logon"

For group field, add | between each group if you need to add multiple groups

For example:

user;Passw0rd;fullname;description;USER_MUST_CHANGE_PWD;Administrators|Power Users
user2;Passw0rd;fullname;description;USER_MUST_CHANGE_PWD|ADS_UF_ACCOUNTDISABLE;groups

'
' Create Local User
'
' F.RICHARD
' 2010 November
'
'
Option Explicit

' OpenTextFile Const
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8


' Detect WScript or CScript
'
If InStr(LCase(WScript.FullName), "wscript")>0 Then  ' ex: FullName = C:\WINNT\system32\wscript.exe 
 WScript.Echo "This script must be run under CScript."
 WScript.Quit
End If


' Get Path
'
Dim strScriptFullName, strScriptPath, strScriptName
strScriptName = WScript.ScriptName
strScriptFullName = WScript.ScriptFullName ' ex: C:\Program Files\MyFolder\MyProg.exe
strScriptPath = Left(strScriptFullName, InStrRev(strScriptFullName, "\") - 1) ' ex: C:\Program Files\MyFolder


' Check for required arguments.
If (Wscript.Arguments.Count < 1 or WScript.Arguments.Named.Exists("?")) Then 
 Call Help(strScriptName)
End If

' input parameter
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objInputFile, strInputFile
If WScript.Arguments.Named.Exists("input") Then
 strInputFile = WScript.Arguments.Named("input")

 If Not isFileExist(strInputFile) Then
  If Not isFileExist(strScriptPath & "\" & strInputFile) Then
   WScript.Echo strInputFile & " File Not Exist !"
   WScript.Echo strScriptPath & "\" & strInputFile & " File Not Exist !"
   WScript.Quit
  End If
  strInputFile = strScriptPath & "\" & strInputFile
 End If    
 Set objInputFile = objFso.OpenTextFile(strInputFile, ForReading) 
Else
 WScript.Echo "You must defined an argument /input ex: /input:input.txt !"
 WScript.Quit

End If

' List userFlag Values for a Local User Account
' http://gallery.technet.microsoft.com/ScriptCenter/en-us/ab4d85d6-ca38-44da-8fc2-984d70ea5f36?persist=True
Dim dicUAC
Set dicUAC = CreateObject("Scripting.Dictionary")
dicUAC.Add "ADS_UF_SCRIPT", &H0001    ' The logon script is executed
dicUAC.Add "ADS_UF_ACCOUNTDISABLE" , &H0002   ' The user account is disabled.
dicUAC.Add "ADS_UF_HOMEDIR_REQUIRED" , &H0008   ' The home directory is required
dicUAC.Add "ADS_UF_LOCKOUT" , &H0010    ' The account is currently locked out.
dicUAC.Add "ADS_UF_PASSWD_NOTREQD" , &H0020   ' No password is required.
dicUAC.Add "ADS_UF_PASSWD_CANT_CHANGE" , &H0040   ' The user cannot change the password
dicUAC.Add "ADS_UF_ENCRYPTED_TEXT_PASSWORD_ALLOWED" , &H0080 ' The user can send an encrypted password.
dicUAC.Add "ADS_UF_DONT_EXPIRE_PASSWD" , &H10000  ' When set, the password will not expire on this account
dicUAC.Add "ADS_UF_SMARTCARD_REQUIRED" , &H40000  ' When set, this flag will force the user to log on using a smart card.
dicUAC.Add "ADS_UF_PASSWORD_EXPIRED" , &H800000   ' The user password has expired.

dicUAC.Add "USER_MUST_CHANGE_PWD" ,  &H0000   ' For this script only, for "User Must Change Password at Next Logon" 


' Computer
Dim objWshNetwork, strComputername, objComputer
Set objWshNetwork = CreateObject("WScript.Network" ) 
strComputername = objWshNetwork.ComputerName 
Set objComputer = GetObject("WinNT://" & strComputername) 


Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell") 

Dim strCommandLine, strLine, arrLine, objFolder, colSubfolders, strFolderName, return
Dim strSource, objWMIServiceSrc, strComputerSrc, strPathSrc, strDestination, strLogFile
Do While objInputFile.AtEndOfStream <> True 
 strLine = Trim(objInputFile.Readline)
 If (Len(strLine)>1) Then
  return = CreateLocalUser(strLine, strComputername, objComputer, dicUAC)
 End If
Loop 

objInputFile.Close 

'--------------------


' Help
'
' Help File
'

Sub Help(ByRef strScriptName)
 WScript.Echo strScriptName & " Arguments" & vbCrLf _ 
  & vbTab & "/input:""file name""" & vbCrLf _
  & vbTab & "/? or nothing for this" & vbCrLf _
      & vbCrLf & "Example:" & vbCrLf _
      & "cscript " & strScriptName & " /input:""c:\input.txt"" " & vbCrLf
 WScript.Quit(0)
End Sub


'--------------------

' isFileExist
'
' Test if File Exist
'
Function IsFileExist(ByRef strInputFile)
 Dim iReturn
 iReturn = False

 Dim objFSO
 On Error Resume Next
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 If objFSO.FileExists(strInputFile) Then
  iReturn = True 
 End If
 Set objFSO = Nothing
 On Error Goto 0

 IsFileExist = iReturn
End Function

'--------------------

' CreateLocalUser
'
' Create a local user
'
Function CreateLocalUser(ByRef strLine, ByRef strComputername, ByRef objComputer, ByRef dicUAC)
 'line =
 'Username;Password;FullName;Description;option1|option2|option3;group|group2
 Dim arrLine, strUser, strPassword, strFullName, strDescription
 Dim strGroupsToAdd, strOptions, strOption, arrOptions, funcReturn, UACFlags, errorMsg, return
 funcReturn = False
 arrLine = Split(strLine, ";")
 If (UBound(arrLine) = 5) Then
  strUser = arrLine(0)   ' Username
  strPassword = arrLine(1) ' Password
  strFullName = arrLine(2) ' Full Name
  strDescription = arrLine(3) ' Description
  strOptions = arrLine(4)  ' option1|option2|option3
  strGroupsToAdd = arrLine(5) ' group|group2


  ' Create Local User
  WScript.Echo "Create user:" & strUser
  Dim objUser
  Set objUser = objComputer.Create("user", strUser) 

  ' Set Password
  objUser.SetPassword strPassword 

  ' Save user information
  On Error Resume Next 
  objUser.Setinfo 
  If Err.Number = 0 Then  ' password restrictions or any other problems
   On Error Goto 0 
   ' FullName / Description
   objUser.Fullname = strFullName 
   objUser.Description = strDescription
   objUser.Setinfo 

   ' Get User Object
   Dim strObjPath
   strObjPath = "WinNT://" & strComputername & "/" & strUser
   Set objUser = GetObject(strObjPath)
   UACFlags = objUser.Get("UserFlags")

   arrOptions = Split(strOptions, "|") 
   For Each strOption in arrOptions
    ' Enable "User Must Change Password at Next Logon" 
    If (UCase(Trim(strOption)) = "USER_MUST_CHANGE_PWD") Then
     objUser.Put "PasswordExpired", 1 
     objUser.SetInfo
    Else
     If (dicUAC.Exists(UCase(Trim(strOption)))) Then
      UACFlags = UACFlags OR dicUAC.Item(UCase(Trim(strOption)))
     End If
    End If
   Next

   objUser.Put "userFlags", UACFlags 
   objUser.SetInfo
   funcReturn = True
  Else
          Select Case (Err.Number)
           Case &H80070056
            errorMsg = "The specified password for " & strUser & " is not correct."
           Case &H800708C5                
            errorMsg = "The specified password does not meet policy requirements"
    Case &H800708B0
            errorMsg = "The user " & strUser & " already exists."
           Case &H80070035
            errorMsg = "Object path " & strObjPath & " not found"
           Case Else                
            errorMsg = "Unexpected error"
          End Select
   WScript.Echo "ERROR creating user:" & strUser & " ERROR:" & errorMsg & " Error number:" & Err.Number & " (&H" & Hex(Err.Number) & ") Description:" & Err.Description & " Source:" & Err.Source 
  End If

  Dim arrGroups, strGroup
  arrGroups = Split(strGroupsToAdd, "|") 
  For Each strGroup in arrGroups
   return = AddGroupToUser(strComputername, strUser, strGroup)
  Next

 Else
  WScript.Echo "Error In line:" & strLine
 End If
 
 CreateLocalUser = funcReturn
End Function


'--------------------

' AddGroupToUser
'
' Add Group To User
'
Function AddGroupToUser(ByRef strComputername, ByRef strUser, ByRef strGroup)
 ' Get Group Object
 Dim strObjGrpPath, objGroup, strObjUsrPath, objUser, funcReturn
 Dim errorMsg
 funcReturn = False
 
 On Error Resume Next 
 strObjGrpPath = "WinNT://" & strComputername & "/" & strGroup & ",group"
 Set objGroup = GetObject(strObjGrpPath)
 If Err.Number = 0 Then  ' group unknown or any other problems
  strObjUsrPath = "WinNT://" & strComputername & "/" & strUser
  Set objUser = GetObject(strObjUsrPath)
  If Err.Number = 0 Then  ' password restrictions or any other problems
   objGroup.Add(objUser.ADsPath) ' Add group to user
   If Err.Number = 0 Then  
    funcReturn = True
   Else
    Select Case (Err.Number)
     Case &H80070562 
      errorMsg = "The specified account name " & strUser & " is already a member of the local group " &  strGroup
     Case Else                
      errorMsg = "Unexpected error"
    End Select
    WScript.Echo "ERROR (3) adding group to user:" & strUser & " ERROR:" & errorMsg & " Error number:" & Err.Number & " (&H" & Hex(Err.Number) & ") Description:" & Err.Description & " Source:" & Err.Source 

   End If
  Else
   Select Case (Err.Number)
    Case Else                
     errorMsg = "Unexpected error"
   End Select
          WScript.Echo "ERROR (2) adding group to user:" & strUser & " ERROR:" & errorMsg & " Error number:" & Err.Number & " (&H" & Hex(Err.Number) & ") Description:" & Err.Description & " Source:" & Err.Source 
  
  End If

 Else
  Select Case (Err.Number)
   Case &H800708AC
    errorMsg = "The specified local group " & strGroup & " not found"
   Case &H80070560
    errorMsg = "The specified local group " & strGroup & " does not exist. "
   Case Else                
    errorMsg = "Unexpected error"
  End Select
         WScript.Echo "ERROR (1) adding group to user:" & strUser & " ERROR:" & errorMsg & " Error number:" & Err.Number & " (&H" & Hex(Err.Number) & ") Description:" & Err.Description & " Source:" & Err.Source 

 End If

 On Error Goto 0 
 AddGroupToUser = funcReturn
End Function

Cannot copy filename Invalid MS-DOS function error

An error "Cannot copy xxxxxx Invalid MS-DOS function" can appear when you copy big files from a server to an other. For your information, that could be because network administrators have decided to drop connection for large file, after 1gb or 2gb for example.

Cannot copy xxxxxx Invalid MS-DOS function

Extend Windows system volume disk easily

A great tool from Dell which permit on Windows XP, 2000 & 2003 to extend system volume:
Dell Extpart (Alternative Download)

Work on physical and virtual disk.