Problem WMI script

Hi! I have a problem on the line 59 of the code , I try whit this two option unsuccessfully :
'Tamaño' = $disco.size / 1gb -as [Long];
'Tamaño' = $disco.size / 1gb -as [int];
the size of the disk in byte is 227477024768 more than a int supports
thanks !!!!
http://poshcode.com/paste/951/

One thing that may be biting you here is that $disco will be an array, if you have multiple fixed disks on the computer. You're treating it as though it's a single object in your code. The same is true of Win32_Processor and Win32_NetworkAdapterConfiguration.
You'll probably need to adjust your output object's structure (and the code that creates it) so that you can properly support multiple results for these classes. For example:
$pc = [ordered] @{
'Discos' = @(
$disco | Select-Object -Property @(
@{Name = 'Etiqueta Disco'; Expression = { $_.DeviceID } }
@{Name = 'Tamaño'; Expression = { $_.Size / 1GB } }
GREAT!!! it's true ... I had not seen! thank you!!!!

Similar Messages

WMI Scripts not Running Across VPN

Hi
I have a strange problem where i have 2 sites connected using a VPN on 2 CISCO877. But WMI scripts are not running across the link. if i pull these out an replace them with a Draytek, the scripts run fine.
Broad Lane LAN ----- Cisco 877 ========= Internet & VPN Tunnel ============== Cisco 877 ---- Southam LAN1.0.39.0/8 1.0.39.253 192.168.55.1 192.168.55.0/24 The server at Broad Lane is GIMILI (1.0.39.109) and at Southam is FRODO (192.168.55.4). The following will not work through the tunnel from Broad Lane LAN. Set objWMIService = GetObject("winmgmts:\\192.168.55.4\root\cimv2") if err.number=0 then serverexist=true else serverexist=falsemsgbox(server.exist)
Is is possible for the CISCO877 to block WMI traffic?
Any suggestions please?
Rgds
Phil

Phil,
Thank you for your question. This community is for Cisco Small Business products and your question is in reference to a Cisco Elite/Classic product. Please post your question in the Cisco NetPro forums located here: http://forums.cisco.com/eforum/servlet/NetProf?page=main This forum has subject matter experts on Cisco Elite/Classic products that may be able to answer your question.
Bill

Problem in script format

hi,
i am having problem in script , the problem is
s.no|    descriptio                           |   UOM                      |          Qty                   |             Rate           |          AMT            |
01     aaaaaaaaaaaaaaaaaaaaa       11.01                             17.28                     170000000               2400000
this is fine but when the 1st column is shot other also get affected.
s.no|    descriptio                           |   UOM                      |          Qty                   |             Rate           |          AMT            |
01     aa       11.01                             17.28                     170000000               2400000
and i cannot draw vertical line here .what is the solution for this.
Edited by: jaihind on Mar 6, 2010 12:21 PM
hi,
problem is if the description field is long then other coloum are comming fine but if description caloumn is small then other also get affected and its comes towards left .
Edited by: jaihind on Mar 6, 2010 12:22 PM

Hi
For this u can resolve by using the Formatting characters ......
This is your layout ..
s.no| descriptio | UOM | Qty | Rate | AMT |
01 aaaaaaaaaaaaaaaaaaaaa 11.01 17.28 170000000 2400000
Assume that   your field names like
s.no      | description |    UOM      |    Qty      |      Rate      |         AMT       |
&sno&      &desc&         &UOM&       &Qty&         &rate&         &AMT&
asseme that length of these fields(in characters) as per your requirement will be ...
s.no      | description |    UOM      |    Qty      |      Rate      |         AMT       |
8                  15                  5                8                 10                  15
For these use formatting characters    like   ...
              s.no      | description      |    UOM      |    Qty      |      Rate      |         AMT       |
1stLine &sno& ,, &desc+0(15)&,, &UOM&       &Qty&        &rate&         &AMT&
2ndline                 &desc+15(15)&
&desc+0(15)& - it will print first 15 characters from 0th position
&desc+15(15)&- From 15th position it will print 15 characters ..
Hope you resolve your issue
Let me know if Any concerns,.......

M58 BIOS WMI script not working

Hoping some BIOS gurus might be able to help me out here - I have many m58 machines that need to turn on at midnight every night for updating. I'm trying to remotely remotely enable the "Wake Up on Alarm" function in the BIOS and set it to "Daily Event". I downloaded the m58 WMI scripts from Lenovo, but can't seem to get anything working. From the command line, I'm trying:
C:\cscript.exe SetConfigRemote.vbs "Wake Up on Alarm" Daily Event computername
output: SetConfigRemote.vbs [setting] [value] [hostname]
I've tried putting the setting, value and hostname all in quotes, none in quotes, etc - but then I get invalid parameter errors.
Any ideas?
Thanks,
Dave

Your post confuses me because the title is about M58 but your text is about X230. So which system are you working with?
ThinkPad and ThinkCentre use different scripts/values. X230 info is here: http://support.lenovo.com/en_US/detail.page?LegacyDocID=MIGR-68488
As for your specific example about using setconfig.vbs, it is entered wrong. The item is "WakeOnLAN" and not "WakeOnLan". it is case-sensitive.

WMI Script resume a suspended messag

Hi All,
Can anyone help me with a WMI script to resume a suspended message (resumable) for a messaging instance of a particular receive port.

Hi,
You could use the following code from MSDN Resuming Suspended Service Instances of a Specific Orchestration Using WMI:
using System.Management;
 public
void ResumeSvcInstByOrchestrationName(string strOrchestrationName)
try
const uint SERVICE_CLASS_ORCHESTRATION = 1;
const uint SERVICE_STATUS_SUSPENDED_RESUMABLE = 4;
const uint REGULAR_RESUME_MODE = 1;
// Query for suspended (resumable) service instances of the specified orchestration
// Suggestion: Similar queries can be written for Suspend/Terminate operations by using different ServiceStatus value. See MOF definition for details.
string strWQL = string.Format(
"SELECT * FROM MSBTS_ServiceInstance WHERE ServiceClass = {0} AND ServiceStatus = {1} AND ServiceName = \"{2}\"",
 SERVICE_CLASS_ORCHESTRATION.ToString(), SERVICE_STATUS_SUSPENDED_RESUMABLE.ToString(), strOrchestrationName);
 ManagementObjectSearcher searcherServiceInstance =
new ManagementObjectSearcher (new ManagementScope ("root\\MicrosoftBizTalkServer"),
new WqlObjectQuery(strWQL),
null);
int nNumSvcInstFound = searcherServiceInstance.Get().Count;
// If we found any
if ( nNumSvcInstFound > 0 )
// Construct ID arrays to be passed into ResumeServiceInstancesByID() method
string[] InstIdList = new
string[nNumSvcInstFound];
string[] ClassIdList = new
string[nNumSvcInstFound];
string[] TypeIdList = new
string[nNumSvcInstFound];
string strHost = string.Empty;
string strReport = string.Empty;
int i = 0;
foreach ( ManagementObject objServiceInstance
in searcherServiceInstance.Get() )
// It is safe to assume that all service instances belong to a single Host.
if ( strHost == string.Empty )
 strHost = objServiceInstance["HostName"].ToString();
 ClassIdList[i] = objServiceInstance["ServiceClassId"].ToString();
 TypeIdList[i] = objServiceInstance["ServiceTypeId"].ToString();
 InstIdList[i] = objServiceInstance["InstanceID"].ToString();
 strReport +=
string.Format(" {0}\n", objServiceInstance["InstanceID"].ToString());
 i++;
// Load the MSBTS_HostQueue with Host name and invoke the "ResumeServiceInstancesByID" method
string strHostQueueFullPath =
string.Format("root\\MicrosoftBizTalkServer:MSBTS_HostQueue.HostName=\"{0}\"", strHost);
 ManagementObject objHostQueue =
new ManagementObject(strHostQueueFullPath);
// Note: The ResumeServiceInstanceByID() method processes at most 2047 service instances with each call.
// If you are dealing with larger number of service instances, this script needs to be modified to break down the
// service instances into multiple batches.
 objHostQueue.InvokeMethod("ResumeServiceInstancesByID",
new object[] {ClassIdList, TypeIdList, InstIdList, REGULAR_RESUME_MODE}
 Console.WriteLine(
string.Format("Service instances with the following service instance IDs have been resumed:\n{0}", strReport) );
else
 System.Console.WriteLine(string.Format("There is no suspended
(resumable) service instance found for orchestration '{0}'.", strOrchestrationName));
catch(Exception excep)
 Console.WriteLine("Error: " + excep.Message);
[VBScript]
' wbemChangeFlagEnum Setting
const REGULAR_RESUME_MODE = 1
'Module to Resume service instances
Sub ResumeServiceInstance(strOrchestrationName)
 Dim objLocator : Set objLocator = CreateObject("WbemScripting.SWbemLocator")
 Dim objServices : Set objServices = objLocator.ConnectServer(,
"root/MicrosoftBizTalkServer")
 Dim strQueryString
 Dim objQueue
 Dim svcInsts
 Dim count
 Dim inst
 '=============================
 ' Resume service instances
 '=============================
 wscript.Echo "Bulk Resuming service instances - "
 Wscript.Echo ""
 On Error Resume Next
 ' Query for suspended (resumable) service instances of the specified orchestration
 ' Suggestion: Similar queries can be written
for Suspend/Terminate operations by using different ServiceStatus value. See MOF definition
for details.
 set svcInsts = objServices.ExecQuery("Select * from MSBTS_ServiceInstance where ServiceClass = 1 AND ServiceStatus = 4 AND ServiceName = """
& strOrchestrationName & """")
 count = svcInsts.count
 If ( count > 0 ) Then
 Dim strHostName
 Dim aryClassIDs()
 Dim aryTypeIDs()
 Dim aryInstanceIDs()
 redim aryClassIDs(count-1)
 redim aryTypeIDs(count-1)
 redim aryInstanceIDs(count-1)
 ' Enumerate the ServiceInstance classes to construct ID arrays to be passed into ResumeServiceInstancesByID() method
 Dim i : i= 0
 For each inst in svcInsts
 strHostName = inst.Properties_("HostName")
 aryClassIDs(i) = inst.Properties_("ServiceClassId")
 aryTypeIDs(i) = inst.Properties_("ServiceTypeId")
 aryInstanceIDs(i) = inst.Properties_("InstanceId")
 i = i + 1
 Next
 wscript.Echo "Total instances found during enumeration: " & i
 wscript.Echo " "
 'Get the HostQueue instance
 strQueryString = "MSBTS_HostQueue.HostName=""" & strHostName &
 set objQueue = objServices.Get(strQueryString)
 CheckWMIError
 'Execute the Resume method of the HostQueue instance
 ' Note: The ResumeServiceInstanceByID() method processes at most 2047 service instances with each call.
 ' If you are dealing with larger number of service instances,
this script needs to be modified to
break down the
 ' service instances into multiple batches.
 objQueue.ResumeServiceInstancesByID aryClassIDs, aryTypeIDs, aryInstanceIDs, REGULAR_RESUME_MODE
 CheckWMIError
 Wscript.Echo ""
 wscript.Echo "Instances resumed - " & i &
 Else
 wscript.echo "There is no suspended (resumable) service instance found for orchestration '" & strOrchestrationName &
 End If
 Set objLocator = Nothing
 Set objServices = Nothing
 Set objQueue = Nothing
 On Error Goto 0
End Sub
'This subroutine deals with all errors using the WbemScripting object. Error descriptions
'are returned to the user by printing to the console.
Sub CheckWMIError()
 If Err <> 0 Then
 On Error Resume Next
 Dim strErrDesc: strErrDesc = Err.Description
 Dim ErrNum: ErrNum = Err.Number
 Dim WMIError : Set WMIError = CreateObject("WbemScripting.SwbemLastError")
 If ( TypeName(WMIError) =
"Empty" ) Then
 wscript.echo strErrDesc &
" (HRESULT: " & Hex(ErrNum) &
 Else
 wscript.echo WMIError.Description &
"(HRESULT: " & Hex(ErrNum) &
 Set WMIError = nothing
 End If
 wscript.quit 0
 End If
End Sub
HTH
Steef-Jan Wiggers
Ordina ICT B.V. | MVP & MCTS BizTalk Server 2010
http://soa-thoughts.blogspot.com/
| @SteefJan
If this answers your question please mark it accordingly
BizTalk

Priniting problem in script

Hi friends,
i am facing a problem in script. i have developed the form
and it is working fine .in print preview every thing seems to be ok.
when we try to take a print the right side characters are cutting down by 2
characters every time.
i have moved the content to left but the result is the same.
can any one tell me how to solve the issue.
Regards,
Srinivas

Hi,
Try to check the lenght of the field/var that you are printing.
change the alignment doesnt solve the problem.
Check in your code what is the lenght and if is the same in your form.
Sample:
&j_1bprnfli-cfop(4C)&
prints only 4 digits of the variable j_1bprnfli-cfop.
Regards.
Rodrigo Paisante

Problem in script printing

Hi Guru's
I have a problem in script printing.
The quantity and netprice are printing incorrectly. i.e., quantity should print as 1.000 where as it is printing as 1,000 and net price is printing as 5,30 instead of 5.30.
I have checked in the owndata settings it is like 1,234,56.00.
I would like to know whether any settings will be there or i need to do any modificatione
Waiting for you reply.

Hi!
Here you can find the SAPScript formatting options.
http://help.sap.com/saphelp_47x200/helpdata/en/d1/803411454211d189710000e8322d00/content.htm
If it is not good for you, you might code it in your printer program and put it into a character variable.
Regards
Tamá

Lately and i dont know why i see a pop up about a problem with script. can some1 help me?

there is a pop up about a problem with script. it ask me end and contuniue the script. i didnt have that problem before. plz help me it gets really irritating. it asks a lot

This issue can be caused by an extension that isn't working properly.
Start Firefox in [[Safe Mode]] to check if one of the extensions or if hardware acceleration is causing the problem (switch to the DEFAULT theme: Firefox (Tools) > Add-ons > Appearance/Themes).
*Don't make any changes on the Safe mode start window.
*https://support.mozilla.com/kb/Safe+Mode

Having multiple problems with script - NTFS Permissions and AD Groups

Hi, all! I'm having multiple problems with my first script I've written with Powershell. The script below does the following:
1. Prompts the user for a corporate division under which a shared folder will be created, and adjusts variables accordingly.
2. Prompts if the folder will be a global folder or an office/location-specific folder, and makes appropriate adjustments to variables.
3. If a global folder, prompts for the name. If an office/location-specific folder, prompts for each component of the street address, city and state and an optional modifier. I've prompted for this information in this way because the information
is used differently later on in the script.
4. Verifies the entered information and requests confirmation to proceed.
5. Creates the folder.
6. Creates an AD OU and/or security group(s).
7. Applies appropriate security groups to the new folder and removes undesired permissions.
Import-Module ActiveDirectory
$Division = ""
$DivAbbr = ""
$OU = ""
$OUDrive = "AD:\"
$FolderName = ""
$OUName = ""
$GroupName = ""
$OURoot = "ou=DFS Restructure Testing OU,ou=Pennsylvania Camp Hill 4410 Industrial Park Rd,ou=Locations,ou=Camp Hill,dc=jacobsonco,DC=com"
$FSRoot = "E:\"
$FolderPath = ""
$DefaultFolders = "Archive","Customer Service","Equipment","Inbounds","Management","Outbounds","Processes","Projects","Quality","Reports","Returns","Safety","Schedules","Time Keeping","Training"
[bool]$Location = 0
do {
$userInput = Read-Host "Enter CLS Division: (W)arehousing, (S)taffing, or (P)ackaging"
Switch ($userInput)
W {$Division = "Warehousing"; $DivAbbr = "WHSE"; $OU = "ou=Warehousing,"; break}
S {"Staffing is not yet implemented."; break}
P {"Packaging is not yet implemented."; break}
default {"Invalid choice. Please re-enter."; break}
while ($DivAbbr -eq "")
write-host ""
write-host ($Division + " was selected.")
$FolderPath = $Division + "\"
write-host ""
$choice = ""
do {
$choice = Read-Host "Will this be a (G)lobal folder or (L)ocation folder?"
Switch ($choice)
G {$Location = $false; break}
L {$Location = $true; $FolderPath = $FolderPath + "Locations\"; $OU = "ou=Locations," + $OU; break}
default {"Invalid choice. Please re-enter."; $choice = ""; break}
while ($choice -eq "")
write-host ""
write-host ("Location is set to: " + $Location)
write-host ""
if ($Location -eq $false) {
$FolderName = Read-Host "Please enter folder name:"
$GroupName = $DivAbbr + " " + $FolderName
} else {
$input = Read-Host "Please enter two-letter state abbreviation:"
$FolderName = $FolderName + $input + " "
$input = Read-Host "Please enter city:"
$FolderName = $FolderName + $input + " "
$input = Read-Host "Please enter street address number only:"
$FolderName = $FolderName + $input
$GroupName = $DivAbbr + " " + $FolderName
$FolderName = $FolderName + " "
$input = Read-Host "Please enter street name:"
$FolderName = $FolderName + $input
$input = Read-Host "Please enter any optional information to appear in folder name:"
if ($input -ne "") {
$FolderName = $FolderName + " " + $input
$OUName = $FolderName
write-host
write-host "Path for folder: "$FSRoot$FolderPath$FolderName
write-host "AD Path: "$OUDrive$OU$OURoot
write-host "New OU Name: "$OUName
write-host -NoNewLine "New Security Group names: "$GroupName
if ($Location -eq $true) { write-host " and "$GroupName" MGMT" }
write-host
$input = Read-Host "Please confirm creation of new site/folder: (Y/N) "
if ($input -ne "Y") { Exit }
write-host
write-host -NoNewLine "Folder exists: "; Test-Path ($FSRoot + $FolderPath + $FolderName)
if (Test-Path ($FSRoot + $FolderPath + $FolderName)) {
Write-Host "Folder already exists! Skipping folder creation..."
} else {
write-host "Folder does not exist. Creating..."
new-item -path ($FSRoot + $FolderPath) -name $FolderName -itemtype directory
Set-Location ($FSRoot + $FolderPath + $FolderName)
if ($Location -eq $true) {
$tempOUName = "ou=" + $OUName + ","
write-host
write-host $OUDrive$tempOUName$OU$OURoot
write-host
write-host -NoNewLine "OU exists: "; Test-Path ($OUDrive + $tempOUName + $OU + $OURoot)
if (Test-Path ($OUDrive + $tempOUName + $OU + $OURoot)) {
Write-Host "OU already exists! Skipping OU creation..."
} else {
write-host "OU does not exist. Creating..."
New-ADOrganizationalUnit -Name $OUName -Path ($OU + $OURoot) -ProtectedFromAccidentalDeletion $false
$GroupNameMGMT = $GroupName + " MGMT"
if (!(Test-Path ($OUDrive + "CN=" + $GroupName + "," + $tempOUName + $OU + $OURoot))) { write-host "Normal user group does not exist. Creating..."; New-ADGroup -Name $GroupName -GroupCategory Security -GroupScope Global -Path ("OU=" + $OUName + "," + $OU + $OURoot)}
if (!(Test-Path ($OUDrive + "CN=" + $GroupNameMGMT + "," + $tempOUName + $OU + $OURoot))) { write-host "Management user group does not exist. Creating..."; New-ADGroup -Name $GroupNameMGMT -GroupCategory Security -GroupScope Global -Path ("OU=" + $OUName + "," + $OU + $OURoot)}
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
$FolderACL.SetAccessRuleProtection($True,$True)
# $FolderACL.Access | where {$_.IdentityReference -eq "BUILTIN\Users"} | %{$FolderACL.RemoveAccessRuleAll($_)}
$BIUsers = New-Object System.Security.Principal.NTAccount("BUILTIN\Users")
$BIUsersSID = $BIUsers.Translate([System.Security.Principal.SecurityIdentifier])
write-host $BIUsersSID.Value
# out-string -inputObject $BIUsers
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($BIUsersSID.Value,"ReadAndExecute,AppendData,CreateFiles,Synchronize","ContainerInherit, ObjectInherit", "None", "Allow")
$FolderACL.RemoveAccessRuleAll($Ar)
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
get-acl ($FSRoot + $FolderPath + $FolderName) | fl
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
$ADGroupName = "JACOBSON\" + $GroupName
$objUser = New-Object System.Security.Principal.NTAccount($ADGroupName)
$objUser.Translate([System.Security.Principal.SecurityIdentifier]).Value
write-host $ADGroupName
write-host $objUser.Value
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($ADGroupName,"ReadAndExecute","ContainerInherit, ObjectInherit", "None", "Allow")
Out-String -InputObject $ar
$FolderACL.AddAccessRule($Ar)
$ADGroupName = "JACOBSON\" + $GroupNameMGMT
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($ADGroupName, "Modify", "ContainerInherit, ObjectInherit", "None", "Allow")
Out-String -InputObject $ar
$FolderACL.AddAccessRule($Ar)
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
} else {
$tempOUName = "cn=" + $GroupName + ","
write-host
write-host $OUDrive$tempOUName$OU$OURoot
write-host
write-host -NoNewLine "Group exists: "; Test-Path ($OUDrive + $tempOUName + $OU + $OURoot)
if (Test-Path ($OUDrive + $tempOUName + $OU + $OURoot)) {
Write-Host "Security group already exists! Skipping new security group creation..."
} else {
write-host "Security group does not exist. Creating..."
New-ADGroup -Name $GroupName -GroupCategory Security -GroupScope Global -Path ($OU + $OURoot)
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
$ADGroupName = "JACOBSON\" + $GroupName
$FolderACL.SetAccessRuleProtection($True,$True)
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($ADGroupName,"Modify","ContainerInherit, ObjectInherit", "None", "Allow")
$FolderACL.AddAccessRule($Ar)
$FolderACL.Access | where {$_.IdentityReference -eq "BUILTIN\Users"} | %{$FolderACL.RemoveAccessRuleAll($_)}
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
My problems right now are in the assignment/removal of security groups on the newly-created folder, and the problems are two-fold. Yes, I am running this script as an Administrator.
First, I am unable to remove the BUILTIN\Users group from the folder when this is an office/location-specific folder. I've tried to remove the group in several different ways, and none are having any effect. Oddly, if I type in the lines directly
into Powershell, they work as expected. I've tried the following methods:
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
$FolderACL.SetAccessRuleProtection($True,$True)
$FolderACL.Access | where {$_.IdentityReference -eq "BUILTIN\Users"} | %{$FolderACL.RemoveAccessRuleAll($_)}
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
$FolderACL.SetAccessRuleProtection($True,$True)
$BIUsers = New-Object System.Security.Principal.NTAccount("BUILTIN\Users")
$BIUsersSID = $BIUsers.Translate([System.Security.Principal.SecurityIdentifier])
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($BIUsersSID.Value,"ReadAndExecute,AppendData,CreateFiles,Synchronize","ContainerInherit, ObjectInherit", "None", "Allow")
$FolderACL.RemoveAccessRuleAll($Ar)
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
In the first case, the script goes through and has no apparent effect because afterwards, I do a get-acl and the BUILTIN\Users group is still there, although when looking through the GUI, inheritance appears to have been broken from the parent folder.
In the second case, I get the following error message:
Exception calling "RemoveAccessRuleAll" with "1" argument(s): "Some or all identity references could not be translated."
At C:\Users\tesdallb\Documents\FileServerBuild.ps1:110 char:5
+ $FolderACL.RemoveAccessRuleAll($Ar)
+ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : NotSpecified: (:) [], MethodInvocationException
+ FullyQualifiedErrorId : IdentityNotMappedException
This seems strange that the local server is unable to translate the SID of a BUILTIN account. I've also tried explicitly putting in the BUILTIN\Users SID in place of the variable in the New-Object line, but that gives me the same error. I've
also tried the solutions given in this thread:
http://social.technet.microsoft.com/Forums/windowsserver/en-US/ad59dc58-1360-4652-ae09-2cd4273cbd4f/remove-acl-issue?forum=winserverpowershell and at this URL:
http://technet.microsoft.com/en-us/library/ff730951.aspx but these solutions also failed to have any effect.
My second problem is when I try to apply the newly-created security groups, I also will get the "Some or all identity references could not be translated." I thought I had found a workaround to the problem by adding the -PassThru option to
the New-ADGroup commands, because it would output the SID of the group after creation, however a few lines later, the server is unable to translate the account to apply the security groups to the folder.
My first Powershell script has been working well up to this point and now I seem to have hit a showstopper. Any help is appreciated.
Thanks!

I was hoping to stay with strictly Powershell, but unless I can find a Powershell solution, I may resort to ICACLS.
As for the problems with my groups not being translatable right after creating them, I think I have solved this problem by using the -Server parameter on all my New-ADGroup commands and this example code seems to have gotten around the translation problem,
again utilizing the -Server parameter on the Get-ADGroup command:
get-acl ($FSRoot + $FolderPath + $FolderName) | fl
$FolderACL = get-acl ($FSRoot + $FolderPath + $FolderName)
# Add the new normal users group to the folder with Read and Execute permissions
$GroupSID = Get-ADGroup -Identity $GroupName -Server chadc01.jacobsonco.com | Select-Object -ExpandProperty SID
$SIDIdentity = New-Object System.Security.Principal.SecurityIdentifier($GroupSID)
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($SIDIdentity,"ReadAndExecute","ContainerInherit, ObjectInherit", "None", "Allow")
$FolderACL.AddAccessRule($Ar)
# Add the management users group to the folder with Modify permissions
$GroupMGMTSID = Get-ADGroup -Identity $GroupNameMGMT -Server chadc01.jacobsonco.com | Select-Object -ExpandProperty SID
$SIDIdentity = New-Object System.Security.Principal.SecurityIdentifier($GroupMGMTSID)
$Ar = New-Object System.Security.AccessControl.FileSystemAccessRule($SIDIdentity, "Modify", "ContainerInherit, ObjectInherit", "None", "Allow")
$FolderACL.AddAccessRule($Ar)
Set-ACL ($FSRoot + $FolderPath + $FolderName) $FolderACL
Going this route seems to ensure that the Domain Controller I'm creating my groups on is the same one that I'm querying for the group's SID to use in the FileSystemAccessRule. It's been working fairly consistently.
Still having issues with the translation of the BUILTIN\Users group, though.

Page problem in script

Hi,
I have one more problem. Actually my script having only one page output. But in second page also logo is printing.
I don't want second page. In first page I have only two windows main & logo.
Could you please suggest me how to do it.

Hi!
You have to set up 2 pages in SE71, FIRST, and NEXT.
FIRST has to contain the LOGO and MAIN windows.
NEXT has to contain only the MAIN window.
At the FIRST page you have to set the next page as NEXT page.
At the NEXT page you have to set the next page as NEXT page (same as FIRST).
This makes your NEXT sides not to print the logo and handles accidentally data overflow to your second page.
Check out if there is an explicit /: NEW-PAGE in your sapscript, this causes problems also.
Regards
Tamás
Message was edited by:
Tamás Nyisztor

Problem in script output sending mail

hi ,
I have a problem sending a mail with script output as attachment . I have searched in the forum for the answers but none is solved my question.
I am sending the data to the otf and it is getting the otfdata. but it is not showing the data on the script when it is sent as an attachment to the email , but it is showing only script with null values filled.( means i am getting the mail with attachment but in that attachment there is no data filled in the script send).
the code is like this ..
here i am filling the otfdata and i am exporting the otfdata
CALL FUNCTION 'ZMM_ARRANG_ENTRY_ABR_NATRAB'
 EXPORTING
 i_nast = nast
 i_fonam = tnapr-fonam
 i_xscreen = pi_xscreen
 i_arc_params = arc_params
 i_toa_dara = toa_dara
 IMPORTING
 e_retcode = px_retcode
 EXCEPTIONS
 OTHERS = 1.
IF ( sy-subrc <> 0 ). "Fehler
 MOVE sy-subrc TO px_retcode.
 IF ( pi_xscreen = 'X' ). "Ausgabe auf Bildschirm
 MESSAGE ID sy-msgid
 TYPE sy-msgty
 NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
ELSE.
*---Import OTFDATA from the memory
 IMPORT it_otfdata FROM MEMORY ID 'OTF'.
ENDIF.
wa_maildata-obj_name = 'EMAIL'.
wa_maildata-obj_descr = 'Settlement Details'.
*-----mail contents
it_mailtext-line = 'Sub-sequent settlement Details'.
APPEND it_mailtext.
DESCRIBE TABLE it_mailtext LINES v_lines.
READ TABLE it_mailtext INDEX v_lines.
wa_maildata-doc_size = ( v_lines - 1 ) * 255 + STRLEN( it_mailtext ).
*Creation of the entry for the compressed document
CLEAR it_mailpack-transf_bin.
it_mailpack-head_start = 1.
it_mailpack-head_num = 0.
it_mailpack-body_start = 1.
it_mailpack-body_num = v_lines.
it_mailpack-doc_type = 'RAW'.
APPEND it_mailpack.
*-----Get OTF data
LOOP AT it_otfdata.
 it_mailcont-line = it_otfdata.
 APPEND it_mailcont.
ENDLOOP.
*---Move OTF data into binary table
LOOP AT it_mailcont.
 MOVE-CORRESPONDING it_mailcont TO it_mailbin.
 APPEND it_mailbin.
ENDLOOP.
*---Get no of lines in Binary data table
DESCRIBE TABLE it_mailbin LINES v_lines.
*---Fill name of the header of email
it_mailhead = 'Subsequent Settlement Details.OTF'.
APPEND it_mailhead.
*---Creation of the entry for the compressed attachment
it_mailpack-transf_bin = 'X'.
it_mailpack-head_start = 1.
it_mailpack-head_num = 1.
it_mailpack-body_start = 1.
it_mailpack-body_num = v_lines.
it_mailpack-doc_type = 'OTF'.
it_mailpack-obj_name = 'EMAIL'.
it_mailpack-obj_descr = 'Settlement Details'.
it_mailpack-doc_size = v_lines * 255.
APPEND it_mailpack.
*----Get email address from the address number of vendor
CALL FUNCTION 'ADDR_GET_REMOTE'
 EXPORTING
 addrnumber = l_adrnum
 TABLES
 adsmtp = it_adsmtp.
*----Get mail address
READ TABLE it_adsmtp WITH KEY remark = 'AP_SUB_SETT'.
IF sy-subrc = 0.
 it_mailrec-receiver = it_adsmtp-smtp_addr.
 it_mailrec-rec_type = 'U'.
 it_mailrec-com_type = 'EXT'.
 APPEND it_mailrec.
*---Send email with PDF attachment
 CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 document_data = wa_maildata
 put_in_outbox = 'X'
 COMMIT_WORK = 'X'
 TABLES
 packing_list = it_mailpack
 object_header = it_mailhead
 contents_bin = it_mailbin
 contents_txt = it_mailtext
 receivers = it_mailrec.
ELSE.
 MESSAGE 'No email id Exist for the vendor' TYPE 'E'.
ENDIF.
please suggest me with your valuable answers .
Regards,
Venkat Appikonda.

Hi venkat
Just check if this helps you.
The following part of the code does exactly that.
Selecting details from the spool request table.
SELECT * FROM tsp01 INTO TABLE tb_spool
 WHERE rqowner = sy-uname.
IF sy-subrc EQ 0.
 SORT tb_spool DESCENDING BY rqcretime.
 CLEAR : tb_spool.
 READ TABLE tb_spool INDEX 1.
convert spool into PDF format.
 CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = tb_spool-rqident
 TABLES
 PDF = tb_lines.
ENDIF.
After this, on execution we get the below mentioned message.
This indicates that a PDF of the SAP Script has been created which is in the format u201C132-long stringsu201D.
In order to send the mail across, the mailing format of the PDF supports u201C255-long stringsu201D. So, the present u201C132-long stringsu201D needs to be converted into u201C255-long stringsu201D. This along with the mail code is mentioned below.
DATA: lv_receiver(50) TYPE c.
REFRESH: tb_obj_txt,
 tb_obj_bin,
 tb_obj_head,
 tb_paklist,
 tb_receiver.
CLEAR: tb_obj_txt,
 tb_obj_bin,
 tb_paklist,
 tb_obj_head,
 tb_receiver.
CLEAR: tb_adrc.
IF NOT tb_adrc[] IS INITIAL.
Reading the address table with the key as address number.
 READ TABLE tb_adrc WITH KEY addrnumber = tb_kna2-adrnr.
 IF sy-subrc EQ 0.
Vendor Email ID.
 SELECT SINGLE smtp_addr
 FROM adr6
 INTO wf_mailaddr
 WHERE addrnumber = tb_adrc-addrnumber.
 IF sy-subrc EQ 0.
Moving the mail address to the receiver itab
 MOVE wf_mailaddr TO tb_receiver-receiver.
 tb_receiver-rec_type = text-011.
 APPEND tb_receiver.
 ELSE.
 CONCATENATE text-004 tb_kna2-kunnr text-005 INTO lv_receiver
 SEPARATED BY space.
If pa_call is initial, the receiver ID is printed; else an INVALID E-mail ID message gets flashed.
 IF pa_call IS INITIAL.
 WRITE :/ lv_receiver.
 ENDIF.
 CLEAR: itab.
 itab-kunnr = tb_kna2-kunnr.
 itab-message = lv_receiver.
 APPEND itab.
 EXIT. u201CNo mailing for invalid Email id
 ENDIF.
 ENDIF.
ENDIF.
wf_name = sy-uname.
wf_year = tb_main-bldat(4).
wf_mon = tb_main-bldat+4(2).
*This FM gives the name of the months.
CALL FUNCTION 'MONTH_NAMES_GET'
 EXPORTING
 language = sy-langu
 TABLES
 month_names = tb_months.
IF sy-subrc EQ 0.
 READ TABLE tb_months WITH KEY mnr = wf_mon.
 IF sy-subrc EQ 0.
 wf_name = tb_months-ktx.
 ENDIF.
ENDIF.
CLEAR: tb_contp.
IF NOT tb_contp[] IS INITIAL.
*Reading the contp itab as per the customer entered on the selection screen.
 READ TABLE tb_contp WITH KEY bukrs = pa_bukrs
 kunnr = tb_kna2-kunnr.
 IF sy-subrc EQ 0.
 CONCATENATE text-006 text-008 tb_contp-contp text-008 tb_kna2-kunnr
 text-008 wf_name text-008 wf_year INTO wf_sub.
 ENDIF.
ELSE.
 CONCATENATE text-006 text-008 tb_kna2-kunnr text-008 wf_name
 text-008 wf_year INTO wf_sub.
ENDIF.
Subject and Description
CLEAR wa_docdata.
wa_docdata-obj_name = text-007.
wa_docdata-obj_descr = wf_sub.
wa_docdata-obj_langu = sy-langu.
Write main body
tb_obj_txt = text-009.
APPEND tb_obj_txt.
CLEAR tb_obj_txt.
CLEAR tb_paklist.
tb_paklist-head_start = 1.
tb_paklist-head_num = 3.
tb_paklist-body_start = 1.
tb_paklist-body_num = 60.
tb_paklist-doc_type = text-012.
APPEND tb_paklist.
CLEAR tb_paklist.
create PDF file
Transfer the 132-long strings to 255-long strings
LOOP AT tb_lines.
 TRANSLATE tb_lines USING ' ~'.
 CONCATENATE wf_buffer tb_lines INTO wf_buffer.
ENDLOOP.
TRANSLATE wf_buffer USING '~ '.
DO.
 tb_obj_bin = wf_buffer.
 APPEND tb_obj_bin.
 SHIFT wf_buffer LEFT BY 255 PLACES.
 IF wf_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
DESCRIBE TABLE tb_obj_bin LINES lv_lines.
READ TABLE tb_obj_bin INDEX lv_lines.
lv_size = ( lv_lines - 1 ) * 255 + STRLEN( tb_obj_bin ).
Create attachment notification
tb_paklist-transf_bin = co_x.
tb_paklist-head_start = 1.
tb_paklist-head_num = 0.
tb_paklist-body_start = 1.
tb_paklist-body_num = lv_lines.
tb_paklist-doc_type = text-013.
tb_paklist-obj_descr = text-010.
tb_paklist-obj_name = text-010.
tb_paklist-doc_size = lv_size.
APPEND tb_paklist.
*mail the PDF to the receiver.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = wa_docdata
 sender_address = wf_name
 sender_address_type = text-014
 TABLES
 packing_list = tb_paklist
 object_header = tb_obj_head
 contents_bin = tb_obj_bin
 contents_txt = tb_obj_txt
 receivers = tb_receiver
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
IF sy-subrc <> 0.
 CONCATENATE text-003 tb_kna2-kunnr text-005 INTO lv_receiver
 SEPARATED BY space.
 CLEAR: itab.
 itab-kunnr = tb_kna2-kunnr.
 itab-message = lv_receiver.
 APPEND itab.
 IF pa_call IS INITIAL.
 WRITE :/ lv_receiver.
 ENDIF.
ELSE.
 CONCATENATE text-002 tb_kna2-kunnr text-005 INTO lv_receiver
 SEPARATED BY space.
 CLEAR: itab.
 itab-kunnr = tb_kna2-kunnr.
 itab-message = lv_receiver.
 APPEND itab.
 IF pa_call IS INITIAL.
 WRITE :/ lv_receiver.
 ENDIF.
ENDIF.
Hope this helps.
Harsh

Problem with scripts

Certain sites, most recently The Daily Show, will not load for me. I get a box that says:
"Warning: unresponsive script
A script on this page may be busy, or it may have stopped responding. You can stop the script now, or you can continue to see if the script will complete.
Script: resource://gre/modules/ConsoleAPIStorage.jsm:157
[Continue] [Stop script]"
Whether I click to continue or stop the script, nothing happens except that the box goes away and then comes up again. If I try to close the tab, it just hangs and then finally shows the box again.
Finally, Firefox just gets completely hung up, and I have to close it out with the task manager.
Meanwhile, everything runs fine in Internet Explorer.
Can anyone please help me solve this problem?
Thanks,
Ellen

Is DOM storage enabled?
You can check the value of the dom.storage.enabled pref on the about:config page.
*http://kb.mozillazine.org/about:config
You can also try to delete the webappsstore.sqlite file in the Firefox Profile Folder to remove all data (cookies) stored in DOM storage.
You can use this button to go to the Firefox profile folder:
*Help > Troubleshooting Information > Profile Directory: Open Containing Folder
*http://kb.mozillazine.org/Profile_folder_-_Firefox
You can try to reset Firefox and create a new profile.
*https://support.mozilla.org/kb/reset-firefox-easily-fix-most-problems

Abt clear value problem in scripts

Hi,
Im working on scripts.in scripts im calculating totals by using subroutine.but im facing problem.
my problem is first time i calculated it's working fine.
when i go back and enter other order number it's taking previous order number and present total and it displays these totals.
i clear the it_out in se38 and the varible which holds the total.
but it's not working.
please help me in this.
Thanks & Regards,
Srinivas

Hi this is my abap code.
FORM get_extpr_tot TABLES it_input STRUCTURE itcsy it_output STRUCTURE itcsy.
REFRESH : it_output.
CLEAR v_extpr_tot.
DATA: v_vbeln2(10) TYPE n.
REFRESH it_input.
Clear v_vbeln2.
clear v_extpr_tot1.
READ TABLE it_input INDEX 1.
MOVE it_input-value TO v_vbeln2.
READ TABLE it_input INDEX 2.
MOVE it_input-value TO v_extpr_tot.
v_extpr_tot1 = v_extpr_tot1 + v_extpr_tot.
READ TABLE it_output INDEX 1.
WRITE v_extpr_tot1 TO it_output-value LEFT-JUSTIFIED.
MODIFY it_output INDEX 1.
Clear it_output.
clear v_extpr_tot1.
REFRESH it_output.
ENDFORM. "GET_EXTPR_TOT
and my se71 code is
PERFORM GET_EXTPR_TOT IN PROGRAM ZSP_SD_ORDCM.
USING &VBDKA-VBELN&
USING &V_PRICE&
CHANGING &V_EXTPR_TOT1&
ENDPERFORM
please help me

Typical problem in SCRIPTS

Hello Experts,
I am working on SAP script where i have to display the records in a page from a internal table.
begin of xtab occurs 0,
vbeln like vbak-vbeln,
matnr like mara-matnr,
maktx like makt-maktx,
erdat like vbak-erdat,
date_var(1), "indicates date change with 'x'
status(1), "indicates vbeln change with 'x'
end of xtab.
now my requirement to display to have the script is
1) when ever the date_var is 'X' a new page should trigger.
2) when ever status = 'X' there should be
a line after the display of records indicating the change of vbeln saying
"there are xxx number of materials for vbeln"
THE PROBLEM:-
 suppose if a page can hold 20 records. and if I have 23 records. the 3 records are dispalying in next page, with "there are xxx number of materials for vbeln"
which is fine.
 But if when there is change of date at 24th record, where a new page should trigger- this
 is not happening and further more records from 24 index are attaching after the
 "there are 23 number of materials for vbeln are used".
 My exceptation over this display should is - it should display 20 records in frist page
 and move to next page to display 3 records along with "there are 23 number of materials for
 vbeln are used" ( As the page could hold only 20 records). and THEN AFTER THIS AS THERE IS
 CHANGE IN DATE IT SHOULD TRIGGER A NEW PAGE to display from 24th record.
Please Help me in giving the code for this.
Thanks
Mary

Hi Mary,
I suppose you can modify the printing program.
Try to work with an internal table like:
erdat like vbak-erdat,
vbeln like vbak-vbeln,
matnr like mara-matnr,
maktx like makt-maktx,
So the code could be something as:
SORT XTAB BY ERDAT VBELN
LOOP AT XTAB
AT NEW ERDAT
if sy-tabix > 1.
 NEW-PAGE (function).
endif.
ENDAT
AT END OF VBELN.
WRITE_FORM (function)
Element = text containing numbers of materials
ENDAT
ENDLOOP

Total Problem in scripts

Hi,
I'm facing one big issue in scripts.ie: in printing totals.
for totals i write a subroutine in scripts.
it's working fine.it's displaying totals well.here my problem is first i see the print preview.at that time total is correct.but when i came back and see the print preview again it displaying wrong.ie if first time the total is 'A'.Then second time it displaying like (A+A).
other problem is when i see the print preview and displays it and go back and took the print at that time also it displaying (A+A).
My code is like :
*&      Form GET_EXTPR_TOT
    this routine will get the LINE ITEM EXTENDED PRICE TOTALS When
    there is no PROMO CODE.
form get_extpr_tot tables it_input structure itcsy it_output structure itcsy.
data: v_vbeln2(10) type n.
clear it_input.
clear v_vbeln2.
read table it_input index 1.
move it_input-value to v_vbeln2.
read table it_input index 2.
move it_input-value to v_extpr_tot.
v_extpr_tot1 = v_extpr_tot1 + v_extpr_tot.
read table it_output index 1.
write v_extpr_tot1 to it_output-value left-justified.
modify it_output index 1.
clear it_output.
endform.                    "GET_EXTPR_TOT
Please Send ur valuable answers.
Thanks,
Srinivas.

Hi Srinivas,
In your script you can define the total variable in one of the header related elements that will be called. for exaple you can define it in the element
/E HEADER_TARGET_VALUE
/: DEFINE &V_EXTPR_TOT1& = ' '
and change your code in ITEM_LINE_PRICE_QUANTITY element as follows
/E ITEM_LINE_PRICE_QUANTITY
/* Begin of modification (RICEF/Issue Number:F-SD-04) by sbhavanam
/: PERFORM GET_EXTPR_TOT IN PROGRAM ZSP_SD_ORDCM.
/: USING &VBDKA-VBELN&
/: USING &V_PRICE&
/: CHANGING &V_EXTPR_TOT1&
/: ENDPERFORM
your abap should look like this.
FORM get_extpr_tot TABLES it_input STRUCTURE itcsy it_output STRUCTURE itcsy.
DATA: v_vbeln2(10) TYPE n
* CLEAR it_input.
CLEAR v_vbeln2.
CLEAR v_extpr_tot.
READ TABLE it_input INDEX 1.
MOVE it_input-value TO v_vbeln2.
READ TABLE it_input INDEX 2.
MOVE it_input-value TO v_extpr_tot.
read table it_input index 3.
move it_input-value to v_extpr_tot1.
v_extpr_tot1 = v_extpr_tot1 + v_extpr_tot.
* v_extpr_tot_tst = v_extpr_tot_
READ TABLE it_output INDEX 1.
WRITE v_extpr_tot1 TO it_output-value LEFT-JUSTIFIED.
MODIFY it_output INDEX 1.
CLEAR it_output.
ENDFORM. "GET_EXTPR_TOT
that should solve your issues.
-Kalyan

Problem WMI script

Similar Messages

Maybe you are looking for