VB script to create windows share and mapped drive

[sentinelace]

I have a script that works perfect for mapping a drive X: to a share that is always created. I want to use %computername% but it won't accept it. My goal is to have a logon script and I am mapping back to the local computer. So I want to create a share %computername%\%temp% and then map x: to that share. Here is what I have so far that works if I hard code a windows box name in. I need help getting the code for the creation of the share as well.

'========================================================================== 

' NAME: NetworkMap.vbs 

' 

' AUTHOR: Jason Poth

' DATE  : 1/27/2012

' 

' COMMENT:  

' This script maps X drive to "\\Server\Share" and then launch Program
'========================================================================== 

Dim objFSO, objNetwork, WshShell 

  

Set WshShell = WScript.CreateObject("WScript.Shell") 

set objFSO = CreateObject("Scripting.FileSystemObject") 

Set objNetwork = CreateObject("WScript.Network") 

  

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

'If the "x" drive is already mapped, disconnect the mapping 

  

If (objFSO.DriveExists("x:")) Then 

objNetwork.RemoveNetworkDrive "x:", True, True 

End If 

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

objNetwork.MapNetworkDrive "x:" , "\\win7dev\temp" 

  

If Err.Number<>0 Then     

MsgBox "Error in mapping drive!!!!" 

MsgBox "Error #" & Err.Number & " " & Err.Description 

End If 

  

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

'Execute Program

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

WshShell.Run "P:\program.exe%" 

  

If Err.Number<>0 Then     

MsgBox "Unable to launch  program !" 

MsgBox "Error #" & Err.Number & " " & Err.Source & " " & Err.Description 

End If 

  

set WshShell = Nothing

[sentinelace]

bump. Anyone?

[jdc2000]

Post the code lines you want to use that don't work. Have you checked to see what the contents of the %computername% environment variable are?

[sentinelace]

I found a script in powershell that does the job but then wscript can't call a ps1 file which I need it to do. The script above works as for mapping a drive and calling the program, but I need it to create a share in %username%\temp and then map the x: drive based off that share. My script above will map x: if I hard code the share path. I need to use a variable.